重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
如果是简单的换行用vbcrlf 或 environment.newline
创新互联建站是一家集网站建设,高青企业网站建设,高青品牌网站建设,网站定制,高青网站建设报价,网络营销,网络优化,高青网站推广为一体的创新建站企业,帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿,时刻以成就客户成长自我,坚持不断学习、思考、沉淀、净化自己,让我们为更多的企业打造出实用型网站。
要获得键盘的回车键用api 的
Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
自己做个试验就行了:
Public Class Form1
' 在窗体上放个 Label1
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Lable1.Text = "KeyCode= " e.KeyCode.ToString vbCrLf
Lable1.Text = "KeyData= " e.KeyData.ToString vbCrLf
Lable1.Text = "KeyValue= " e.KeyValue.ToString
End Sub
End Class
运行起来,自己按键盘试试就知道了。
呵呵.假设这个按钮是command1,你只需要1行代码就行了.
Command1.Default = True
可以用chr函数或者vbCrLf这种表示
chr(10):换行,相当于vbLf
chr(13):回车,相当于vbCr
chr(13)+chr(10):回车+换行,相当于vbCrLf
在KeyPress事件中加入代码
if keyascii=13 then
keyascii=0
end if
思路很简单:通过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