VB 显示打开文件对话框

发布网友 发布时间：2022-05-10 13:23

我来回答

共5个回答

热心网友 时间：2023-10-10 05:16

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

热心网友 时间：2023-10-10 05:17

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

热心网友 时间：2023-10-10 05:17

在窗体上添加一个commondialog控件，假设该控件名为comdlg。在相应事件下添加一句comdlg.showopen，就可以了。如果你的工具箱中没有该控件，则右键工具箱，部件，勾选Microsoft common dialog6.0，点应用即可

热心网友 时间：2023-10-10 05:18

应该是openfiledialog1.showdialog

热心网友 时间：2023-10-10 05:19

添加CommonDialog控件

CommonDialog1.ShowOpen
这样就行了