Question

vb怎么定义一个msgbox里按钮用来关闭弹出的对话框

比如
private sub form_load()
commandcaptoin="结束"
private sub command_click()
“这个地方应该写什么，来关闭有这个按钮的对话框”
end sub

Answer 1

me.close()

Answer 2

Private Sub Command1_Click()
Dim yesno As Integer
yesno = MsgBox("关闭？", vbYesNo, "提示")
If yesno = vbYes Then
Unload Me
End If
End Sub

追问

你这个开完之后怎么蓝屏了 ？

追答

vbyesno 语句竟然会蓝屏？
是不是你电脑有问题
反正我这代码没问题，要不然我试的时候怎么不蓝屏的。

Answer 3

unload me
卸载本窗体（或者对象）。