Vb幫助編程

2.在菜單-工程-零件中添加Microsoft Common Dialog Control 6.0(SP6)。

3.將CommonDialog1和Command1添加到表單中。

4、程序代碼:

私有子命令1_Click()

將“CancelError”設置為True。

CommonDialog1。CancelError = True

出錯時轉到錯誤處理程序

設置標誌

CommonDialog1。Flags = cdlOFNHideReadOnly

設置過濾器

CommonDialog1。Filter = "所有文件(*。*)|*.* |文本文件" & amp_

"(*.txt)|*。txt |批處理文件(*。bat)|*。蝙蝠”

指定默認過濾器。

CommonDialog1。FilterIndex = 2

顯示“打開”對話框。

CommonDialog1。ShowOpen

顯示選定文件的名稱。

MsgBox CommonDialog1。文件名

出口接頭

錯誤處理程序:

"用戶按了取消按鈕。

出口接頭

末端接頭