UC知道VB点击出窗口 在线等
来源：百度知道 编辑：UC知道 时间：2024/06/15 15:04:15
怎么让点击 XX 弹出一个成功的窗口然后点击确定这个小窗口推出.
还有一个是.XX 直接退出的
还有一个是.XX 直接退出的
Private Sub Command1_Click()
MsgBox "成功"
End
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command1_Click()
msgbox "OK"
End
End Sub
Private Sub Command2_Click()
End
End Sub
‘使用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
'在窗体中加入下面代码，当点击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
'---------------------------------------------