怎样才能改变 listindex而不发生 click 事件.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 23 行

你 可 以 这 样 做 ： 
    Dim bFire As Boolean 
     
    Private Sub Form_Load() 
     List1.AddItem "c" 
     List1.AddItem "d" 
     bFire = False 
     ' 这 里 不 触 发 Click事 件 
     List1.ListIndex = 1 
     bFire = True 
    End Sub 
     
    Private Sub Form_Click() 
     ' 这 里 触 发 Click事 件 
     List1.ListIndex = 0 
    End Sub 
     
    Private Sub List1_Click() 
     If bFire = False Then Exit Sub 
     Debug.Print "Click" 
    End Sub 
<END>