VB如何实现执行某程序，弹出对话框选择是不是要执行，点击是则执行，否则不执行

Posted 2023-05-12

你只要用一个if语句判断msgbox返回的是“是”（vbTure）还是“否”（vbNo）就行了。如果是“是”就不用管它，代码会自动往下执行，如果是“否”就End，代码如下：

If MsgBox("是否执行？", 4 + 32, "提示") = vbNo Then
End
End If 参考技术A MSGBOX "是否执行？", VbOKCancel,"提示"
这个就会弹出一个对话框，VbOKCancel决定了这个对话框有个确定按钮，有个取消按钮
还有下面这些可以选择
vbOKOnly 0 只显示“确定”按钮
VbOKCancel 1 显示“确定”和“取消”按钮
VbAbortRetryIgnore 2 显示“终止”、“重试”和“忽略” 按钮
VbYesNoCancel 3 显示“是”、“否”和“取消”按钮
VbYesNo 4 显示“是”和“否”按钮
VbRetryCancel 5 显示“重试”和“取消”按钮
VbCritical 16 显示“关键信息”图标
VbQuestion 32 显示“警告询问”图标
VbExclamation 48 显示“警告消息”图标
VbInformation 64 显示“通知消息”图标追问

MSGBOX "是否执行？", VbOKCancel,"提示"

为什么点击取消也执行

追答

Dim x As VbMsgBoxResult
dim a as integer
x = MsgBox("是否执行？", vbOKCancel, "提示")
If x = 1 Then
a = 1
Else
a = 2
End If

vb怎么实现弹出对话框选择文件路径

可生成ocx的

VB6.0使用CommonDialog 控件弹出对话框选择文件路径。

通过使用 CommonDialog 控件的 ShowOpen 和 ShowSave
方法可显示“打开”和“另存为”对话框。

两个对话框均可用以指定驱动器，目录，文件扩展名和文件名。除对话的标题不同外，另存为对话外观上与打开对话相似。

下例显示“打开”对话框然后在信息框中显示所选的文件名：

Private Sub Command1_Click()
    \' 设置“CancelError”为 True
    CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    \' 设置标志
    CommonDialog1.Flags = cdlOFNHideReadOnly
    \' 设置过滤器
    CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
    "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
    \' 指定缺省的过滤器
    CommonDialog1.FilterIndex = 2
    \' 显示“打开”对话框
    CommonDialog1.ShowOpen
    \' 显示选定文件的名字
    MsgBox CommonDialog1.FileName \'显示路径
    Exit Sub
ErrHandler:
    \' 用户按了“取消”按钮
    Exit Sub
End Sub 参考技术A 勾选 部件micorsoft commom dialog contorl 6.0添加控件 CommonDialog1 CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName 参考技术B 勾选 部件micorsoft commom dialog contorl 6.0添加控件
.showopen