VB按钮启用键盘回车功能

要求;当输入完最后文本框后,默认,按回车即可。

当前,当输入完最后文本框后,必须用鼠标点按钮才行,按回车无反映。

用文本框的KeyPress事件实现:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Command1_Click
    End If
End Sub

Private Sub Command1_Click()
    Print Text1.Text
End Sub
温馨提示:内容为网友见解,仅供参考
第1个回答  2013-09-14

在文本框KeyPress事件中处理按键并调用相应按钮的单击事件过程即可:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then Command1_click
End Sub
 
Private Sub Command1_Click()
MsgBox ""
'你的按钮单击事件代码
End Sub

第2个回答  2013-09-14
这个很难吗?直接KeyDown事件删除,只写按钮就可以了啊。想触发就写上KeyDown事件捕捉13就可以了

vb按钮就会出现ctrl+enter 的效果
Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn And Shift = 2 Then MsgBox "Ctrl+Enter"End If End Sub

VB 回车控制按钮的代码!
Command1_Click End If End Sub txtmm是你在该控件上按回车

问一下在VB中设置用enter与esc键设置确认 退出、
VB给按钮增加Default和Cancel属性,是为了让按钮与键盘建立快捷联系,并不是说只要把按钮的Default或Cancel属性设为True,按钮就自动具有“确认”或“取消”功能了,真是这样的话,那编程就太简单啦!其实,Default的意思是“默认”,当窗体上有多个按钮同时存在时,如果其中某个按钮的Default属性设为True,...

怎么用VB模拟键盘自动按回车键?
可以用TIMER控件实现 拖动 TIMER(时间)控件 到FORM里 设置控件属性interval(延迟 2次活动之间的间隔)=你2次按ENTER键的间隔时间 其代码是 Private Sub 你的TIME控件名_Timer()SendKeys "{Enter}"End Sub 具体你要用在什么地方就要另外考虑了 ...

VB中,如何用键盘的一个键控制按钮控件? 就是我如何能: 按‘回车就能点...
把这个按钮控件的Default属性设为True即可

vb按钮如何设置快捷键,
设置VB窗体中按扭快捷键的操作可以采用下面两种方法来实现:1、在按扭的Capion 属性设置标题的时候,前面增加 "&K"字符就可以,K代表的是你准备使用的Alt+键盘字符,如“&O.退出”,程序运行的时候按下 Alt+O 即执行该按扭的操作了 2、你可以利用该按扭所在的Form 窗体优先权获得键盘操作功能来激发你...

在VB中如何将 确定 与键盘上的 回车健 对应起来
Command1.Default=-1 .Default 属性:对应“按下Enter(13)键启动Click过程”当然.Cancel属性就是按下Esc启动Click过程

VB文本框怎样实现回车键事件?
在edit的events属性中有一个OnKeyPress的属性,双击后写下你想要的操作就ok了。下面有张示意图。

求教:用VB做自动键盘按键脚本!就是先按↓然后按回车 2秒循环一次_百度...
Private Sub Form_Load()Timer1.Interval = 2000 Timer1.Enabled = True End Sub Private Sub Timer1_Timer()SendKeys "{DOWN}"SendKeys "{ENTER}"End Sub

用VB写个模拟按键程序 当敲击键盘tab时候,自动输入 abcdefg
使用GetAsyncKeyState函数可以获得键盘的动作。GetAsyncKeyState函数根据虚拟键表判断按键的类型,返回值为一个16位的二进制数,如果被按下则最高位为1,即返回-32767 Private Declare Function GetAsyncKeyState Lib user32 (ByVal vKey As Long) As Integer Private Sub Text1_KeyPress(KeyAscii As Integer)...

相似回答