vb 怎样让程序在点击关闭按钮时弹出提示框？
2个回答
展开全部
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
If MsgBox("确定要退出？", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
e.Cancel = True
End If
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
TableDI
2024-07-18 广告
`VLOOKUP` 匹配出错误的数据通常是由于以下几个原因：1. **查找值错误**：输入的查找值与数据源中的值不匹配，可能是因为拼写错误、大小写不一致或存在不可见的字符。2. **查找区域设置错误**：查找区域的首列必须包含要查找的值，且...
点击进入详情页
本回答由TableDI提供
展开全部
Private Sub cmdEXIT_Click() '退出按钮
Private Sub Form_Unload(Cancel As Integer) '窗体的关闭按钮
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "是否要确定退出 ?" ' 定义信息。
Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定义按钮。
Title = "程序退出对话框" ' 定义标题。
Help = "DEMO.HLP" ' 定义帮助文件。
Ctxt = 1000 ' 定义标题
' 上下文。
' 显示信息。
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 用户按下“是”。
MyString = "Yes" ' 完成某操作。
unload me '关闭程序
End If
End Sub
Private Sub Form_Unload(Cancel As Integer) '窗体的关闭按钮
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "是否要确定退出 ?" ' 定义信息。
Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定义按钮。
Title = "程序退出对话框" ' 定义标题。
Help = "DEMO.HLP" ' 定义帮助文件。
Ctxt = 1000 ' 定义标题
' 上下文。
' 显示信息。
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 用户按下“是”。
MyString = "Yes" ' 完成某操作。
unload me '关闭程序
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
