DDE闂(瀹㈡埛绔拰鏈嶅姟绔氨鏄繛鎺ヤ笉涓婏紝璇烽珮鎵嬫寚鐐广€?

DDE闂锛氬鎴风鍜屾湇鍔＄灏辨槸杩炴帴涓嶄笂锛岃楂樻墜鎸囩偣銆?瀹㈡埛绔唬鐮侊細
Private Sub Form_Load()
  Text1.LinkTopic = "鏈嶅姟宸ョ▼|DDE_Text"
  Text1.LinkItem = "txtserver"
  Label2.LinkTopic = "鏈嶅姟宸ョ▼|DDE_Text"
  Label2.LinkItem = "clock"
  
Retry:
  On Error GoTo Handle  
  Label2.LinkMode = 1    
  Cmdreq.Enabled = False
  cmdUpdate.Enabled = True
    
Handle:
  If Err = 282 Then    
     Dim x
     Dim Fname As String
        
     Fname = App.Path + "\鏈嶅姟宸ョ▼.exe"
     x = Shell(Fname, vbNormalFocus)
     Exit Sub
     Resume Retry
  Else
     Error Err
     Exit Sub
  End If
End SubPrivate Sub Option1_Click(Index As Integer)
  Select Case Index
    Case 0                                
     Text1.LinkMode = 1
      Cmdreq.Enabled = False
      Label1.Caption = "璁剧疆浜嗚嚜鍔ㄦ柟寮?
    Case 1     'Manual                     
      Text1.LinkMode = 2
      Cmdreq.Enabled = True
      Label1.Caption = "璁剧疆浜嗘墜鍔ㄦ柟寮?
    Case 2    ' Notify                      
      Text1.LinkMode = 3
      Cmdreq.Enabled = False
      Label1.Caption = "璁剧疆浜嗛€氱煡鏂瑰紡"
    Case 3
      Text1.LinkMode = 0
      Cmdreq.Enabled = False
      cmdUpdate.Enabled = False
      Label1.Caption = "DDE瀵硅瘽缁撴潫"
  End Select
End SubPrivate Sub Text1_LinkNotify()
  Label1.Caption = "鏁版嵁宸叉敼鍙橈紝璇锋寜[鏇存柊]鎸夐挳鎺ュ彈鏂版暟鎹紒"
  cmdUpdate.Enabled = True
End SubPrivate Sub Cmdreq_Click()
  Text1.LinkRequest
End SubPrivate Sub cmdUpdate_Click()
  Text1.LinkRequest          
  cmdUpdate.Enabled = False  
End SubPrivate Sub Text1_LinkError(LinkErr As Integer)
  MsgBox "DDE閾炬帴閿欒锛?
End Sub
鏈嶅姟绔唬鐮侊細
Private Sub cmdExit_Click()
  End
End SubPrivate Sub Form_Load()
  TxtServer.Text = "   濂冲＋浠紝鍏堢敓浠紝璇锋敞鎰忥紒   鏈湇鍔″櫒灏嗗彂甯冩渶鏂版秷鎭€?
End Sub
Private Sub Timer1_Timer()
  Clock.Caption = Time$
End Sub