设置第一个选项为默认值:
Combo1.ListIndex = 0
当选择第二个的时候弹出2,在选第一个的时候弹出1:
Private Sub Combo1_Click()
If Combo1.ListIndex = 0 Then
MsgBox "1"
ElseIf Combo1.ListIndex = 1 Then
MsgBox "2"
End If
End Sub
实现思路:在Combo1中增加元素,之后放入初始值,然后设置text属性。
参考代码如下:
Private Sub Form_Load()
Combo1.AddItem "test"
Combo1.Text = Combo1.List(0)
End Sub
ListIndex 表示当前选择项的索引,属性 List 是个数组,保存所有选项的内容。List(ListIndex) 就指向当前选择项的内容。
要默认选择某项,在其他事件(通常是 Form_Load)里设置
ListIndex = 0
鼠标选择某项会触发 Click 事件,并把选择项的内容显示在上面的文本框里,并触发 Change 事件,所以如果仅仅要对鼠标选择某项进行反应,还是在 Click 事件里处理的好。
这个不需要设置的,本来就是这样的.
所谓默认值的设置:
Combo1.text=combo1.list(0)