vb程序设计 鼠标双击标签的时间设定
1.我需要窗体透明控件透明字体不透明,用标签可以实现,但命令按钮我实现不了,所以我只能用标签而不能用命令按钮;2.标签有单击和双击,单击间隔短了就被认为是双击,影响了使用...
1.我需要窗体透明控件透明字体不透明,用标签可以实现,但命令按钮我实现不了,所以我只能用标签而不能用命令按钮;
2.标签有单击和双击,单击间隔短了就被认为是双击,影响了使用效率。
问题:如何设置双击的确认时间,使之尽可能短,从而达到不把两次单击误认为是双击? 展开
2.标签有单击和双击,单击间隔短了就被认为是双击,影响了使用效率。
问题:如何设置双击的确认时间,使之尽可能短,从而达到不把两次单击误认为是双击? 展开
展开全部
1、修改系统鼠标属性,有个系统的默认双击判定
2、只处理标签的单击
设定变量 static Ctime as Single 记录下鼠标上次单击的时间
在下一次单击处理时先判断 和上次单击的时间间隔 如果小于 指定一的个值 为双击如果大于是单击
Private Sub Label1_Click()
Static Ctime As Single
'timer 是返回从 00:00 到选择经过的秒数
If Timer - Ctime < 0.2 Then '0.2秒 200毫秒 0.2改为你想要的时间间隔
'双击代码
Else
'单击代码
End If
'更新记录的时间
Ctime = Timer
End Sub
'-----------------------------补充下
在双击代码中加入 call Label1_Click
2、只处理标签的单击
设定变量 static Ctime as Single 记录下鼠标上次单击的时间
在下一次单击处理时先判断 和上次单击的时间间隔 如果小于 指定一的个值 为双击如果大于是单击
Private Sub Label1_Click()
Static Ctime As Single
'timer 是返回从 00:00 到选择经过的秒数
If Timer - Ctime < 0.2 Then '0.2秒 200毫秒 0.2改为你想要的时间间隔
'双击代码
Else
'单击代码
End If
'更新记录的时间
Ctime = Timer
End Sub
'-----------------------------补充下
在双击代码中加入 call Label1_Click
展开全部
是单击还是双击,是windows在判断的,和你的程序设置无关。
你可以试一下:在“控制面板”里有“鼠标”---“双击速度”调整一下。
你可以试一下:在“控制面板”里有“鼠标”---“双击速度”调整一下。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
双击功能包含了单击功能,如果你用双击功能,单击功能就不能用了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询