我想在用户点击窗体的关闭按钮时用msgbox给出提示
但是不知道怎么做啊
我用form unload事件不行啊
请高手教教我啊

解决方案 »

  1.   

    unload me
    msgbox "你想要的提示",vb..,"vb..."这样加不行吗?
      

  2.   


    Private Sub Form_Terminate()
        MsgBox ("aaaaaaaaaaa")
    End SubForm 的 Terminate 事件里~~~
      

  3.   

    Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
     If MsgBox("Exit?", vbYesNo) = vbNo Then Cancel = True
    End Sub
      

  4.   

    Private Sub Form_Terminate()
        MsgBox ("aaaaaaaaaaa")
    End Sub
    不管用户点击什么都会关闭窗体啊Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
     If MsgBox("Exit?", vbYesNo) = vbNo Then Cancel = True
    End Sub
    在使用 
    otherfrm.show
    unload me
    的时候也会给出提示,怎么解决啊谢谢各位了!!!
      

  5.   

    Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
       Dim Msg 
       If UnloadMode <> 1 Then
          Msg = "Do you really want to exit the application?"
          If MsgBox(Msg, vbQuestion + vbYesNo, Me.Caption) = vbNo Then Cancel = True
       End If
    end Sub
    我用这个代码搞定了
    大家帮忙看看有没有问题啊
    再次谢谢各位
    没有问题,一会过来结贴
    ^_^unloadmode 参数返回下列值:常数 值 描述 
    vbFormControlMenu 0 用户从窗体上的“控件”菜单中选择“关闭”指令。 
    vbFormCode 1 Unload 语句被代码调用。 
    vbAppWindows 2 当前 Microsoft Windows 操作环境会话结束。 
    vbAppTaskManager 3 Microsoft Windows 任务管理器正在关闭应用程序。 
    vbFormMDIForm 4 MDI 子窗体正在关闭,因为 MDI 窗体正在关闭。 
    vbFormOwner 5 因为窗体的所有者正在关闭,所以窗体也在关闭。