请教pigpag老师关于DDE的问题(分不多了^x^)
根据你过去发的《用DDE技术为程序增辉》一文,我学写了下面的例子:
==========================================================
'DDE用法的简单例子
'新建工程,窗体上放一个Label1,设窗体LinkMode为1,添加代码:
Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)
If Len(CmdStr) Then MsgBox (CmdStr) Else Me.SetFocus
Cancel = 0
End Sub
Private Sub SendDDEMsg(ByVal Msg As String)
With Label1
.LinkTopic = "工程1|Form1"
.LinkMode = 2
.LinkExecute Msg
End With
End Sub
Private Sub Form_Load()
If App.PrevInstance Then
Me.LinkTopic = ""
Me.LinkMode = 0
Call SendDDEMsg(Command)
Unload Me: End
Else
If Len(Command) Then MsgBox (Command)
End If
End Sub
==========================================================
编译后运行,能正常与另一实例进行对话,但仍有个小问题,即:如果在有过一次对话之后关闭程序,然后在极短的时间内再次运行程序,则会产生一个运行时错误282,几秒钟后再运行则完全正常
请教,是我的代码哪里有问题吗?可以避免这个错误的发生吗?
虽然不是大问题,但仍让我感觉不爽~
请赐教~