我的MDI主表單UNLOAD程序的程式碼
Private Sub MDIForm_Unload(Cancel As Integer)
Dim nid As NOTIFYICONDATA
If Logout1 = True Then
nid.cbSize = Len(nid)
nid.hWnd = Me.hWnd
nid.uID = 9999
Shell_NotifyIconA NIM_DELETE, nid
Else
u = MsgBox("±z½T©w­nÂ÷¶}¥»µ{¦¡¡H", vbQuestion + vbYesNo, "Â÷¶}")
If u = vbYes Then

nid.cbSize = Len(nid)
nid.hWnd = Me.hWnd
nid.uID = 9999
Shell_NotifyIconA NIM_DELETE, nid
Unload Me
Else
Cancel = True
End If
End If
End Sub
如果我要按關閉然後詢問確認關閉與否時別讓子MDI表單自動關閉
該怎辦?每次我按主表單關閉的時候還在詢問是否關閉我的子表單都會先載出了....
誰能幫幫我謝謝
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(9) 人氣()