Question

VB-如何输出combobox里的信息

我创建一个combobox，为combo1。
在List中输入1、2、3、4...
定义a为long
当选中combo里某个数后，a将被赋与那个数
请问需要输入什么代码

Answer 1

Private Sub Combo1_Click()
Dim a As Long
'a = Val(Combo1.List(Combo1.ListIndex)) '两者任选一个
a = Combo1.Text '两者任选一个
Print a
End Sub

Private Sub Form_Load()
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
End Sub