DDE闂锛氬鎴风鍜屾湇鍔＄灏辨槸杩炴帴涓嶄笂锛岃楂樻墜鎸囩偣

[wujingyi88888]

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 Sub

Private 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 Sub

Private Sub Text1_LinkNotify()
Label1.Caption = "鏁版嵁宸叉敼鍙橈紝璇锋寜[鏇存柊]鎸夐挳鎺ュ彈鏂版暟鎹紒"
cmdUpdate.Enabled = True
End Sub

Private Sub Cmdreq_Click()
Text1.LinkRequest
End Sub

Private Sub cmdUpdate_Click()
Text1.LinkRequest '璇锋眰寰楀埌鏂版暟鎹? cmdUpdate.Enabled = False '缃甗鏇存柊]鎸夐挳涓嶅彲鐢? End Sub

Private Sub Text1_LinkError(LinkErr As Integer)
MsgBox "DDE閾炬帴閿欒锛?
End Sub
鏈嶅姟绔唬鐮侊細
Private Sub cmdExit_Click()
End
End Sub

Private Sub Form_Load()
TxtServer.Text = " 濂冲＋浠紝鍏堢敓浠紝璇锋敞鎰忥紒 鏈湇鍔″櫒灏嗗彂甯冩渶鏂版秷鎭€?
End Sub
Private Sub Timer1_Timer()
Clock.Caption = Time$
End Sub