在线等，垃圾VB问题，急

来源：百度知道编辑：UC知道时间：2024/07/02 15:20:51

我正在做急啊
在VB窗口添加一个按钮“退出”点击后显示“是否退出，下面是确定和取消”
点击确定后关闭这个程序（窗口），取消仍留在此程序（窗口）
说的有点复杂

private sub command1_click()
If MsgBox("是否退出，下面是确定和取消", vbOKCancel) = vbOK Then
End
Else
Exit Sub
End If

end sub

是够垃圾的！

是很简单但是VB我好长时间没动了忘了具体代码了
楼下的优点复杂啊太繁琐了

用MsgBox
例子代码如下:

dim a

a = MsgBox ("真的要退出吗！" , 1 , "标题栏" )

然后加个IF返回值就行了

确定的返回值是1 取消的是2

If MsgBox("是否退出？", vbOKCancel + vbDefaultButton2) = vbOK Then
End
End If