回车键移动光标,使用SendKeys "{tab}"语句,提示拒绝的权限,利用小键盘输入,将程序调试后,小键盘就关了。
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
End IfEnd Sub
窗体的keypreview属性设为true .
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
End IfEnd Sub
窗体的keypreview属性设为true .
解决方案 »
- VB-- Shareware expired.Please restart application.
- >>>>>>100分+100元请朋友帮忙<<<<<<一小段程序从VC6翻译到VB6
- 怎样把excel一下读到recordset里?
- 用postmessage发送组合键的问题
- 请问可不可以用代码控制excel关闭时不弹出“是否保存”的消息框?
- 如何将本地某个目录映射成一个驱动器???
- 数字格式化之后,怎么让小于1的数字在小数点前加0
- 我用BitBlt方法处理图片,但是处理以后的图片没有办法保存,请问是怎么回事?
- 请问怎样能新增、修改、读取注册表里的信息,谢谢!
- MSHFlexGrid可以修改上面的内容吗?
- 新手请求帮助,那位朋友可以帮我看一下啊!!!!1
- 求助一些VB基本问题.望大家指教
'按向上箭头键时焦点到text1控件
If KeyCode = vbKeyUp Then txttext1.SetFocus
'按回车键、Tab键或向下箭头键时焦点到text3控件
If KeyCode = vbKeyReturn Or KeyCode = vbKeyTab Or KeyCode = vbKeyDown Then
text3.SetFocus
end if
End Sub
前者不好办,后者直接设置控件的TabIndex属性