Private Sub Form_Load()
Text1.LinkItem = "txtserver"
Text1.LinkTopic = "服务工程|DDE_test"
Label2.LinkItem = "clock"
Label2.LinkTopic = "服务工程|DDE_test"
retry:
On Error GoTo handle
Label2.LinkMode = 1
cmdReq.Enabled = False
cmdUpdate.Enabled = False
Exit Sub
handle:
If Err = 282 Then
Dim x
Dim fname As String
fname = (App.Path + "\服务工程.exe")
x = Shell(fname, vbNormalFocus)
Resume retry
Else
Error Err
End If
End Sub
Private Sub Label2_Click()
Label2.LinkTopic = "服务工程|DDE_Test"
Text1.LinkItem = "txtServer"
End Sub
Private Sub Text1_Change()
Text1.LinkTopic = "服务工程|DDE_Test"
Text1.LinkItem = "txtserver"
End Sub
但是我又遇到了新问题:程序运行后出现重复循环,不停地弹出“服务工程.exe”这个被调用程序的窗口。
请问这是怎么回事?