【正文】 說明： drive表示要確定當前目錄的驅(qū)動器， drive缺省時，則 CurDir返回當前驅(qū)動器的當前目錄路徑。 （ 9） Lof函數(shù) 格式： Lof（ filenumber） 功能：返回用 Open語句打開文件的大小，該大小以字節(jié)為單 位。注意：尚未打開的文件可用 FileLen函數(shù)得到其大 小。 說明： filenumber表示要測定文件的文件號。 常用的文件操作語句和函數(shù) （ 10） Eof函數(shù) 格式： Eof（ filenumber） 功能：用于測試打開文件的記錄指針是否到達文件末尾，返回 一個 Integer,它包含 Boolean值 True或 False。當記錄指 針到達文件末尾時，返回 True。 說明： filenumber表示要測定文件的文件號。 （ 11） Seek函數(shù) 格式： Seek（ filenumber） 功能：返回一個 Long,在打開文件中用于指定當前的讀 /寫位 置。在文件操作中，要設(shè)置下一個讀 /寫位置，可用 Seek語句實現(xiàn)。 說明： filenumber表示要測定文件的文件號。 眾所周知， Windows環(huán)境下的應(yīng)用程序界面由一些基本要素組成，如菜單、工具欄、狀態(tài)欄等，通過菜單、工具欄操作完成應(yīng)用軟件的功能，通過狀態(tài)欄反饋系統(tǒng)運行狀態(tài)。和用戶進行交互操作時，經(jīng)常要調(diào)用 Windows環(huán)境下的標準對話框，如文件打開、保存對話框，字體格式設(shè)置對話框等。使用 VB開發(fā) Windows環(huán)境下的應(yīng)用程序，同樣也離不開設(shè)計這些內(nèi)容。本章重點講授菜單欄的設(shè)計、工具欄、狀態(tài)欄和對話框設(shè)計的設(shè)計方法，并通過簡單例題介紹其使用方法。 第 10章 應(yīng)用程序界面設(shè)計 1 菜單概述 分類：下拉式菜單 彈出式菜單兩種 使用方法：下拉式菜單通常通過單擊菜單欄中的菜單標題的方 式打開；彈出式菜單通過在某一區(qū)域單擊鼠標右鍵 的方式打開。 菜單的組成：菜單欄、菜單標題菜單項、分隔條。 第 菜單設(shè)計 1 菜單概述 第 菜單設(shè)計 2 菜單設(shè)計 —菜單編輯器 “ 工具 ” ?“菜單編輯器 ” 第 菜單設(shè)計 2 菜單設(shè)計 —菜單編輯器 (1) 標題（ Caption）文本框 用于設(shè)置菜單標題，鍵入的內(nèi)容會在菜單編輯器窗口下邊空白部分顯示出來，該區(qū)域稱為菜單顯示區(qū)域。 如果輸入時在菜單標題的某個字母前輸入一個＆符號，那么該字母就成了熱鍵字母，在窗體上顯示時該字母有下劃線，菜單操作時同時按 Alt鍵和該字母就可選擇這個菜單項命令。例如，建立文件菜單 File，在標題文本框內(nèi)應(yīng)輸入＆ File，則將字母 “ F”設(shè)置為 “ 熱鍵 ” ，程序執(zhí)行時按 Alt＋ F鍵就可以選擇 File菜單。 如果下拉菜單要按照功能分成若干組，則需要用分界符分隔。在菜單建立或編輯時，在標題文本框中輸入字符 “ ”（減號），菜單顯示時就會出現(xiàn)一個分隔條。 第 菜單設(shè)計 2 菜單設(shè)計 —菜單編輯器 (2) 名稱（ Name）文本框 名稱（ Name）是菜單項的對象名稱。對象名稱的命名規(guī)律同簡單變量，同樣，分隔條也要有對應(yīng)的名稱。 (3) 索引（ Index）文本框 與一般控件類似，菜單可以利用索引來建立菜單數(shù)組，并以索引值來標識數(shù)組中的不同成員（類似于 Command1(0)、Command1(1)、 Command1(2)… ）。 注意：當為菜單項命名相同的名稱時，系統(tǒng)不會自動為用戶建立索引（ Index），索引值要在設(shè)計菜單時自己輸入。 第 菜單設(shè)計 2 菜單設(shè)計 —菜單編輯器 (4) 快捷鍵（ Shortcut）列表框 快捷鍵列表框列出了很多快捷鍵，供用戶選擇。菜單項的快捷鍵是可選的，如果選擇了快捷鍵，則程序運行時快捷鍵會顯示在菜單標題的右邊，通過快捷鍵同樣可完成相應(yīng)命令的操作。 注意：頂層菜單不能設(shè)置快捷鍵。 (5) 下一個（ Next）按鈕 在菜單列表的最后產(chǎn)生一個空白項，進入下一個同級菜單項的設(shè)計。 第 菜單設(shè)計 2 菜單設(shè)計 —菜單編輯器 (6) → 和 ← 按鈕 菜單層次的設(shè)定按鈕，用于調(diào)整菜單項的級別。若建立好一個菜單項后按 “ → ”按鈕，則該菜單項在顯示框中向右移一段，前面加省略號 “ …” ，表示該菜單項為下一級的菜單項。如果選定了某菜單項后，再按 ← 按鈕，前面的省略號將取消，表示該菜單項是上一級的菜單項。 (7) 插入（ Insert）按鈕 在選定項前插入一個菜單項。 (8）刪除（ Delete）按鈕 刪除選定的菜單項。 (9) ↑ 和 ↓ 按鈕 用于改變菜單項的位置，通過 ↑↓ 按鈕將 選定的菜單項上移或下移。 第 菜單設(shè)計 2 菜單設(shè)計 —菜單編輯器 (10) 復(fù)選（ Checked）檢查框 如果在顯示框中選定了某個菜單項，再選定 Checked檢查框，那么當前被選定的菜單項左邊加上了一個檢查標記 “ √ ”，表示該菜單項是一個選項。 (11) 有效（ Enabled）檢查框 決定菜單項是否可選（有效）。當該檢查框被選中，菜單項的 Enabled屬性為 True，程序執(zhí)行時菜單項高亮度顯示；當未被選中時， Enabled屬性為 False，在程序執(zhí)行時該菜單項變成灰色，不能被用戶選擇。 (12) 可見（ Visible）檢查框 決定菜單項是否可見，若該檢查框未被選中，該菜單項的Visible屬性為 False，程序執(zhí)行時不可見。 第 菜單設(shè)計 3 修改菜單項狀態(tài) 用 “ 菜單編輯器 ” 建立和編輯的菜單，在程序運行過程中可以根據(jù)實際運行情況動態(tài)地改變菜單項的狀態(tài)。如當前環(huán)境不滿足菜單項執(zhí)行的條件時，可以暫時使其失效或?qū)⑵潆[藏起來，如同這個菜單項不存在一樣。 注意： 隱藏或再現(xiàn)菜單項并不能真正地改變菜單中菜單項的數(shù) 量。 第 菜單設(shè)計 4 菜單項增減 VB應(yīng)用程序菜單應(yīng)像 Windows應(yīng)用程序一樣，在執(zhí)行時能夠隨著用戶操作的變化動態(tài)地增減菜單中的菜單項。實現(xiàn)時首先建立菜單數(shù)組，通過 Load或 UnLoad語句裝載和卸載控件菜單數(shù)組中的元素。 第 菜單設(shè)計 5 彈出式菜單設(shè)計 彈出式菜單以其靈活的方式為用戶提供便利的操作，它可以根據(jù)用戶單擊鼠標右鍵時的坐標，動態(tài)地調(diào)整菜單項的顯示位置，同時也可以根據(jù)需要，動態(tài)改變菜單項的內(nèi)容，因此也稱彈出式菜單為 “ 上下文菜單 ” 、 “ 右鍵菜單 ” 或 “ 快捷菜單 ” 。 第 菜單設(shè)計 5 彈出式菜單設(shè)計 1）彈出式菜單的建立 彈出式菜單的建立、編輯與下拉菜單方法基本相同，不同之處在于使用菜單編輯器編輯彈出式菜單時，把菜單項設(shè)置成隱藏（ Visible屬性值為 Fa1se） 第 菜單設(shè)計 5 彈出式菜單設(shè)計 2）彈出式菜單的調(diào)用 使用 PopupMenu方法，以快捷菜單的形式在程序運行期間顯示出來， PopupMenu方法格式如下： ［窗體名 .］ PopupMenu 菜單名［， flag［， X， Y］］ 說明： (1) X， Y 是快捷菜單顯示的位置坐標。 (2) 菜單名：是在菜單編輯器中設(shè)計的，至少有一個菜單項的 菜單名稱（ Name）。 (3) Flag：指定快捷菜單的行為標記，包含位置及行為兩個指 定值，標志為 2時 PopupMenu方法只能用在 MouseDown事件 過程。 第 菜單設(shè)計 5 彈出式菜單設(shè)計 2）彈出式菜單的調(diào)用 第 菜單設(shè)計 對話框（ Dia1ogBox）是一種常見的窗口，是實現(xiàn)人機對話主要渠道，無論要求用戶輸入數(shù)據(jù)，還是輸出消息給用戶，均需和用戶進行信息交流。對話框作為一種特殊類型的窗體對象，可用以下三種方法之一建立： (1) 使用 MsgBox或 InputBox函數(shù)創(chuàng)建預(yù)定義對話框。 (2) 使用通用對話框創(chuàng)建 Windwos標準對話框。 (3) 用戶自定義對話框。 第 對話框設(shè)計 1 通用對話框 VB提供了一組基于 Windows環(huán)境的標準對話框界面 ——通用對話框。利用通用對話框可以創(chuàng)建 6種標準對話框，這些對話框分別為打開（ Open）、另存為（ Save As）、顏色（ Color）、字體（ Font）、打印（ Printer）和幫助（ He1p）對話框。 第 對話框設(shè)計 1 通用對話框 1) 添加通用對話框控件 操作步驟： (1) 選擇 “ 工程 ” 菜單中的 “ 部件 ” 菜單項，單擊打開部件對話框，如圖所示； 第 對話框設(shè)計 1 通用對話框 1) 添加通用對話框控件 操作步驟： (2) 在部件選項卡中選定 “ Microsoft Common Dialog Control ”控件； (3) 單擊 “ 確定 ” 按鈕，即可將通用對話框控件添加的工具箱 中。 第 對話框設(shè)計 1 通用對話框 2) 通用對話框的基本屬性和方法 第 對話框設(shè)計 1 通用對話框 3) 文件對話框 “ 文件對話框 ” 用于獲取文件名有打開文件和保存文件兩種操作模式。在這兩種對話框窗口內(nèi)，可遍歷磁盤的整個目錄結(jié)構(gòu)，查找并選擇所需要的文件。 第 對話框設(shè)計 1 通用對話框 3) 文件對話框 (1) 文件對話框?qū)傩栽O(shè)置 利用通用對話框?qū)ξ募僮鲿r，需要對下列屬性進行設(shè)置。 ① FileName（文件名稱）屬性 該屬性為文件名字符串，用于設(shè)置文件對話框中 “ 文件名 ”文本框中所顯示的文件名。在程序中，可用該屬性值設(shè)置或返回用戶所選定的文件名（包括路徑名）。程序執(zhí)行時，當用戶選中某個文件或從鍵盤輸入的文件名顯示在 “ 文件名 ” 文本框時， FileName屬性將得到一個包括路徑名和文件名的字符串。 第 對話框設(shè)計 1 通用對話框 3) 文件對話框 (1) 文件對話框?qū)傩栽O(shè)置 利用通用對話框?qū)ξ募僮鲿r，需要對下列屬性進行設(shè)置。 ① FileName（文件名稱）屬性 ② FileTitle屬性 該屬性返回或設(shè)置用戶所要打開文件的文件名，但不包含路徑。當用戶在對話框中選中所要打開的文件時，該屬性就得到了該文件的文件名。 第 對話框設(shè)計 1 通用對話框 3) 文件對話框 (1) 文件對話框?qū)傩栽O(shè)置 利用通用對話框?qū)ξ募僮鲿r，需要對下列屬性進行設(shè)置。 ① FileName（文件名稱）屬性 ② FileTitle屬性 ③ Filter（過濾器）屬性 該屬性用于確定文件列表框中所顯示文件的類型，其格式為： 文件說明 | 文件類型 該屬性可在設(shè)計時設(shè)置，也可在代碼中設(shè)置，屬性值顯示在“ 文件類型 ” 列表框中。 第 對話框設(shè)計 1 通用對話框 3) 文件對話框 (1) 文件對話框?qū)傩栽O(shè)置 利用通用對話框?qū)ξ募僮鲿r，需要對下列屬性進行設(shè)置。 ① FileName（文件名稱）屬性 ② FileTitle屬性 ③ Filter（過濾器）屬性 ④ InitDir(初始化路徑 )屬性 該屬性用于指定對話框中的初始目錄，若顯示當前目錄，就不需要設(shè)置該屬性。 第 對話框設(shè)計 1 通用對話框 3) 文件對話框 (2) 文件對話框的使用 ① 打開文件對話框 打開文件對話框用于打開某種類型的文件。在程序運行時，當通用對話框的 Action屬性被設(shè)置為 1或執(zhí)行 ShowOpen方法時，就會彈出 “ 打開 ” 對話框，如圖所示。 第 對話框設(shè)計 1 通用對話框 3) 文件對話框 (2) 文件對話框的使用 ② “另存為 ” 對話框 “ 另存為 ” 對話框為用戶在保存文件時提供一個標準的界面，供用戶選擇或輸入指定文件所要保存的驅(qū)動器、路徑、文件名及擴展名。如圖所示。同樣，它并不能實現(xiàn)存儲文件操作，存儲文件的操作也需要編程來實現(xiàn)。 第 對話框設(shè)計 1 通用對話框 4)“ 顏色 ” 對話框 圖 1012 “顏色 ” 對話框 “ 顏色 ” 對話框用來顯示一個調(diào)色板，供用戶選擇顏色或者創(chuàng)建自定義顏色，如圖所示。運行時選定顏色并關(guān)閉對話框后，通過 Color屬性得到所選擇的顏色。 調(diào)色板中除提供了基本顏色 (Basic Color)外 ,還提供了用戶自定義顏色 (Custom Color)。當用戶在調(diào)色板中選中某顏色后，該顏色值賦給 Color屬性。 第 對話框設(shè)計 1 通用