单击VB的commdandButton按钮时弹出对话框

来源：百度知道 编辑：UC知道 时间：2024/06/14 15:50:21
我一菜鸟，希望高手帮忙下

我想做个按钮 单击这个按钮时会弹出个对话框 对话框里会显示 “确定是否关闭该程序” 并且有2个按钮，单击“是”的时候会关闭该程序，单击“否”的时候则不会关闭
这个怎么设置啊？（代码怎么写）

先谢！

Private Sub xpcmdbutton1_Click()
Dim a As Integer
a = MsgBox("确定要退出程序吗？", 1, "友情提示")
If a = 1 Then Unload Me
End Sub

command1_click()
if msgbox("确定是否关闭该程序！",vbyesno)=vb_yes then
end
end if
end sub