防止窗口关闭的问题

Question

1,是这样的,我想在窗口关闭的时候(就是点窗口上的那个叉叉),提醒我一下,有没有保存,如果我没有保存的话,将拒绝关闭我的程序.我在窗口的unload事件中,总也实现不了,谁帮我一下?
2,我有一个窗口,上面有一个text控件,一个command控件,和一个commondialog控件,我想实现这样的功能,当我点击按钮后,弹出commondialog,然后当我选择好了文件后,点击打开,或者双击文件时,那个text中就会出现此文件的绝对路径,怎么弄?

Answer 1

Private Sub Form_Unload(Cancel As Integer)
Cancel = 1'这个就是取消关闭
End Sub

Answer 2

第二个问题:Private Sub Command1_Click()
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub

Answer 3

应该用这个Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode =0 Then  '如果是点窗口上的那个叉叉关闭的
        if 没有保存 then
            Cancel = 1   '取消关闭
        End If
    End If
End Sub

Answer 4

第一个问题,在 goodnow(好了)基础上改一下
 Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
        if 没有保存 then
            Cancel = 1   '取消关闭
        else
            cancel=0
        End If
End Sub

Answer 5

unloadmode 参数返回下列值：常数 值 描述 
vbFormControlMenu 0 用户从窗体上的“控件”菜单中选择“关闭”指令。 
vbFormCode 1 Unload 语句被代码调用。 
vbAppWindows 2 当前 Microsoft Windows 操作环境会话结束。 
vbAppTaskManager 3 Microsoft Windows 任务管理器正在关闭应用程序。 
vbFormMDIForm 4 MDI 子窗体正在关闭，因为 MDI 窗体正在关闭。 
vbFormOwner 5 因为窗体的所有者正在关闭，所以窗体也在关闭。