在VB中如何将 确定 与键盘上的 回车健 对应起来

vb模拟键盘回车怎么做~

给你一个思路，打开exe程序后 先获取当前窗口焦点 然后再用sendkeys"{enter}"应该可以的

keybd_event

'模块
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Public Const KEYEVENTF_EXTENDEDKEY = &H1
Public Const KEYEVENTF_KEYUP = &H2

'窗体
Private Sub Timer1_Timer()
Call keybd_event(13, 0, 0, 0)
Call keybd_event(13, 0, KEYEVENTF_KEYUP, 0)
End Sub



就是我说的这样喽。
Enter的Ascii是13，timer的时间控制间隔长短

准确的方法是FindWindow来寻找窗体，这个肯定是子窗体了。
可能要用FindWindowEx，然后找到的话在SendMessage WM_KeyDown
VK_Enter到找到的HWND。
如果不需要太准确。直接模拟键盘
Call keybd_event(13, 0, 0, 0)
Call keybd_event(13, 0, KEYEVENTF_KEYUP, 0)

Command1.Default=-1

.Default 属性：对应“按下Enter(13)键启动Click过程”
当然.Cancel属性就是按下Esc启动Click过程

将确定这个按钮的Default = True

比如:

Command1.Default = True

ASC码等于13。。也可以在属性那里设置Default=ture.
Cancel是按下ESC对应的.

将command控件的Default属性改为True就行

如果你的窗体上有文本框，想输入文本数据之后直接按回车确定的话可以这样写

private Text1_KeyPress(keyascii as integer)
if keyascii=13 then
command1_click()
end if
end sub

---

在VB中如何将 确定 与键盘上的 回车健 对应起来视频