ComboBox或ListBox的问题

Question

打算添加一些数据(数据名称,数据值) aa,2 bb,5 cc,6 dd,12ComboBox或ListBox.AddItem ("aa") 那应该在那里添加数据值 2 在选中 aa 时可以得到 2 这个值
ComboBox或ListBox.AddItem ("bb") 那应该在那里添加数据值 5 在选中 bb 时可以得到 5 这个值
ComboBox或ListBox.AddItem ("cc") 那应该在那里添加数据值 6 在选中 cc 时可以得到 6 这个值
ComboBox或ListBox.AddItem ("dd") 那应该在那里添加数据值 12 在选中 dd 时可以得到 12 这个值

Answer 1

摘录 CBM666编程示例教材 控件篇(ComboBox)Option Explicit
Dim S
Private Sub Form_Load()
   Combo1.AddItem "aa" & "---" & "2"
   Combo1.AddItem "bb" & "---" & "5"
   Combo1.AddItem "cc" & "---" & "6"
   Combo1.AddItem "dd" & "---" & "12"
End SubPrivate Sub Combo1_Click()
   S = Split(Combo1.Text, "---")
   MsgBox S(1)
End Sub

Answer 2

 为取值方便，用Combo1.AddItem "2" & "---" & "aa"更好
取值：val(combo1.text)

Answer 3

Private Sub Form_Load()
     List1.AddItem "aa"
     List1.AddItem "bb"
     List1.AddItem "cc"
     List1.AddItem "dd"
          
End SubPrivate Sub List1_Click()
    Select Case List1.List(List1.ListIndex)
       Case "aa"
            Text1 = 2
       Case "bb"
            Text1 = 5
       Case "cc"
            Text1 = 6
       Case "dd"
            Text1 = 12
    
    End Select
        
End Sub

Answer 4

ComboBox或ListBox.AddItem ("aa") 那应该在那里添加数据值 2 在选中 aa 时可以得到 2 这个值 
ComboBox或ListBox.ItemData(ComboBox或ListBox.NewIndex) = 2List 的每一项，都有一个 Long 型的 ItemData。只要指定 ListIndex 就可以读到它。如果你没有赋值，缺省值是 0。不要学楼上的。麻烦。有现成的干吗不用，非得画蛇添足？x = ComboBox1.ItemData(ListIndex) '读当前选中记录的项目数据

Answer 5

用 ItemData 属性
Option ExplicitPrivate Sub Combo1_Click()
    Label1 = Combo1.ItemData(Combo1.ListIndex)
End SubPrivate Sub Form_Load()
    Combo1.AddItem "aa": Combo1.ItemData(Combo1.NewIndex) = 2
    Combo1.AddItem "bb": Combo1.ItemData(Combo1.NewIndex) = 5
    Combo1.AddItem "cc": Combo1.ItemData(Combo1.NewIndex) = 6
    Combo1.AddItem "dd": Combo1.ItemData(Combo1.NewIndex) = 12
End Sub

Answer 6

哈哈....我当然知道 ItemData但是,楼主此类的需求是一笔Combo内容需要两组以上的数据, 例如 歌曲名为主, 路径捆绑在后, 那我倒是要看看 ItemData 如何用 ? 要学习就该学习通用的, 而不是头痛医头, 脚痛医脚.