第13章文件系統(tǒng)控件(參考版)
2025-07-23 07:35本頁面
【正文】 改變背景顏色 Private Sub cmdBackcolor_Click() = End Sub 39。 其他對(duì)話框示例 【 例 】 允許程序在運(yùn)行時(shí)指定窗體的圖片 、 背景顏色 ， 允許用戶任意選擇字體 ， 并能在窗體上顯示該字體的效果 。 – cdlHelpKey，為特定的關(guān)鍵字顯示幫助。 – cdlHelpIndex，顯示指定的幫助文件的索引。在窗體上顯示打開的圖片 Set = LoadPicture() End Sub 提示：為了簡化代碼的書寫，如果一個(gè)對(duì)象的屬性或方法的使用非常集中，可以使用 With…End With結(jié)構(gòu)來指定代碼段內(nèi)所用的屬性或方法從屬的對(duì)象，從而該代碼段內(nèi)可以不用再書寫對(duì)象名了，但“ .”不能省略。 “打開” 對(duì)話框示例 ? 窗體上添加一個(gè) CommonDialog控件和選擇圖片的按鈕，通過點(diǎn)擊按鈕來執(zhí)行 CommonDialog的 ShowOpen方法彈出打開文件對(duì)話框，選擇文件確定打開后，設(shè)置窗體的 Picture屬性： Private Sub cmdPicture_Click() With CommonDialog1 .Filter = JPG文件 |*.jpg|GIF文件 |*.gif| 其它圖片文件 |*.bmp。H80000 它使用類似資源管理器的打開一個(gè)文件的對(duì) 話框模板。H2022 當(dāng)文件不存在時(shí)對(duì)話框要提示創(chuàng)建文件。串中各文件名用空格隔開。H200 它指定文件名列表框允許多重選擇。 If str1 Then = Left(str1, Len(str1) 1) 39。 If = 1 Then str1 = str1 amp。 If = 1 Then str1 = str1 amp。 If = 1 Then str1 = str1 amp。 點(diǎn)擊文本文件復(fù)選框 Private Sub chkTxt_Click() Call SetFilePattern End Sub …… 39。 同時(shí)提供文件后綴類型的選擇 ， 如 *.txt、 *.doc等指定類型 ， 支持復(fù)選 。 例如 ， ???.txt將顯示所有文件名包含三個(gè)字符且擴(kuò)展名為 .txt的文件 。 ? 例如 ， 下列代碼行將顯示所有擴(kuò)
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1