VB点击出窗口 在线等

Question

怎么让点击 XX 弹出一个成功的窗口然后点击确定这个小窗口推出.

还有一个是.XX 直接退出的

Answer 1

'在窗体中加入下面代码，当点击X时提示退出
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("是否确定退出", 4 + 64, "系统提示") = vbYes Then
Exit Sub
Else
Cancel = 1
End If
End Sub
'-----------------------------------------------------------------
QueryUnload 事件

在一个窗体或应用程序关闭之前发生。当一个 MDIForm 对象关闭时，QueryUnload 事件先在 MDI 窗体发生，然后在所有 MDI 子窗体中发生。如果没有窗体取消 QueryUnload 事件，该 Unload 事件首先发生在所有其它窗体中，然后再发生在 MDI 窗体中。当一个子窗体或一个 Form 对象关闭时，在那个窗体中的 QueryUnload 事件先于该窗体的 Unload 事件发生。

语法

Private Sub Form_QueryUnload(cancel As Integer, unloadmode As Integer)

Private Sub MDIForm_QueryUnload(cancel As Integer, unloadmode As Integer)

QueryUnload 事件语法包括下列部分：

部分 描述
cancel 一个整数。将此参数设定为除 0 以外的任何值，可在所有已装载的窗体中停止 QueryUnload 事件，并阻止该窗体和应用程序的关闭。
unloadmode 一个值或一个常数，如返回值中所描述的，它指示引起 QueryUnload 事件的原因。

返回值

unloadmode 参数返回下列值：

常数 值 描述
vbFormControlMenu 0 用户从窗体上的“控件”菜单中选择“关闭”指令。
vbFormCode 1 Unload 语句被代码调用。
vbAppWindows 2 当前 Microsoft Windows 操作环境会话结束。
vbAppTaskManager 3 Microsoft Windows 任务管理器正在关闭应用程序。
vbFormMDIForm 4 MDI 子窗体正在关闭，因为 MDI 窗体正在关闭。
vbFormOwner 5 因为窗体的所有者正在关闭，所以窗体也在关闭。

这些常数是在对象浏览器中的 Visual Basic (VB) 对象库中列出。

说明

此事件的典型用法是在关闭一个应用程序之前用来确保包含在该应用程序中的窗体中没有未完成的任务。例如，如果还未保存某一窗体中的新数据，则应用程序会提示保存该数据。

当一个应用程序关闭时，可使用 QueryUnload 或 Unload 事件过程将 Cancel 属性设置为 True 来阻止关闭过程。但是，QueryUnload 事件是在任一个卸载之前在所有窗体中发生，而 Unload 是在每个窗体卸载时发生。

Answer 2

‘使用QueryUnload事件，即可实现你要的功能，不过你描述的不是很清楚，复制下面代码进去。，

---------------------------------------------------------

Option Explicit

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("是否退出", vbYesNo, "提示") = vbYes Then

Cancel = 0

Else

Cancel = 1

End If

End Sub

Answer 3

Private Sub Command1_Click()
MsgBox "成功"
End
End Sub

Private Sub Command2_Click()
End
End Sub本回答被提问者采纳

Answer 4

Private Sub Command1_Click()
msgbox "OK"
End
End Sub

Private Sub Command2_Click()
End
End Sub