VB控制另一个程序中的按扭 VB高手进

来源：百度知道 编辑：UC知道 时间：2024/06/15 12:25:51
我有两个程序 ,其中一个程序中有五个按扭.一个TEXT.
然后我想写一个VB小程序能控制第一个程序的按扭.
加分
是分开的两个程序 .一楼的大哥我就想要第二种方法的源码啊.能给不?

这要用到较多的API函数。以下代码是在已知窗口某个按钮句柄的情况下，向对方发送回车命令的例子。

Option Explicit
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101

Private Sub Command1_Click()
Dim hwd As Long
hwd = 123456 '请在此改为实际的目标控件的句柄
PostMessage hwd, WM_KEYDOWN, vbKeyReturn, 0 '向目标句柄发送回车键
PostMessage hwd, WM_KEYUP, vbKeyReturn, 0
End Sub

两个方法
第一用到进程间的通讯技术；这需要在被控程序加上识别状态标识转换的代码，再根据状态标识改变控件状态。

第二用消息改变被控程序控件的状态。

两个form是在同一个工程中吗？如果是那么你可以把第一个form的按扭的事件用public定义，然后在小程序中调用第一个form的事情，前面带上form名就行了。例如
先将原来的Private Sub Command1_Click()改成
public Sub Command1_Click()
然后再在小程序中写
call form1.command1_click

第1个程序 设置参数 ，第二个利用参数 传递命令

或者调用 API 查找窗体 调用鼠标键盘 来操作

别的估计不 能实现了