请问如何用按钮控制某事件的不触发?

njy6000

请问如何用按钮单击后,成为当前事件不触发,再单击又触发.谢谢!

Henry D. Sy

定义一个布尔型的模块级变量，单击是给个赋值，
成为当前事件时进行判断，是发生或不发生。

Henry D. Sy

1. Dim bln As Boolean
   
2. 
   
3. Private Sub Command6_Click()
   
4.     bln = Not bln
   
5. End Sub
   
6. 
   
7. Private Sub Form_Current()
   
8.     If bln Then
   
9.         MsgBox "Current"
   
10.     Else
    
11.         Exit Sub
    
12.     End If
    
13. End Sub

复制代码

njy6000

谢谢,怎么没想到判断!