【正文】 區(qū)n 在 “菜單編輯器 ”對(duì)話框的下部，輸入的菜單項(xiàng)在這里分級(jí)顯示出來。n （ 6）協(xié)調(diào)位置n 協(xié)調(diào)位置用來確定菜單或菜單項(xiàng)是否出現(xiàn)或在什么位置出現(xiàn)。下拉式菜單的結(jié)構(gòu)如圖 51所示。Visual Basic界面設(shè)計(jì) 本章學(xué)習(xí)要點(diǎn)n 掌握 Visual Basic菜單的設(shè)計(jì)方法n 掌握 Visual Basic工具欄的設(shè)計(jì)方法n 掌握 Visual Basic狀態(tài)欄的設(shè)計(jì)方法n 在 Windows環(huán)境下運(yùn)行的各種應(yīng)用程序，雖然各有不同，但這些界面大都有著共同的特點(diǎn)。 菜單設(shè)計(jì) n 1．下拉式菜單的結(jié)構(gòu)n 在 Visual Basic中，下拉式菜單在一個(gè)窗體上設(shè)計(jì)，一個(gè)下拉式菜單包括兩類：一是菜單欄，位于窗體的頂部，由若干個(gè)菜單標(biāo)題組成；二是子菜單區(qū)，這一區(qū)域?yàn)榕R時(shí)性的彈出區(qū)域，只有在用戶選擇了相應(yīng)的主菜單項(xiàng)后才會(huì)彈出子菜單，以供用戶進(jìn)一步選擇菜單的子項(xiàng)，子菜單中的每一項(xiàng)是一個(gè)菜單命令或分隔條，稱為菜單項(xiàng)。n （ 5）幫助上下文 IDn 在幫助上下文中鍵人數(shù)值，這個(gè)值用來在 HelpFile屬性中查找相應(yīng)的幫助主題。n （ 17）刪除n 刪除當(dāng)前選中的菜單項(xiàng)。n Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)n End Sub 菜單設(shè)計(jì)n 參數(shù)的意義是：n ① Button值判斷按下哪一個(gè)鼠標(biāo)鍵： 1左鍵； 2右鍵； 3中鍵。 表 54 快捷菜單項(xiàng)的設(shè)置 菜單項(xiàng) 標(biāo)題 名稱 可見性主菜單項(xiàng) 編輯 editmenu 不可見子菜單項(xiàng) 1 新建 new1 可見子菜單項(xiàng) 2 刪除 del1 可見子菜單項(xiàng) 3 屬性 Attribute 可見子菜單項(xiàng) 4 mm 可見子菜單項(xiàng) 5 查詢 query 可見子菜單項(xiàng) 6 打印預(yù)覽 preview 可見子菜單項(xiàng) 7 打印 print 可見 菜單設(shè)計(jì)n （ 2）編寫 MouseDown事件n 由于快捷菜單在單擊表格控件時(shí)發(fā)生，因此在控件 DataGrid1的 MouseDown過程中編寫代碼，如圖 57所示。 工具欄的設(shè)計(jì)n “文本對(duì)齊 ”：對(duì)應(yīng)于工具欄的 TextAlignment屬性，用于確定文本在按鈕上的位置。在代碼中訪問此按鈕對(duì)象時(shí)要使用該索引值。下拉菜單的菜單項(xiàng)可以在本選項(xiàng)卡下部的 “按鈕菜單 ”中進(jìn)一步設(shè)置。n （ 3）編寫事件代碼n 要使工具欄能夠?qū)崿F(xiàn)用戶操作的功能，還需編寫事件代碼，這樣運(yùn)行的工具欄就可以發(fā)揮它的作用了。返回 39。在 Visual Basic的標(biāo)準(zhǔn)工具箱中沒有這兩個(gè)控件，需要先將它們添加到工具箱中，方法和添加 Toolbar控件是一樣的，添加了 Statusbar控件的工具箱如圖 513所示。n “圖片 ”：對(duì)應(yīng) Panel對(duì)象的 Picture屬性，單擊 “瀏覽 ”按鈕可以給窗格添加一幅圖片；單擊 “無圖片 ”按鈕可以清除已添加的圖片。4 sbrScrl 當(dāng)激活滾動(dòng)鎖定時(shí)，用黑體顯示字母 SCRL；而當(dāng)停用滾動(dòng)鍵時(shí)，顯示暗淡的字母。n （ 3）在 StBar1控件的 “屬性頁 ”對(duì)話框選擇 “窗格 ”選項(xiàng)卡，添加各個(gè) “窗格 ”對(duì)象。n 5．參照 。下面結(jié)合 “企業(yè)資質(zhì)管理系統(tǒng) ”介紹狀態(tài)欄的設(shè)計(jì)步驟。顯示用 Text 屬性設(shè)置的文本或由 Pictrue屬性設(shè)置的圖片。n “刪除窗格 ”按鈕：每次單擊該按鈕可以刪除狀態(tài)欄上由當(dāng)前索引指定的窗格。查詢 39。打印 39。n “可見 ”：對(duì)應(yīng)于按鈕菜單項(xiàng)的 Visible屬性。使用分隔符可以對(duì)不同的選項(xiàng)按鈕組進(jìn)行分組。在設(shè)計(jì)時(shí)，使用 “按鈕 ”選項(xiàng)卡可以添加按鈕對(duì)象并對(duì)各個(gè)按鈕對(duì)象的屬性進(jìn)行設(shè)置。n “圖像列表 ”：對(duì)應(yīng)于工具欄的 Imagelist屬性。n 因此，在對(duì)象的 MouseDown事件過程中編寫代碼通常如下n Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)n 39。下拉式菜單放置在程序界面得頂部，而彈出式菜單可以出現(xiàn)在窗體的任何部位，適用于少量的菜單項(xiàng)，操作靈活方便。n （ 13）上箭頭n 單擊上箭頭使在菜單列表區(qū)中選定的菜單項(xiàng)在同級(jí)菜單內(nèi)向上移動(dòng)一個(gè)位置。n （ 2）名稱n 名稱是用來輸入菜單名及各菜單項(xiàng)控制名的文本框，它不在菜單中出現(xiàn)。 菜單設(shè)計(jì) n 下拉式菜單n 下拉式菜單是一種典型的窗口式菜單。 菜單設(shè)計(jì) n 在 Windows環(huán)境下，大多數(shù)應(yīng)用軟件都是通過菜單來實(shí)現(xiàn)各種操作。 n （ 3）使用熱鍵 “Ctrl+E”。其缺省設(shè)置為 True，表明相應(yīng)的菜單項(xiàng)可以對(duì)用戶事件作出響應(yīng)；該屬性被設(shè)置為 False時(shí)，相應(yīng)的菜單項(xiàng)會(huì) “變灰 ”，不響應(yīng)用戶事件。n 1．用菜單編輯器建立菜單n 主菜單項(xiàng)如圖 51所示，各子菜單如圖 54所示。n 菜單名 ：在菜單設(shè)計(jì)器中設(shè)計(jì)的菜單項(xiàng)的名稱。n （ 4）單擊 “確定 ”按鈕，在工具箱中增加了一些控件，其中包括 Toolbar控件和 Imagelist控件，如圖 58所示。如果該屬性設(shè)置為True，運(yùn)行時(shí)雙擊 ToolBar控件可以打開一個(gè) “自定義工具欄 ”對(duì)話框；否則，不允許在運(yùn)行時(shí)用 “自定義工具欄 ”對(duì)話框自定義 ToolBar控件。其取值如下：n 0—tbrDefault按鈕具有命令按鈕的特點(diǎn)。n “可見 ”：對(duì)應(yīng)于按鈕的 Visible屬性，用來確定按鈕是否可見，缺省值為可見（ True）。 圖 512 “通用 ”選項(xiàng)卡的設(shè)置 工具欄的設(shè)計(jì)n 接著選擇 “按鈕 ”選項(xiàng)卡，添加工具欄的按鈕，各按鈕的屬性設(shè)置如表 55所示。 按鈕代碼。 圖 514 StatusBar控件的 “屬性頁 ”對(duì)話框的 “通用 ”選項(xiàng)卡 狀態(tài)欄的設(shè)計(jì)n ④ 設(shè)置 “通用 ”選項(xiàng)卡的屬性，其中一些屬性如下：n “樣式 ”：對(duì)應(yīng)于工具欄的 Style屬性，用于決定工具欄按鈕的外觀樣式。當(dāng) AutoSize屬性被設(shè)置為 1時(shí)，使用 MinWidth屬性可以防止窗格因自動(dòng)調(diào)整大小被調(diào)整到太小的寬度。n “斜面 ”：對(duì)應(yīng)于 Panel對(duì)象的 Bevel屬性，用來設(shè)置 Panel對(duì)象的斜面樣式。n （ 1）狀態(tài)欄的前兩個(gè)窗格信息：總記錄數(shù)和當(dāng)前指針的記錄數(shù)n ① 單擊 ListView1的每 1項(xiàng)時(shí)，狀態(tài)欄的前兩個(gè)窗格分別顯示當(dāng)前處理的數(shù)據(jù)表的總記錄數(shù)和當(dāng)前指針的記錄數(shù)，在 ListView1控件的Click事件里編寫如下代碼：n Private Sub ListView1_Click()n ……n 39。指針?biāo)傅挠涗浱?hào)n If 0 Thenn (2) = 記錄：目前在第 條記錄 n End Ifn ……n End Subn ② 當(dāng)導(dǎo)入數(shù)據(jù)時(shí)，第 2個(gè)窗格顯示了導(dǎo)入的總記錄數(shù)，在導(dǎo)入菜單的 Click事件里編寫如下代碼：n Private Sub import_Click()n ……n (2) = 已導(dǎo)入，現(xiàn)在共有 條記錄 n ……n End Subn ③ 在 DataGrid1控件里移動(dòng)光標(biāo)時(shí)，第 2個(gè)窗格顯示當(dāng)前記錄數(shù)，在 DataGrid1控件的 RowColChange事件里編寫如下代碼：n Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)n ……n (2) = 記錄：目前在第 條記錄 n ……n End Sub 狀態(tài)欄的設(shè)計(jì)n （ 2）在狀態(tài)欄的第 3個(gè)窗格里顯示當(dāng)前用戶n 用戶登錄時(shí)輸入了用戶名，將值帶入 Form11窗體里，因此在 Form_Load事件里編寫如下代碼：n Private Sub Form_Load()n ……n (3) = 當(dāng)前用戶 : g_usern End Subn 編寫完事件后，運(yùn)行程序時(shí)狀態(tài)欄顯示相應(yīng)的信息如圖 5