怎样在两个VB程序之间传递信息？

Question

怎样在两个VB程序之间传递信息？简单一点。例如我要用一个按钮(Command1)把这个程序上的Text1里的内容(Text1.text)传递到与这个程序一起运行的另一个VB程序的Text1里，两个程序都是我编的。

Answer 1

可以用动态数据交换(Dynamic Data Exchange,DDE)实现进程之间的通信。

发送端：

添加Command1，Text1控件，Text1的内容用于发送。

代码如下：

Private Sub Command1_Click()
Dim t As Long
Text1.LinkMode = 0
Text1.LinkTopic = "Child|FrmChild" '注意此处一定与接收的程序名称和连接的标题相同否则连接不成功。
Text1.LinkMode = 2
Text1.LinkExecute Text1.Text
t = Text1.LinkTimeout
Text1.LinkTimeout = 1
Text1.LinkMode = 0
Text1.LinkTimeout = t
End Sub

接收端：

添加Text1控件，Text1的内容用于接收。设置工程名称为Child（与发送的程序名对应），设置窗体的LinkMode属性为1，LinkTopic为FrmChild(对应上面发送的标题)。

Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)
Text1 = CmdStr
Cancel = 0
End Sub

编译后，先运行接收端，然后运行发送端，输入内容，发送即可成功。

Answer 2

这个呢不知道你要达到什么效果，最简单的是共同调用一个文件，比如command1单击后吧text1的内容写入一个txt文件中，然后另一个程序打开txt文件读取！

Answer 3

可以通过sock 发消息，或者在注意表里共享一个键。或者查找程序窗口然后SendMessage 发消息。

Answer 4

ActiveX.exe或者DDE
MSND中有DDE的示例，很简单的....

Answer 5

自定义消息
然后处理回调