Добавить текст и значение в ComboBox VB6

Question

Я узнаю визуальный базовый, но я смутился, когда добавляю значение и текст в поле со списком.

это моя выборка данных:

Kode (значение) | Название (текст)

DTR001 | Директор

SVS005 | Супервайзер

MKR001 | Маркетинг

В HTML коде как этот

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

Как сохранить добавить значение в поле со списком VB 6, это мой шорткод

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

    Private Sub cmb_jabatan_Click() 

    End Sub 

Help Me Thank-х

Answer 1

Вы должны поддерживать массив строк значений, вы можете получить доступ к правильному элементу, просмотрев индекс списка на основе нуля элемента combobox.

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 

можно только непосредственно связать произвольное целое с элементом поле со списком с помощью ItemData

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

и получить с

cmb1.ItemData(listIndex) 

Вы можете использовать это вместо .ListIndex ссылки на массив если нужно.