鼠标双击怎么做

[kangqing]

我怎么设定？
if 鼠标击两下 then

else

[strongfisher]

我一般是设置一个公有变量
dim i as integer

if i=0 then
i=1
elseif i=1
i=0
'鼠标击两下
endif

[射天狼]

Private Sub Form_DblClick()
MsgBox "鼠标双击"
End Sub

[kangqing]

我是问怎么设定鼠标双击事件
click 现在是点一下就出来 我想变成点两下鼠标

[kangqing]

怎么判断鼠标是单击还是双击？？

[zybhappy]

你可以激活鼠标双击事件。
比如：在你的form上添加一个label
label.visible=false
private sub lable_dblclick()
你的程序
end sub

dim i as integer

if i=0 then
i=1
elseif i=1
i=0
'鼠标击两下
call label_dblclick
endif

[kangqing]

谢谢楼上的我问的就是那个是鼠标双击事件 谢谢你了

[demo001]

有点不太明白楼主的意思。

[smalllove]

dblclick()

[yjch]

Dim bool As Boolean
Private Sub Command1_Click()
If bool Then
Print "双击了"
Else
Print "没有双击"
End If
End Sub

Private Sub Form_DblClick()
bool = True
End Sub
'我的程序的思路是：首先定义一个逻辑变量，然后通过变量来判断是否“双击”。
'希望可以帮你.......