Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text2.SetFocus
End If
End Sub
If KeyCode = 13 Then
Text2.SetFocus
End If
End Sub
解决方案 »
- EXCEL绝对引用时想用公式怎么处理?
- 初学者请求高手帮助!!
- 请问如何弹出Windows登陆窗口?
- 跪求助:电子秤和计算机连接,如何接收质量反映在电脑程序中,做过这样程序的老大请帮忙!在线等待结分
- 有谁知道韩文的翻译软件,谢谢?(在线等待)(1000分够不够?)
- 怎么获得应用程序的安装路径!
- 数据库备份的功能怎么实现的?有什么相关的函数么?
- 如何控制输出到excel的表格,我现在是把数据给予输过去了,如何控制能把这单元格之间能画出线呢???/?
- 窗体中用鼠标拖拉可改变控件大小的问题,在线等,实现给分!
- VFP编译通过但是不能运行????
- 请问怎么使EXE文件在系统启动后直接加载到右下侧任务栏中!谢谢!
- 如何将一个数组直接加到combo里面
第一种:
先设tabindex的值,然后用sendkeys{vbTab} '不太安全
第二种:
在TEXT1的keydown事件写:
if keycode=vbkeyreturn then
if text2.enabled=true and text2.visible=true then
text2.setfoucs
end if
end if
以此类推
在sendkeys "{Tab}"后面再加上一句,KeyAscii(或KeyCode)=0
这一句比较关键,主要作用是去掉计算机发出的Beep声音
完整语句是
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{Tab}"
KeyAscii = 0
End If
End Sub
Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
KeyAscii = 0
keybd_event VK_TAB, 0, 0, 0
End If
End Sub