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

я изучаю Visual Basic, но я запутался, когда добавляю значение и текст в поле со списком.

это мои образцы данных:

Код(значение) | Имя (текст)

DTR001 | Директор

SVS005 | Руководитель

МКР001 | Маркетинг

В 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

Помогите мне спасибо


combobox vb6
person Maestro Vladimir    schedule 02.12.2015    source источник
comment
Возможный дубликат Добавление текста и значения идентификатора в поле со списком VB6   -  person Fred    schedule 02.12.2015

Ответы (1)


arrow_upward
3
arrow_downward

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

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 для ссылки на массив, если это необходимо.

person Alex K.    schedule 02.12.2015
comment
если я подключаю базу данных, как написать скрипт, к динамическому значению ›› ReDim mValues(2) может быть как этот ReDim mValues(динамическое значение) - person Maestro Vladimir; 02.12.2015