timer可以的,就是記錄時間 的變量要設成全局變量 用來記錄時間間隔
雨花網站建設公司創(chuàng)新互聯(lián)公司,雨花網站設計制作,有大型網站制作公司豐富經驗。已為雨花上千余家提供企業(yè)網站建設服務。企業(yè)網站搭建\成都外貿網站建設公司要多少錢,請找那個售后服務好的雨花做網站的公司定做!
記得每次執(zhí)行程序后 將變量恢復到默認值0
用mousedown能實現(xiàn),簡單代碼,具體按自己需要修改。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
窗體沒有焦點,用窗體監(jiān)測鍵盤輸入緩沖區(qū)可以解決,但這似乎可以用于監(jiān)測用戶輸入內容,不要用于非法目的呀!所以就是知道也不會告訴你的。
在MouseDown或MouseUp事件中
Select Case e.Button
Case MouseButtons.Left
MsgBox("")
Case MouseButtons.Middle
MsgBox("'")
Case MouseButtons.Right
MsgBox("""")
End Select
即可知道是左鍵還是右鍵