click 点击相同项时,没有改变也触发,与change有点区别。可以这样:Private Sub Combo1_Click() Static i If Combo1.ListIndex <> i Then ... ... . i = Combo1.ListIndex End If End Sub Private Sub Form_Load() Combo1.ListIndex = 0 End Sub
Private Sub Combo1_Click() select case Combo1.ListIndex case 1 case 2 ...end select End Sub
例:你的combobox中有1,2,3,在1,2,3中选择是click事件,当键入1,2,3以外的字符才是change事件
Static i
If Combo1.ListIndex <> i Then
...
...
.
i = Combo1.ListIndex
End If
End Sub
Private Sub Form_Load()
Combo1.ListIndex = 0
End Sub
select case Combo1.ListIndex
case 1
case 2
...end select
End Sub