課堂案例通用對話框

通用對話框在使用windows應(yīng)用程序時(shí)，用戶往往可以看到打開、保存、顏色、字體等對話框VB提供了通用對話框控件來設(shè)計(jì)這些對話框通用對話框控件——MicrosoftCommonDialogControl把通用對話框控件添加到工具箱【工程】【部件】選中MicrosoftCommonDialogControl【確定】該控件圖標(biāo)通用對話框有6種不同形式的對話框，在顯示通用對話框之前，應(yīng)通過設(shè)置它的action屬性或者調(diào)用show方法來選擇對話框的類型P167例如：CommonDialog1.Action=1CommonDialog1.ShowOpen顯示的對話框方法Action屬性值“打開”對話框ShowOpen1“另存為”對話框ShowSave2“顏色”對話框ShowColor3“字體”對話框ShowFont4“打印機(jī)”對話框ShowPrinter5“幫助”對話框ShowHelp6實(shí)例操作一設(shè)計(jì)一個(gè)程序，界面如下圖所示單擊按鈕時(shí)，彈出相應(yīng)對話框單擊窗體的關(guān)閉按鈕時(shí)，彈出保存對話框（unload事件）實(shí)例操作二：初始化對話框的屬性每種對話框都有自己特殊的屬性，這些屬性既可以在屬性窗口中設(shè)置，也可以在代碼中設(shè)置，還可以在“屬性頁”對話框中設(shè)置

操作：設(shè)置打開/保存對話框的初始化屬性初始化路徑：C:\文件類型包含“所有文件”和“文本文件”，默認(rèn)時(shí)為文本文件如果要保存的文件和當(dāng)前目錄中的文件同名時(shí)，則會(huì)顯示一個(gè)信息框，詢問是否覆蓋已有文件,顯示一個(gè)“幫助”按鈕默認(rèn)擴(kuò)展名：txt打開/保存對話框的有關(guān)屬性在控件上單擊右鍵，選擇屬性，彈出對話框?qū)υ捒驑?biāo)題（DialogTitle）、文件名稱（FileName）、初始化路徑（InitDir）、過濾器（Filter）、（5）標(biāo)志（Flags）、缺省擴(kuò)展名（DefaultExt）、文件最大長度（MaxFileSize）、過濾器索引（FilterIndex）、取消錯(cuò)誤（CancelError）

①“對話框標(biāo)題”－DialogTitle

用途：用于設(shè)置對話框的標(biāo)題；②

“文件名稱”－FileName

用途：用來設(shè)置或返回要打開或保存的文件的路徑及文件名。若在對話框中選擇了一個(gè)文件并單擊“打開”或“保存”按鈕，則選擇的文件（包含路徑）,即為FileName屬性的值；③“初始化路徑”－InitDir

用途：用于指定打開對話框的初始路徑，若沒有指定該屬性，則使用當(dāng)前路徑；

④“過濾器”－Filter用來指定對話框中顯示的文件類型。用這個(gè)屬性可以設(shè)置多個(gè)文件類型，提供給用戶在對話框的“文件類型”的下拉列表中進(jìn)行選擇。若需設(shè)置多項(xiàng)時(shí)，可以用管道符（|）隔開格式：描述符1|過濾符1|描述符2|過濾符2|……

其中，描述符是顯示在對話框中用戶看到的信息，而過濾符是有嚴(yán)格規(guī)定的，由通配符和文件擴(kuò)展名組成，例如：*.txt*.jpeg*.vbp⑤“過濾器索引”－FilterIndex

用途：當(dāng)為對話框指定了一個(gè)以上的過濾器時(shí)，用于確定哪個(gè)過濾器作為缺省過濾器。第一個(gè)過濾器索引值為1，第二個(gè)為2，依此類推⑥“標(biāo)志”－Flags

用途：用于確定對話框的一些特性，如是否允許同時(shí)選擇多個(gè)文件等。參數(shù)值作用1顯示“只讀檢查”復(fù)選框2保存時(shí)，如果同名，彈出消息框，提示是否覆蓋原文件4不顯示“只讀檢查”復(fù)選框8保留當(dāng)前目錄16顯示“幫助”按鈕256允許在文件中有無效字符512允許用戶選擇多個(gè)文件

⑦“缺省擴(kuò)展名”－DefaultExt

用途：當(dāng)對話框用于保存文件時(shí)，如果文件沒有指定擴(kuò)展名，則使用該屬性指定的缺省擴(kuò)展名，如：*.txt，*.doc等⑧“文件最大長度”－MaxFileSize

用途：用于指定文filename的最大長度，單位為字節(jié)；⑨“取消引發(fā)錯(cuò)誤”－CancelError

用途：用于確定運(yùn)行時(shí)在對話框中按”取消“時(shí)是否出錯(cuò)。選擇該項(xiàng)，相當(dāng)于CancelError設(shè)為true，按”取消“出錯(cuò)，否則，不出錯(cuò)。實(shí)例操作三：在打開對話框中選中一個(gè)文本文件打開，把文件內(nèi)容顯示在文本框中用戶在文本框中選中一個(gè)文件并單擊“確定”按鈕，這時(shí)并沒有執(zhí)行打開文件的操作?；舅悸罚簍ext1.text=選定文件內(nèi)容問題：怎么讀取外部文件的內(nèi)容？這需要用到文件的操作文件的操作數(shù)據(jù)是以文件的方式保存在存儲(chǔ)介質(zhì)上的，需要讀取數(shù)據(jù)時(shí)可以從外存儲(chǔ)器調(diào)入內(nèi)存（讀操作），需要保存時(shí)可以由內(nèi)存寫到外存（寫操作）。

在vb中文件的操作分為：——順序文件，其操作如下：文件的打開——open文件的關(guān)閉——close文件的寫操作——print、write文件的讀操作——input、lineinput

在對文件進(jìn)行操作前，必須用open語句先打開要操作的文件，操作完成之后用close語句關(guān)閉文件打開——Open語句功能：打開要操作的文件（注意：跟在windows下打開文件的內(nèi)涵不同），僅僅表示可以對文件進(jìn)行讀寫操作了語法格式如下：

Open<文件名>[For打開方式]As[#]<文件號(hào)>例如：Open"E:\VB\VB.txt"ForOutputAs#1表示打開E盤中的文本文件VB，并指定該文件的文件號(hào)為1Open語句參數(shù)解釋文件名：指定打開的文件名（文件名用字符串表示），包括盤符、路徑、文件主名及擴(kuò)展名。例如：”E:\MF\Test.txt”。文件號(hào)：VB應(yīng)用程序每打開一個(gè)文件，必須指定一個(gè)文件號(hào)，且不能與其它打開的文件占用的文件號(hào)重復(fù)。文件號(hào)的范圍是1-511之間的整數(shù)。打開文件后，指定的文件號(hào)就與該文件相關(guān)聯(lián)，程序通過文件號(hào)來對文件進(jìn)行讀、寫操作，直到關(guān)閉文件。關(guān)閉文件后，該文件號(hào)被釋放，可供打開其他文件時(shí)使用。打開方式方式：指定文件的打開方式，打開文件后，只能按指定的方式進(jìn)行一種操作。打開一個(gè)順序文件有三種方式可選：◆Input：打開文件后，從文件中讀取數(shù)據(jù)◆Output：打開文件后，向文件中寫入數(shù)據(jù)，即重寫一個(gè)順序文件◆Append：打開文件后，向文件末尾添加數(shù)據(jù)關(guān)閉——Close語句語法格式為：Close[#文件號(hào)][,#文件號(hào)]…

…例如：關(guān)閉前面打開的文本文件VBclose＃1關(guān)閉文件后，該文件號(hào)被釋放，可供打開其他文件時(shí)使用。寫操作在寫操作之前必須先以output或者是Append方式打開文件1、print語句語法格式為：Print#

文件號(hào)[,

輸出列表]輸出列表：準(zhǔn)備寫入文件中的數(shù)據(jù)例如：Open"E:\VB\VB.txt"ForOutputAs#1

print#1,“abcd”，“efg”close#12、write語句：能夠自動(dòng)的在各個(gè)數(shù)據(jù)項(xiàng)之間加入逗號(hào)，并給字符串加上雙引號(hào),記錄尾自動(dòng)加回車換行符。上面的語句改為write，則文件中的內(nèi)容是“abcd”，“efg”讀操作在讀操作之前必須先以iutput方式打開文件1、input語句：用于從打開的順文件中讀取數(shù)據(jù)賦值給指定的變量，每次應(yīng)讀出一整條紀(jì)錄。語法格式為：Input#文件號(hào),變量表例如：Open"E:\VB\VB.txt"ForiutputAs#1

input#1,str——str是字符串變量

close#12、lineinput語句：把文件中的一行讀到一個(gè)字符串變量中，遇到回車符或換行符結(jié)束語法格式為：LineInput#文件號(hào)，字符串變量讀操作3、input函數(shù)：從一個(gè)打開的順序文件中返回指定個(gè)數(shù)的字符語法格式為：Input（讀取的字符個(gè)數(shù)，[#]文件號(hào)）該函數(shù)讀取文件中的任何字符，包括回車換行符。

例如：

Open"E:\VB\VB.txt"ForiutputAs#1Text1.text=input(10,#1)Close#1與文件操作相關(guān)的語句和函數(shù)

1、Lof函數(shù)：返回一個(gè)已打開的文件的長度。語法格式為：Lof（文件號(hào)）2、Eof函數(shù)：返回一個(gè)指示是否達(dá)到文件尾的邏輯值。到達(dá)文件尾時(shí)，該函數(shù)返回true，否則返回false語法格式為：Eof（文件號(hào)）3、FreeFile函數(shù)：返回供Open語句使用的下一個(gè)可用文件號(hào)。語法格式為：FreeFile(0/1)參數(shù)指定為0（或缺?。r(shí)返回1-255之間的文件號(hào)；指定為1返回256-511之間的文件號(hào)。操作三：顯示文件內(nèi)容1、打開文件

OpenCommonDialog1.FileNameForInputAs#12、讀取文件內(nèi)容當(dāng)文件未結(jié)束時(shí)，每次讀取一行，鏈接到str串后面3、關(guān)閉文件Close#14、顯示內(nèi)容：text1.text=str操作四：把文本框中的內(nèi)容保存到文本文件中在文本框中修改文件內(nèi)容，單擊“保存文件”，彈出保存對話框。如果要保存的文件和當(dāng)前目錄中的文件同名時(shí)，則會(huì)顯示一個(gè)信息框，詢問是否覆蓋已有文件（flagsP169）輸入新文件名稱，新建并保存文件1、打開文件2、把文本框中的內(nèi)容寫入文件把text1.text寫入到filename指定的文件中3、關(guān)閉文件操作五：利用顏色對話框修改文本框中的內(nèi)容的顏色文本框內(nèi)容的顏色屬性：ForeColor對話框中選定的顏色：colorFlags屬性：P174操作六：利用字體對話框設(shè)置文本框中內(nèi)容的字體Flags屬性：

1使對話框只列舉系統(tǒng)支持的屏幕字體。

2使對話框只列舉打印機(jī)所支持的字體。

3使對話框列舉可用的打印機(jī)與屏幕字體

4使對話框顯示幫助按鈕

256指定對話框使刪除線、下劃線與顏色生效在本實(shí)例中，在現(xiàn)實(shí)字體對話框之間，應(yīng)把flag的值設(shè)置為1，2或3，否則會(huì)發(fā)生字體不存在的錯(cuò)誤。Color：能夠確定選定的顏色。若要使用這個(gè)屬性，則必須先設(shè)置Flags屬性設(shè)置為cdlCFEffects或256FontBold：確定是否選定了粗體FontItalic：確定是否選定了斜體FontStrikethru：確定是否選定了刪除線，若要使用這個(gè)屬性，則必須先設(shè)置Flags屬性設(shè)置為cdlCFEffects或256FontUnderline：確定是否選定了下劃線，若要使用這個(gè)屬性，則必須先設(shè)置Flags屬性設(shè)置為cdlCFEffects或256FontName：確定選定字體的名稱FontSize：確定選定字體的大小除了color之外，文本框關(guān)于字體的所有屬性名稱跟通用控件相同（文本框的字體顏色屬性時(shí)forecolor）操作七：顯示幫助幫助對話框是當(dāng)Action屬性為6時(shí)的通用對話框，是一個(gè)標(biāo)準(zhǔn)的幫助對話框窗口界面。幫助對話框不能制作應(yīng)用程序的幫助文件，只能將已制作好的幫助文件從磁盤中提取出來，并與界面連接起來，達(dá)到顯示并檢索幫助信息的目的。制作幫助文件需要用MicrosoftWindowsHel