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

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

你 可 以 这 样 做 ： 
    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>