＋设为首页 ＋添加到收藏夹
1点击右上角的关闭图标，如何使得弹出一个对话框提示是否关闭该窗口。
2弹出以窗体如何使得其他窗体都被禁止。
在form.unload里面，msgbox,选否，则cancel=true
模式
1. 在 Form_Unload 里面编程
2. Form1.Show vbModal
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("您是否要退出系统 ？", 4 + 32 + 256, "考勤系统") = vbYes Then
End
Else
Cancel = True
End If
End Sub
问题1 :
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("确定关闭程序吗?", 32 + vbYesNo, "关闭") = vbYes Then
Cancel = False
Else
Cancel = True
End If
End Sub
问题2：
frmxx.show vbmodal
2.
Form2.Show 1
问题1 :
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("确定关闭程序吗?", 32 + vbYesNo, "关闭") = vbYes Then
Cancel = False
Else
Cancel = True
End If
End Sub
问题2：
frmxx.show vbmodal
1. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Select Case MsgBox("確定要退出本窗口嗎?", vbYesNo, "詢問")
Case vbYes
關閉窗口
你的處理代碼
Case vbNo
取消關閉窗口
Cancel = True
你的處理代碼
End Select
End Sub
2. Form1.Show vbModal
. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
if MsgBox("要退出本窗口吗?", vbYesNo, "提示")=vbyes then
end
else
Cancel =true
End Sub
2. Form1.Show vbModal
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
If MsgBox("确定要退出系统吗?", vbYesNo + vbQuestion) = vbNo Then Cancel = 1
End Sub
最好不要用END语句结束程序,这样会造成资源泄漏!!
哈哈。。。这么多答对的。。我看楼主怎么给分啊。。。哈哈。。。
这些问题简单的，可以在一般的VB书上都可以看的到的了
1、
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("是否确定要退出系统？", vbQuestion + vbYesNo, StrInfo) = vbNo Then Cancel = 1
End Sub
2、
form1.show vbmodal
赞同 Suron128(辰龍)
1. 在 Form_Unload 里面编程
2. Form1.Show vbModal
1.
Private Sub MDIForm_Unload(Cancel As Integer)
t = MsgBox("close?", vbOKCancel)
If t = 1 Then
Cancel = 0
Else
Cancel = 1
End If
End Sub
其中参数cancel用于控制窗体是否关闭，0表示关闭，1不关
---------------------------------------------------------
2。
form1.show vbmodal
后来的就不要回答了，以免为难楼主。还是up吧！
1.Form_QueryUnload也是可以的。注意，用End关闭不会触发任何VB事件。
