Fügen Sie Text und Wert in der ComboBox VB6

Lerne ich visual basic, aber ich habe verwirrt, wenn Sie auf Wert hinzufügen und den text in der combo-box.

dies ist meine Beispieldaten :

Kode(Wert) | Name (Text)

DTR001 | Regie

SVS005 | Supervisor

MKR001 | Marketing

Im HTML-code wie dieser

<select name="mydata">
<option value="DTR001">Director</option>
<option value="SVS005">Supervisor</option>
<option value="MKR001">Marketing </option>
</select>

Wie speichern, hinzufügen Wert in der combo-box VB 6, das ist mein shortcode

Private Sub Form_Load()
         cmb1.AddItem "test1"
         cmb1.AddItem "test2"
         cmb1.AddItem "test3"
    End Sub

    Private Sub cmb_jabatan_Click()

    End Sub

Mir helfen Danke

InformationsquelleAutor Muhamad Ridwansyah | 2015-12-02
  1. 2

    Müssen Sie pflegen ein array der Wert-strings, können Sie auf das richtige element, indem man die null-basiert-Liste-index von der combobox-Element.

    Private mValues() As String

Private Sub Form_Load()
    ReDim mValues(2)
    mValues(0) = "DTR001"  '//ListIndex 0
    mValues(1) = "SVS005"
    mValues(2) = "MKR001"

    cmb1.AddItem "Director"
    cmb1.AddItem "Supervisor"
    cmb1.AddItem "Marketing"
End Sub

Private Sub cmb1_Click()
    MsgBox cmb1.List(cmb1.ListIndex) & "/" & mValues(cmb1.ListIndex)
End Sub

    Können Sie nur direkt verbinden eine beliebige ganze Zahl mit einem combobox-Element mit ItemData

    .AddItem "Foo"
.ItemData(.NewIndex) = 42

    Abrufen und mit

    cmb1.ItemData(listIndex)

    Können Sie diese anstelle von .ListIndex an-link, um das array, wenn nötig.

    • wenn ich conect Datenbank, wie ein Skript, um dynamische Wert >> ReDim mValues(2) mybe wie diese ReDim mValues(dynamischer Wert)
    InformationsquelleAutor Alex K.
Schreibe einen Kommentar