在 ComboBox VB6 中添加文本和值

Question

我学习了visual basic，但是在组合框中添加值和文本时我很困惑。

这是我的示例数据：

Kode(value) | Name (Text)
DTR001 | Director
SVS005 | Supervisor
MKR001 | Marketing 

在这样的 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

Answer 1

您需要维护一个值字符串数组，您可以通过查看组合框项的从零开始的列表索引来访问正确的元素。

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 来链接到数组。