第13章文件系統(tǒng)控件(編輯修改稿)
2025-08-16 07:35 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 Call SetFilePattern End Sub …… 39。 設(shè)置 File1的 Pattern屬性 Private Sub SetFilePattern() Dim str1 As String If = 1 Then str1 = *.txt。 If = 1 Then str1 = str1 amp。 *.doc。 If = 1 Then str1 = str1 amp。 *.ppt。 If = 1 Then str1 = str1 amp。 *.xsl。 If str1 Then = Left(str1, Len(str1) 1) 39。 刪除最后的分號(hào) Else = *.* End If End Sub 只能這樣嗎？ ? 繁 ！ 煩 ！ ? 不標(biāo)準(zhǔn) ！ 不好看 ！ 可以使用 Windows通用的打開(kāi)文件的對(duì)話框嗎 ？ 使用 ActiveX控件 ActiveX控件是 VB工具箱的擴(kuò)充部分，其 擴(kuò)展名為 ocx，一般在 system目錄下 向工具箱中添加 ActiveX控件 – “工程”菜單中，選擇“部件”命令 – 找到所需要的部件（一個(gè)部件中可能含多個(gè)控件） – 選定部件名稱左邊的復(fù)選框 – 單擊“確定”按鈕 使用通用對(duì)話框控件 Microsoft Common Dialog Control ? 對(duì)應(yīng)文件 : ? 可以顯示的對(duì)話框（使用不同的方法） : – ShowOpen 顯示“打開(kāi)文件”對(duì)話框 – ShowSave 顯示“另存為”對(duì)話框 – ShowColor 顯示“顏色”對(duì)話框 – ShowFont 顯示“字體”對(duì)話框 – ShowPrinter 顯示“打印”或“打印選項(xiàng)”對(duì)話框 – ShowHelp 運(yùn)行 文件 “打開(kāi)”和“另存為”對(duì)話框 對(duì)話框的基本組件： ? Drive/Folder列表 ，當(dāng)前文件夾 ? File/Folder選擇， 當(dāng)前文件夾中的文件項(xiàng) ? File Name文本框， 可以輸入或顯示選擇的文件 ? File Type列表框， 選擇文件類型 “打開(kāi)”和“另存為”對(duì)話框 控件屬性： ? Filter 文件過(guò)濾器列表，字符串類型 描述 1 | 過(guò)濾器 1 | 描
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1