[Visual Basic] Visibilità di un textbox

[kwb]

Ciao a tutti, è la prima volta che metto piede in questa sezione, probabilmente perchè non mi sono mai realmente interessato di programmazione.
Venendo al dunque:
Devo fare un programma per un giocho online utilizzando dei combox.
Quando seleziono un elemento del combobox deve comparire il rispettivo textbox dentro al form, il problema è: come fare?

Io ho provato a fare nel senguente modo:


Option Explicit

Private Sub Form_Load()
'Elementi ComboGemme
Combo1.AddItem "Peridot"
Combo1.AddItem "Garnet"
Combo1.AddItem "Ruby"
Combo1.AddItem "Diamond"
Combo1.AddItem "Sapphire"
Combo1.AddItem "Emerald"
Combo1.AddItem "Topaz"

'Ordinamento ComboGemme
Combo1.List(3) = "Peridot"
Combo1.List(2) = "Garnet"
Combo1.List(4) = "Ruby"
Combo1.List(0) = "Diamond"
Combo1.List(5) = "Sapphire"
Combo1.List(1) = "Emerald"
Combo1.List(6) = "Topaz"

'Elementi ComboGrado
Combo2.AddItem "1"
Combo2.AddItem "2"
Combo2.AddItem "3"
Combo2.AddItem "4"
Combo2.AddItem "5"
Combo2.AddItem "6"
Combo2.AddItem "7"

'Ordinamento ComboGrado
Combo2.List(0) = "1"
Combo2.List(1) = "2"
Combo2.List(2) = "3"
Combo2.List(3) = "4"
Combo2.List(4) = "5"
Combo2.List(5) = "6"
Combo2.List(6) = "7"
End Sub

If Combo1.ListIndex = 0 Then
Text1.Visible = True



End If

Per 0 ( inserito nell' If ) intendo l'elemento "Diamond" ( in quanto usando l'ordinamento degli elementi, il "Diamond" risulta essere il primo )

Purtroppo non riesco a far visualizzare il Text1 quando nel combobox viene selezionato "Diamond".

La funzione dovrebbe essere:

Se "Diamond" è selezionato allora
Visualizza il Textbox 1 Altrimenti
...

Ovviamente la visibilità del textbox è impostata su False.

Grazie per l'aiuto e spero di essere stato chiaro :muro:


Kwb

[simoneart]

Ora non ho visualbasic 6 a portata di mano ma se non erro l'istruzione per conoscere l'elemento correntemente selezionato non è listindex ma selectedindex

[kwb]

Ora non ho visualbasic 6 a portata di mano ma se non erro l'istruzione per conoscere l'elemento correntemente selezionato non è listindex ma selectedindex

Ma a me interessa che quando un certo elemento è selezionato nel combobox, compaia il relativo textbox

[simoneart]

Text1.Visible = True è corretto
il problema è accertarsi se l'evento viene scatenato o meno.

Se questa if

If Combo1.ListIndex = 0 Then

non restituisce true, il textbox non diventerà mai visibile

[kwb]

Text1.Visible = True è corretto
il problema è accertarsi se l'evento viene scatenato o meno.

Se questa if

If Combo1.ListIndex = 0 Then

non restituisce true, il textbox non diventerà mai visibile

Appunto, il mio problema è che non funziona e sto cercando una soluzione per farlo funzionare :D :muro: