关于VB制作.EXE的一个问题.

来源：百度知道 编辑：UC知道 时间：2024/06/07 01:34:52
就是自己做了个.EXE的程序,想让用户在点击程序上的关闭按钮是跳出个对话框,提示内容是"您是否确定要退出?",点是,退出程序;点否,返回程序.具体的代码应该是什么以及该在哪弄?谢谢0.0

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("您是否要退出？", vbYesNo, "提示") = vbYes Then
calcel = 0
Else
Cancel = 1
End If
End Sub

楼主写得很对！
如果要用Command1关闭，只须要在Command1_Click()事件里写上楼主的代码就行了。

建1个command1
Private Sub command1_click(Cancel As Integer)
If MsgBox("您是否要退出？", vbYesNo, "提示") = vbYes Then
end
End If
End Sub

建1个command1
Private Sub command1_click(Cancel As Integer)
dim ys as string
ys=MsgBox("您是否要退出？", vbYesNo, "提示")
If ys = vbYes Then
end
else
exit sub '返回程序界面
End If
End Sub