大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
先把Form窗体的KeyPreview设置为True
创新互联专注为客户提供全方位的互联网综合服务,包含不限于成都网站建设、成都做网站、虎林网络推广、微信小程序、虎林网络营销、虎林企业策划、虎林品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;创新互联为所有大学生创业者提供虎林建站搭建服务,24小时服务热线:18982081108,官方网址:www.cdcxhl.com
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then '回车键
SendKeys vbTab '模拟键盘发送TAB键
End If
End Sub
如果是简单的换行用vbcrlf 或 environment.newline
要获得键盘的回车键用api 的
Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
可以用chr函数或者vbCrLf这种表示
chr(10):换行,相当于vbLf
chr(13):回车,相当于vbCr
chr(13)+chr(10):回车+换行,相当于vbCrLf