VB如何在2个程序间传递数据

来源：百度知道 编辑：UC知道 时间：2024/05/22 11:01:04
问下各位大虾
我在运行一个程序时要调用另一个程序要用SHELL函数
请问要调用的程序如何接受传递给它的数据呢？
要调用的程序要返回一个值时调用它的程序又如何接受？
请各位指点！～
本人自学 比较菜 请多多帮助

'用DDE.
添加一个Text Name = txtInfo 和 一个Picture Name = picDDE
将工程名称改为 P1
Const COMMANDLINE = "CommandLine=" ' 还是为了省事，定义一个常量

Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)
Static lngCount As Long
Dim Info As String

Info = txtInfo.Text ' 保留原有信息

Select Case CmdStr ' CmdStr 是DDE程序传送过来的参数
Case "Max"
Me.WindowState = 2
Info = Info + vbNewLine + "窗体已被最大化"
Case "ShowTime"
Info = Info + vbNewLine + "最后一次运行这个程序的时间是：" + Str(Now)
Case "Count"
lngCount = lngCount + 1
Info = Info + vbNewLine + "你已经第" + Str(lngCount) + "次重复调用这个程序。" _
+ vbNewLine + "但怕您不多给工资，所以只运行了一个 ^_^"
End Select

If Left(CmdStr, Len(COMMANDLINE)) = COMMANDLINE Then
Info = Info + vbNewLine + "新程序曾以命令行形式运行" + vbNe