private sub Form_Load() call combobox1_click end sub呵呵
Private m_bln_Load As Boolean Private m_int_add As Long '自动加1变量 Private Sub Combo1_Click() If m_bln_Load = True Then Exit Sub m_int_add = m_int_add + 1 MsgBox m_int_add End SubPrivate Sub Form_Load() m_bln_Load = True Combo1.AddItem "1" Combo1.AddItem "2" m_bln_Load = False End Sub
call combobox1_click
end sub呵呵
Private m_int_add As Long '自动加1变量
Private Sub Combo1_Click()
If m_bln_Load = True Then Exit Sub
m_int_add = m_int_add + 1
MsgBox m_int_add
End SubPrivate Sub Form_Load()
m_bln_Load = True
Combo1.AddItem "1"
Combo1.AddItem "2"
m_bln_Load = False
End Sub
如用了Combo1.ListIndex = xx或Combo1_Click()等