VS2010退出窗体时会提示选择是否退出(VB语言)
VS2010如何在用户点击(叉叉)关了窗体时提示用户是否退出,VB语言,就是点击end事件按钮或右上角的X时弹出一个框框,有一个问号的图标,提示“确定退出系统?”,点击“...
VS2010如何在用户点击(叉叉)关了窗体时提示用户是否退出,VB语言,就是点击end事件按钮或右上角的X时弹出一个框框,有一个问号的图标,提示“确定退出系统?”,点击“是”退出,“否”继续留在此页面。
展开
3个回答
展开全部
vb.net已经没有窗体的UnLoad事件,而有窗体的FormClosing事件
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Dim YesNo As MsgBoxResult
YesNo = MsgBox("您确定要关闭本窗体吗?", vbYesNo + vbQuestion, "提示")
If YesNo = vbNo Then
e.Cancel = True
Else
e.Cancel = False
End If
End Sub
我的是VB2005,通过,你试试!
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Dim YesNo As MsgBoxResult
YesNo = MsgBox("您确定要关闭本窗体吗?", vbYesNo + vbQuestion, "提示")
If YesNo = vbNo Then
e.Cancel = True
Else
e.Cancel = False
End If
End Sub
我的是VB2005,通过,你试试!
追答
你应该是断行这行代码了吧?
我今天到学校,找了台2010的机器,试了,完全一样的.
注意:以下两行代码应该是一行的
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
是因为本界面宽度不够,自动换行了,应该是一行的????????
展开全部
Private Sub Form_Unload(Cancel As Integer)
msg = MsgBox("同意否", vbYesNo, "提示")
If msg = vbYes Then '同意
msgbox "同意"
else
msgbox "不"
end if
End Sub
msg = MsgBox("同意否", vbYesNo, "提示")
If msg = vbYes Then '同意
msgbox "同意"
else
msgbox "不"
end if
End Sub
追问
是Visual Studio2010,不是VB
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
If MsgBox("确定要退出吗?", vbQuestion + vbOKCancel, "退出") = vbCancel Then
Cancel = True
End If
Cancel = True
End If
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询