重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
通过两个按键的时间差来判断。
创新互联公司专注于漾濞网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供漾濞营销型网站建设,漾濞网站制作、漾濞网页设计、漾濞网站官网定制、微信小程序定制开发服务,打造漾濞网络公司原创品牌,更为您提供漾濞网站排名全网营销落地服务。
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
在按下事件中进行响应,在响应的时候进行对按键的顾虑,如果是回车键就可以执行函数,否则按键都无效。
Dim MultiString as String‘有许多行的字符串Dim StrArray() as String'字符串类型的一维数组StrArray=Split(MultiString,VbCrlf)'用换行符分割字符串
如果是在自己的程序中,可以利用自身的按键事件,如果是全局键盘,那就要用到键盘hook技术了,比较复杂。
Private Sub Form_Load()
Label1.Caption = ""
Text1 = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then '回车键
Label1.Caption = 1
ElseIf KeyAscii = 8 Then '退格键
Label1.Caption = 2
Else '其他按键
Label1.Caption = 3
End If
Me.Cls
Print KeyAscii
End Sub
你用的都是vb6的代码,改成:
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
If IsNumeric(TextBox1.Text) = False Then
MsgBox("输入有非数字字符,请重新输入", vbOKOnly, "友情提示")
TextBox1.Focus()
Return
End If
End Sub