如何给窗口右上角的关闭按钮写点脚本??

Question

'要试用此例请在窗体中粘贴如下代码
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Select Case UnloadMode
    Case vbFormControlMenu
        MsgBox "用户从窗体上的“控件”菜单中选择“关闭”指令。", vbInformation
    Case vbFormCode
        MsgBox "Unload 语句被代码调用。", vbInformation
    Case vbAppTaskManager
        MsgBox "Microsoft Windows 任务管理器正在关闭应用程序。", vbInformation
    End Select
End Sub
如果不想窗体被关闭就Cancel将设为大于0的数就行了

Answer 1

　happy_gambler(赌徒)　怎么到处up啊,又来蹭分来了??^_^呵呵

Answer 2

在VB中，缺省采用传值调用
如不想关闭窗口，只用在
Form_QueryUnload中设形参cancel=1即可