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
本回答被网友采纳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
vb 让程序点击关闭按钮时弹出提示框
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 = "...
VB如何弹出提示框?
可以通过MsgBox函数调用提示框。\\x0d\\x0amsgbox函数有两种格式，一种带返回值，一种不带返回值\\x0d\\x0a代码如下：\\x0d\\x0aMsgBox "提示内容" ， ， “提示框标题” ‘不带返回值\\x0d\\x0aD=Msgbox （“提示内容”， ， “提示内容”） ’D为返回值，可以知道用户按下哪个按钮。
VB如何编写简单弹出对话框的代码?
直接用MSGBOX函数即可。不需要控件。代码如下：Private Sub Command1_Click()x = MsgBox("确定要退出吗？",vbYesNo,"提示")If x = vbYes Then End End If End Sub 希望能帮助到你 不懂请追问。
如何设置VB点退出按钮时,自动关闭VB程序
1、首先，在打开的VB编程软件中，写上一个程序框架。2、然后就可以在这里输入各种语句，根据自己需要可以多输几句。3、然后找到自己输入的两个语句块的中间部分。4、接着在中间的部分中，输入语句 【Exit sub】。5、最后输入完成后，就可以点击页面上方的运行选项按钮，去运行测试了。
在VB中,怎样让它弹出对话框?
vbNo 7 No 说明 在提供了 helpfile 与 context 的时候，用户可以按 F1(Windows) or HELP (Macintosh) 来查看与 context 相应的帮助主题。像 Microsoft Excel 这样一些主应用程序也会在对话框中自动添加一个 Help 按钮。如果对话框显示 Cancel 按钮，则按下 ESC 键与单击 Cancel 按钮的效果相同。
在VB中点击一个按钮会出现msgbox"您确定要退出程序吗?", vbYesNo +...
很简单的， 看代码 Msg = "您确定要退出程序吗？"Style = vbYesNo + vbCritical + vbDefaultButton2 Title = "提示"Response = MsgBox(Msg, Style, Title)If Response = vbYes Then End End If
点击关闭电脑后VB程序弹出确定提示,点确定关闭电脑,点取消不关闭...
VB根本做不到这点。关机，不管是手动按下开始---关机，还是某个程序执行了关机命令。这都是向系统内部发送的命令。VB无法得知和拦截其他程序运行的代码。
VB中,如果文本框中没有输入东西,就点命令按钮,如何弹出对话框提示?
Msgbox "请输入XXX",Vbcritical,"提示" (弹出对话框）text1="" （清空文本框内容）text1.Setfocus （文本框获得输入焦点)end if End Sub 注意：当中的Trim()作用为去除其括号内对象内容两端的空格，最好不要省略，因为用户有可能会在该对象（如例中的文本框）内输入空格后点击命令按钮，...
单击VB的commdandButton按钮时弹出对话框
Private Sub xpcmdbutton1_Click()Dim a As Integer a = MsgBox("确定要退出程序吗？", 1, "友情提示")If a = 1 Then Unload Me End Sub
如何让vbs弹出提示
两种方法：1 : msgbox a=msgbox("67890",4096+64,"12345")2: popup(比msgbox多了自动关闭功能)createobject("wscript.shell").popup"67890",3,"12345",4096+64 '3秒后自动关闭 ps: 其中4096+64为参数 可选如下：vbOKOnly 0 只显示“确定”按钮（缺省值）VbOKCancel 1 显示“...
