十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
timer可以的,就是记录时间 的变量要设成全局变量 用来记录时间间隔
雨花网站建设公司创新互联公司,雨花网站设计制作,有大型网站制作公司丰富经验。已为雨花上千余家提供企业网站建设服务。企业网站搭建\成都外贸网站建设公司要多少钱,请找那个售后服务好的雨花做网站的公司定做!
记得每次执行程序后 将变量恢复到默认值0
用mousedown能实现,简单代码,具体按自己需要修改。Private sub picture1_mouseDown (button As integer,shift As integer, x as single,y As single)if button=1 then msgbox"你在图片上点击了鼠标左键"if button=2 then msgbox"你在图片上点击了鼠标右键"end sub
窗体内检测按键
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.KeyPreview = True '注册窗体的键盘事件
End Sub
在TextBox1中显示按键代码
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
TextBox1.Text = Str(e.KeyCode) + vbCrLf
End Sub
窗体没有焦点,用窗体监测键盘输入缓冲区可以解决,但这似乎可以用于监测用户输入内容,不要用于非法目的呀!所以就是知道也不会告诉你的。
在MouseDown或MouseUp事件中
Select Case e.Button
Case MouseButtons.Left
MsgBox("")
Case MouseButtons.Middle
MsgBox("'")
Case MouseButtons.Right
MsgBox("""")
End Select
即可知道是左键还是右键