通過兩個按虛笑備鍵的時間差來判斷。升消
創新互聯建站是一家集網站建設,浙江企業網站建設,浙江品牌網站建設,網站定制,浙江網站建設報價,網絡營銷,網絡優化,浙江網站推廣為一體的創新建站企業,幫助傳統企業提升企業形象加強企業競爭力。可充分滿足這一群體相比中小企業更為豐富、高端、多元的互聯網需求。同時我們時刻保持專業、時尚、前沿,時刻以成就客戶成長自我,堅持不斷學習、思考、沉淀、凈化自己,讓我們為更多的企業打造出實用型網站。
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Static Last As Double = -1
If e.KeyChar = vbCr Then
If Microsoft.VisualBasic.Timer() - Last 差毀 0.3 Then
Debug.Print("enter")
Last = -1
Else
Last = Microsoft.VisualBasic.Timer()
End If
End If
End Sub
如果是正擾簡單的換行用帆滲vbcrlf 或 environment.newline
要獲得鍵舉轎旦盤的回車鍵用api 的
Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
照你說的有兩種歲謹情況
1.設置窗體的acceptbutton屬性為button1
,就能
使回車相當于乎肢基button1,
但是esc無法設置
2.獲取按鍵,若為keys.enter
,調用button1的事饑彎件處理函數
若為keys。escape
調用button2
思路很簡單:通過textbox的前旅歲keypress事慧睜件來捕鎮神獲鍵盤輸入,輸入輸入的是回車鍵,則調用Button_click事件
代碼如下:
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = 13 Then
call Button1_Click()
end if
End Sub