设窗体的KeyPreview属性为true
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{Tab}"
End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{Tab}"
End If
End Sub
解决方案 »
- 100分跪求,VB中将远端数据库中一个表的部分列复制到本地
- 贪吃蛇-蛇身如何变长??
- VB6.0 GRID行多选获取数据问题
- 请问在VB中使用CommanDialog打开文件如何支持多个文件同时选择?
- 怎么得到一个汉字的首拼音字母
- 求VB(VBA)中使用的DES算法
- vb+SQL 的连接问题
- 请问如何在自定义文本框控件中像TextBox那样设置字体呀?急!
- 在vb中用了dbgrid32,filesystemobject,excel,在打包过程会打包什么文件?(是全部,即包括vb运行庫)
- foxmsdn(天堂雪狐) 快来接分。
- DataGrid中怎样将最新录入的数据显示在最上一行--在线等待
- 如何判断access 和 sql server 的表中的某个字段是自增量
'按向上箭头键
If KeyCode = vbKeyUp Then text1.SetFocus
'按向下箭头键或按回车键
If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then text3.SetFocus
End Sub