VB选择对话框怎么做。

Posted 2023-03-22

比如点击一个按钮，弹出对话框，`有一段文字，下面有两个按钮，同意和取消呢？

以msgbox为例，根据返回值判断即可。

示例：

Dim aa As Long '定义用于接收变量
aa = MsgBox("是否确定", vbYesNo, "提示选择：") '提示选择对话框
If aa = 6 Then '判断按钮值，是为6，否为7
MsgBox "你按了是"
Else
MsgBox "你按了否"
End If

参考技术A '你的意思应该是如果点击同意执行某个时间，取消就退出或执行另一个事件吧
if MsgBox("框中显示的内容", vbOKCancel, "标题") = vbOK then
'点击确定执行的事件
end if
if MsgBox("框中显示的内容", vbOKCancel, "标题") = vbCancel then
'点击取消执行的事件或者干脆就exit sub/function
end if
'最好是MsgBox("框中显示的内容",vbQuestion + vbOKCancel, "标题") ,这样好看点追问

if MsgBox("框中显示的内容", vbOKCancel, "标题") = vbOK then
'点击确定执行的事件
换成纯代码

追答

实际上"框中显示的内容"就是你想显示的东西，可以用中文提示
"标题"就是提示、注意这一类的在显示消息框最左上角的东西

本回答被提问者采纳 参考技术B msg=msgbox(”框中显示的内容“,49,"标题") 参考技术C 使用Msgbox函数就可以了！

能不能通过vb调出一个选择文件的对话框？

参考技术A 添加一个CommonDialog控件，一个按钮，一个文本框，在按钮代码如下：
Private
Sub
Command1_Click()
CommonDialog1.ShowOpen
Text1.Text
=
CommonDialog1.FileName
End
Sub
Private
Sub
Command2_Click()
Shell
Text1.Text,
vbNormalFocus
End
Sub
运行图：
注意，一般只能打开exe格式的文件。