|
Private Sub ComOpen_Click() CommonDialog1.DialogTitle=“打開文件” CommonDialog1.InitDir=“c:\windows” CommonDialog1.Filter=“圖像文件|*.bmp|文本文件|*.txt|” CommonDialog1.FilterIndex=2 CommonDialog1.Flags=528 CommonDialog1.Action=1 TexOpen.Text=CommonDialog1.FileName End Sub |
在該段代碼中，前5行代碼設(shè)置對話框的屬性，從中可以看出，對話框的標(biāo)題為“打開文件”，初始路徑為c:\windows 。能顯示后綴為bmp和txt的文件，在【文件類型】欄中缺省顯示的是“文本文件”，F(xiàn)lags=528表明它同時具有Flags=17和Flags=512的特性，在對話框中顯示一個【幫助】按鈕，并且允許用戶同時選中多個文件。
同樣，將下列代碼添加到ComOpen_Click事件過程中：
|
Private Sub ComSave_Click() CommonDialog1.DialogTitle=“保存文件” CommonDialog1.InitDir=“f:\document” CommonDialog1.Filter=“word文檔|*.doc|” CommonDialog1.Flags=7 CommonDialog1.Action=2 TexOpen.Text=CommonDialog1.FileName End Sub |
運行該程序，單擊【打開】按鈕，則彈出【打開文件】對話框，從中選擇一個或多個文件，單擊【確定】按鈕后，【打開】文本框中將顯示用戶選擇的文件名，若用戶選擇多個文件，則所選文件的文件名都顯示在文本框中。單擊【保存】按鈕，則打開【保存文件】對話框，在【文件名】文本框中輸入文件名，單擊【保存】按鈕后，在【保存】文本框中將顯示用戶保存的文件名。如果用戶輸入的文件名己經(jīng)存在，則彈出消息框，提示用戶此文件己經(jīng)存在。
相關(guān)推薦：
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |
