Private Sub txt_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
SendKeys "{tab}"
KeyAscii = 0 '消除喇叭声
End If
End Sub
其它同理类推
If KeyAscii = vbKeyReturn Then
SendKeys "{tab}"
KeyAscii = 0 '消除喇叭声
End If
End Sub
其它同理类推
解决方案 »
- 这句delphi往列表框添加数据项目的语句vb6中怎么写啊
- 怎样通过VB 来判断串口上DTR的高低电位?
- 数据库连接的疑问
- 求助,我在VB6.0+OfficeXP+win2000环境下做的vb操作word文档的程序,在Office2000下运行出现了错误!
- 报表问题:有谁知道ActiveReport中_Format,_BeforePrint,_AfterPrint的调用顺序,请进.
- 请问, 在vb6中使用了Microsoft SOAP Toolkit 3.0的程序的打包问题?
- 我的软件{老}是有___<毛病>
- 关于巴顿对扣他信誉分的处理
- 请问如何给 Listbox 里每一个条目加上一个图片?
- VB.net中,用Mail.MailMessage发邮件时如何添加附件
- 怎么定义快捷键?
- 怎样用程序设置当前按钮?
在窗体的键盘事件中写上如rjxia所述的代码即可,不用每个控件都写代码。