combo 的问题

Question

Private Sub Combo1_Click()
Form1.Caption = Form1.Combo1.ListIndex
End SubPrivate Sub Form_Load()
 Form1.Combo1.AddItem "我是谁"
 Form1.Combo1.Text = Form1.Combo1.List(0)
End Sub当窗体启动后 combo 默认第一个就自动单击了。 我想只显示列表 所以 Combo1.Style 是2 只读怎么能实现 加载以后 第一次不自己单击呢？  或者说 我需要加载 Combo1 的时候 再加载他 不要 一开窗体他就自己实现第一次单击。。

Answer 1

dim idx as intPrivate Sub Combo1_Click() 
if combo1.listindex = idx then exit sub
idx= combo1.listindex
end sub

Answer 2

Private Sub Form_Load() 
    Form1.Combo1.AddItem "我是谁" 
    'Form1.Combo1.Text = Form1.Combo1.List(0) 
End Sub 

Answer 3

加个标记判断一下，当form_load结束后才允许事件起作用
Dim bLoad As Boolean
Private Sub Combo1_Click()
    If Not bLoad Then Exit Sub
    ...
End SubPrivate Sub Form_Load()
    ...    bLoad = True
End Sub