大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
可以用chr函数或者vbCrLf这种表示
成都创新互联于2013年创立,先为韶关等服务建站,韶关等地企业,进行企业商务咨询服务。为韶关企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
chr(10):换行,相当于vbLf
chr(13):回车,相当于vbCr
chr(13)+chr(10):回车+换行,相当于vbCrLf
思路很简单:通过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
通过两个按键的时间差来判断。
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