VB6(visual basic 6.0)程序求注释4,谢谢 5
PrivateSubForm_Unload(CancelAsInteger)OnErrorResumeNextIfstrLastTopic<>""ThenDDE_Advi...
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
If strLastTopic <> "" Then
DDE_AdviseStop strLastTopic, strLastField, ""
End If
If (g_hDDEConv <> 0) Then
DDE_Disconnect
End If
End Sub 展开
On Error Resume Next
If strLastTopic <> "" Then
DDE_AdviseStop strLastTopic, strLastField, ""
End If
If (g_hDDEConv <> 0) Then
DDE_Disconnect
End If
End Sub 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询