请问,vb中点击了窗体上的关闭按钮会触发什么事件
请问,点击了窗体上的关闭按钮会触发什么事件,如果我想在点击了关闭关闭按钮后弹出一个msgbox,上面有两个按钮,一个“是”,一个“否”,我应该如何编写代码在选择了“是”后...
请问,点击了窗体上的关闭按钮会触发什么事件,如果我想在点击了关闭关闭按钮后弹出一个msgbox,上面有两个按钮,一个“是”,一个“否”,我应该如何编写代码在选择了“是”后窗体不关闭
展开
4个回答
展开全部
Private Sub Form_QueryUnload(Cancel As Integer, unloadmode As Integer)
If MsgBox("你真的要退出吗? ", vbOKCancel) <> vbOK Then Cancel = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("你真的要退出吗? ", vbOKCancel) <> vbOK Then Cancel = True
End Sub
If MsgBox("你真的要退出吗? ", vbOKCancel) <> vbOK Then Cancel = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("你真的要退出吗? ", vbOKCancel) <> vbOK Then Cancel = True
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("你真的要退出吗?", vbOKCancel, "提示") = vbCancel Then
Cancel = True
End If
End Sub
If MsgBox("你真的要退出吗?", vbOKCancel, "提示") = vbCancel Then
Cancel = True
End If
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub Form_Unload(Cancel As Integer)
If Cancel = 0 Then
a = MsgBox("不能关闭此窗口", "68")
If a = 6 Then
Cancel = 1
End If
End If
End Sub
If Cancel = 0 Then
a = MsgBox("不能关闭此窗口", "68")
If a = 6 Then
Cancel = 1
End If
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub Form_Unload(Cancel As Integer)
IF MSGBOX("是否关闭?",vbyesno) =vbno then cancel=true
End Sub
IF MSGBOX("是否关闭?",vbyesno) =vbno then cancel=true
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询