VB 显示打开文件对话框

Posted 2023-02-14

需要哪个语句

openfiledialog1.showdialog
openfiledialog.execute
openfiledialog1.file
openfileddialog1.showmodal

有这四种选项

1、启动vb6。
2、在菜单-工程-部件-添加Microsoft Common Dialog Control 6.0 (SP6)
3、添加CommonDialog1、Command1到窗体。

4、程序代码：
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 Private Sub command1_Click()
'CancelError 为 True。
On Error GoTo ErrHandler
'设置过滤器。
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat"
'指定缺省过滤器。
CommonDialog1.FilterIndex = 2
'显示“打开”对话框。
CommonDialog1.ShowOpen
'调用打开文件的过程。
OpenFile (CommonDialog1.FileName)
Exit Sub

ErrHandler:
'用户按“取消”按钮。
Exit Sub
End Sub 参考技术B 在窗体上添加一个commondialog控件，假设该控件名为comdlg。在相应事件下添加一句comdlg.showopen，就可以了。如果你的工具箱中没有该控件，则右键工具箱，部件，勾选Microsoft common dialog6.0，点应用即可 参考技术C 应该是openfiledialog1.showdialog本回答被提问者采纳 参考技术D 添加CommonDialog控件

CommonDialog1.ShowOpen
这样就行了