怎么改变 VB 窗体上关闭按钮的事件代码？

[unhappyless_13]

怎么改变 VB 窗体上关闭按钮的事件代码？

[unhappyless_01]

我的意思就是 按关闭按钮后有msgbox提示，点取消，窗体不关闭。但我用大家的方法不行，我用的是 MDI 窗体

[lailuboy]

一样的
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim affrim As Integer
affrim = MsgBox("是否要退出系统？", vbOKCancel + vbQuestion, "退出")
If affrim = 2 Then
Cancel = True
Exit Sub
Else
End
End If
End Sub

[砸死牛顿的苹果]

在unload 事件中添加代码即可
Private Sub Form_Unload(Cancel As Integer)
cancel=1 '取消关闭窗口
....
End Sub

[chenhui530]

什么意思啊
把问题说清楚？？

[cangwu_lee]

没有理解错的话，

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

End Sub

Private Sub Form_Unload(Cancel As Integer)

End Sub



里面写自己的代码

[zzyong00]

Private Sub Form_Unload(Cancel As Integer)
if msgbox("exit or not?",vbyesno) then
cancel=1
endif
End Sub

[lailuboy]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
if msgbox("exit or not?",vbyesno)=vbyes then
cancel=true
else
cancel=false
endif
End Sub

[explore_xu]

我之前也遇到过这个问题，当时没有注意到Cancel这个变量，现在终于明白了

[tinsang]

Private Sub MDIForm_Unload(Cancel As Integer)
If MsgBox("你确定要退出吗？", 49) = vbCancel Then
Cancel = 1
End If
End Sub

[tinsang]

这个我一直这样用的，你可以试试看。

[unhappyless_13]

可以了，谢谢大家。但还有两点不懂：

If affrim = 2 Then
Cancel = True
Exit Sub
Else
End ' end 什么作用？？？第一次见到
End If



Form_Unload 与 Form_QueryUnload 有什么区别？