VB 的命令按钮 如何实现长按功能?!
发布网友
发布时间:2022-05-18 17:24
我来回答
共3个回答
热心网友
时间:2023-10-21 01:15
楼上二位只给出了用到的事件,在此我要给出具体方法。画一个Timer控件似乎会比较完美,将它的Interval设为长按的反应时间(毫秒),Enabled设为False。为了使你的代码更直观,推荐你自己写一个过程,作为按钮被长按时的代码。在通用(声明)处打如下代码:
Private Sub Command1_LongPress()
Timer1.Enabled = False '此句为了防止本过程被重复执行
'要在这里打上Command1长按时要执行的代码
End Sub
完成后,就可以用Command1原有的MouseDown、MouseUp事件配合这个Timer1来定时触发Command1_LongPress过程了。在Command1的MouseDown中打
Timer1.Enabled = True '按下按钮即开始计时
在Command1的MouseUp中打
Timer1.Enabled = False '松手即停止计时
在Timer1的Timer中打
Command1_LongPress
大功告成了。如果有什么问题或没达到效果可以追问。
热心网友
时间:2023-10-21 01:15
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub
用这个,上面的事件是表示,在命令按钮按下鼠标,
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub
再配合上面的那个鼠标松开事件,就可以达到你要的长按功能了
热心网友
时间:2023-10-21 01:16
mousedown事件触发就可以