急救!!!!!!

Question

请问哥哥姐姐们,有没有这样一个函数：它的功能是能够统计鼠标单击的次数.         比如:       
private sub cmd1_click()  '如果统计出鼠标单击了3次,那么就  unload me
谢谢~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
偶会认真学习的!

Answer 1

单击哪里？如果是工程内的任何地方都好办，把Form的KeyPreview属性设为True，然后在Form_MouseDown事件里记录数就行了，比如：
dim iCount&
...
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 icount=icount+1
 if icount=3 then
  unload me
 end if
End Sub
如果不在本窗体内，就要用到钓子了。

Answer 2

用一个计数器实现：Option Explicit
Private n As IntegerPrivate Sub Command1_Click()
  If n = 2 Then Unload Me Else n = n + 1
End SubPrivate Sub Form_Load()
  n = 0
End Sub

Answer 3

*********************************************************************************
一次性:
 if chic a then b+1
 if b>92764 then msgbox"ow2u43i38295"
 end if
多次性:
 建立一个数据库
********************************************************************************
VB论坛程序第44784357条问题解答
********************************************************************************
程序下载地址:www.kun.com/soft/028748.html
********************************************************************************
制作日期:03/12/18           作者:mrcd