7,785
社区成员




'程序1:
添加一个FORM,两个BUUTON按钮Command1、Command2
Option Explicit
Private Sub Command1_Click()
Shell App.Path & "\Project2.exe /1"
End Sub
Private Sub Command2_Click()
Shell App.Path & "\Project2.exe /2"
End Sub
Private Sub Form_Load()
Command1.Caption = "调用EXE2功能1"
Command2.Caption = "调用EXE2功能2"
End Sub
'=====================================
'程序2:
'添加 FORM1:一个PICTURE控件name=picDDE
'添加 frmMain:一个TEXTBOX控件
'添加一个MODULE
-------------
'FORM1代码:
Option Explicit
Private Sub Form_LinkExecute(ByRef CmdStr As String, Cancel As Integer)
With frmMain
Select Case CmdStr
Case "/1": .aaa
Case "/2": .bbb
End Select
End With
Cancel = False
End Sub
Private Sub Form_Load()
ccc = Command
If Len(ccc) > 0 Then
If App.PrevInstance Then
Me.LinkTopic = "": Me.LinkMode = 0 '
Me.Caption = "NEWSTART"
LinkAndSendMessage ccc
End
Else
Call Main
End If
Else
If App.PrevInstance Then Unload Me Else Call Main
End If
End Sub
Private Sub LinkAndSendMessage(ByVal Msg As String)
Dim t&
picDDE.LinkMode = 0
picDDE.LinkTopic = App.EXEName & "|FormDDE"
picDDE.LinkMode = 2
picDDE.LinkExecute Msg
t = picDDE.LinkTimeout
picDDE.LinkTimeout = 1
picDDE.LinkMode = 0
picDDE.LinkTimeout = t
End Sub
'--------------------------------
'frmMain代码
Option Explicit
Public Sub aaa()
Text1 = "第2个程序的功能1"
End Sub
Public Sub bbb()
Text1 = "第2个程序的功能2"
End Sub
Private Sub Form_Load()
Me.Show
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
'-----------------------------
'MODULE代码
Option Explicit
Public ccc$
Sub Main()
Select Case ccc
Case "/1": frmMain.aaa
Case "/2": frmMain.bbb
Case Else: frmMain.Show
End Select
End Sub