Question

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

这是我的样本数据：

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

帮我谢谢

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

在ComboBox VB6中添加文本和值

1 个答案: