Popolare Drop Down List in Visual Basic

lunedì 08 marzo 2010 - 12.37

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Robertino1171 Profilo | Newbie

3 messaggi | Data Invio: lun 8 mar 2010 - 12:37

Dovrei popolare una drop down list in visual basic. I dati sono nel seguente formato stringa "12|cavallo|24|gallina|34|pecora|35|pernice". Per ciascuna riga ho un codice e una descrizione.
La chiave di lettura è la seguente:
12 cavallo
24 gallina
34 pecora
35 pernice
Nella drop down list non voglio che venga visualizzato il codice, ma solo la descrizione:
cavallo
gallina
pecora
pernice
ma se nel codice sorgente utilizzo il metodo che mi restituisce il valore selezionato nella dropdownlist, voglio che mi venga restituito il codice identificativo della bestia anzichè la descrizione (ad esempio 24 e non gallina) perchè poi lo dovrò utilizzare come parametro per un altro metodo.
Avete suggerimenti interessanti

disti Profilo | Newbie

36 messaggi | Data Invio: gio 11 mar 2010 - 00:59

Ciao,

in VB6 puoi utilizzare questo codice:

Private Sub Form_Load()

    cboAnimali.AddItem "Cane"
    cboAnimali.ItemData(cboAnimali.NewIndex) = "12"
    cboAnimali.AddItem "Gatto"
    cboAnimali.ItemData(cboAnimali.NewIndex) = "47"
    cboAnimali.AddItem "Pesce"
    cboAnimali.ItemData(cboAnimali.NewIndex) = "55"
    cboAnimali.AddItem "Cavallo"
    cboAnimali.ItemData(cboAnimali.NewIndex) = "72"
    
    cboAnimali.ListIndex = 0

End Sub

Private Sub Command1_Click()

    MsgBox cboAnimali.ItemData(cboAnimali.ListIndex)

End Sub

Se non vuoi inserire le voci nel codice ma mentre disegni la form, puoi utilizzare le proprietà "list" e "itemdata", tenendo presente che se fai così alla prima voce che inserisci nell'eleco "list" corrisponde la prima voce dell'elenco "itemdata" e così via.

ciao!

disti Profilo | Newbie

36 messaggi | Data Invio: gio 11 mar 2010 - 01:05

Dimenticavo:

se i dati di partenza li hai in una stringa come quella che hai mostrato, un esempio di codice potrebbe essere:

Private Sub Form_Load()

    Dim Source As String
    Dim i As Integer
    
    Source = "12|Cane|47|Gatto|55|Pesce|72|Cavallo"
    
    For i = 0 To UBound(Split(Source, "|")) Step 2
        cboAnimali.AddItem Split(Source, "|")(i + 1)
        cboAnimali.ItemData(cboAnimali.NewIndex) = Split(Source, "|")(i)
    Next
    
    cboAnimali.ListIndex = 0

End Sub

ciao!

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !