如何在VB程序“B”中控制另一个VB程序“A”中的命令控件？

每个程序都需要添加一个winsock控件(Ctrl+T调出组件对话框，里面包含微软Winsock控件6.0)。

一个程序

私有子窗体_Load()

Winsock1。Protocol = sckUDPProtocol

Winsock1。“绑定8002”被绑定到本地端口。

末端接头

Private Sub Command1_Click()'这是测试代码，需要根据需要修改。

MsgBox "1 "

末端接头

Private Sub Command2_Click()'这是测试代码，您需要根据需要修改它。

MsgBox "2 "

末端接头

私有Sub Winsock 1 _ data arrival(ByVal bytes total As Long)

Dim strData作为字符串

Winsock1。GetData strData

Select Case strData '根据发送的信息判断点击哪个按钮。

案例“c1”

命令1_Click

案例“c2”

命令2_Click

结束选择

末端接头

b计划

私有子命令1_Click()

Winsock 1。send data“c 1”对应于一个程序。

末端接头

私有子命令2_Click()

Winsock1。发送数据“c2”对应于一个程序。

末端接头

私有子窗体_Load()

Winsock1。Protocol = sckUDPProtocol

使用Winsock1

因为每个人都需要和A交流，所以以下在b都一样。

。remote host = " 127 . 0 . 0 . 1 " '这是指这台机器。

。“远程端口= 8002”连接A的端口号..通信

以…结尾

末端接头