【導(dǎo)讀】掌握VisualBasic菜單的設(shè)計方法。在Windows環(huán)境下運行的各種應(yīng)用程序，雖然各有不。同，但這些界面大都有著共同的特點。括菜單、工具欄和狀態(tài)欄等。序時，也需要進行界面設(shè)計。最具特色的部分。成較復(fù)雜的操作時，使用菜單具有十分明顯的優(yōu)勢。菜單的基本作用有兩個，一是提供人機對話的界面，統(tǒng)，控制各種功能模塊的運行。免由于誤操作而帶來的嚴重后果。按鈕單擊窗體時所顯示的菜單就是彈出式菜單。下拉式菜單是一種典型的窗口式菜單。單供用戶選擇或輸入信息。主菜單的每一項又可“下拉”出下一級菜。復(fù)原來的屏幕狀態(tài)。名稱是用來輸入菜單名及各菜單項控制名的文本框，它不在菜單中出現(xiàn)。單擊右端的箭頭，顯示熱鍵的下拉式菜單，從中選擇菜單項等價的熱鍵。其缺省設(shè)置為True，表明相應(yīng)的菜單項可以對用戶事件作出響應(yīng)；“顯示窗口列表”用于多文檔窗體。刪除當前選中的菜單項。在“菜單編輯器”對話框的下部，輸入的菜單項在這里分級顯示出來。們的設(shè)置如表5-1所示。

　　

【正文】 el對象的 Key屬性，用于給當前的 Panel對象定義一個標識符。該標識符在整個 Panel對象集合的標識符中必須惟一。 狀態(tài)欄的設(shè)計 ? “最小寬度 ” ：對應(yīng)于 Panel對象的 MinWidth，返回或設(shè)置 Panel對象的最小寬度，缺省值與狀態(tài)欄的實際寬度的缺省值相同。當 AutoSize屬性被設(shè)置為 1時，使用 MinWidth屬性可以防止窗格因自動調(diào)整大小被調(diào)整到太小的寬度。當 Autosize屬性被設(shè)置為 0時， MinWidth屬性總是被設(shè)定為與Width屬性相同的值。 ? “ 實際寬度 ” ：對應(yīng)于 Panel對象的 Width屬性，表示窗格的當前寬度，Width屬性值總是反映窗格的實際寬度，并且不能小于 MinWidth屬性值。 ? “ 對齊 ” ：對應(yīng)于 Panel對象的 Alignment屬性，用于設(shè)置窗格中的文本對齊方式。取值如表 56所示： 表 56 Panel對象的 Alignment屬性取值 值 常數(shù) 描述 0 sbrLeft 文本左對齊 1 sbrCenter 文本居中 2 sbrRight文 本右對齊 狀態(tài)欄的設(shè)計 ? “樣式 ” ：對應(yīng)于 Panel對象的 Style屬性，用來設(shè)置窗格的樣式。其屬性設(shè)置如表 57所示。 表 57 Panel對象的 Style屬性設(shè)置 值 常數(shù) 描述 0 sbrText 缺省設(shè)置。顯示用 Text 屬性設(shè)置的文本或由 Pictrue屬性設(shè)置的圖片。 1 sbrCaps 當激活 Caps Lock 時，用黑體顯示字母 CAPS；而當停用 Caps Lock 時，顯示暗淡的字母。 2 sbrNum 當激活數(shù)字鎖定鍵時，用黑體顯示字母 NUM；而當停用數(shù)字鎖定鍵時，顯示暗淡的字母。 3 sbrIns 當激活插入鍵時，用黑體顯示字母 INS；而當停用插入鍵時，顯示暗淡的字母。 4 sbrScrl 當激活滾動鎖定時，用黑體顯示字母 SCRL；而當停用滾動鍵時，顯示暗淡的字母。 5 sbrTime 以系統(tǒng)格式顯示當前時間。 6 sbrDate 以系統(tǒng)格式顯示當前日期。 7 sbrKana 當激活滾動鎖定時，用黑體顯示字母 KANA；而當滾動鎖定停用時，顯示暗淡的字母。 狀態(tài)欄的設(shè)計 ? 如果將 Style 屬性設(shè)置為除零以外的任何樣式，則任何以 Text 屬性設(shè)置的文本將不顯示，除非將 Style 屬性設(shè)置為零。 ? “ 斜面 ” ：對應(yīng)于 Panel對象的 Bevel屬性，用來設(shè)置 Panel對象的斜面樣式。取值如表 58所示： 表 58 Panel對象的 Bevel屬性取值 值 常數(shù) 描述 0 sbrNoBevel Panel不顯示斜面，但文本看起來好象是將它顯示在狀態(tài)欄的右邊 1 sbrInset 缺省設(shè)置， Panel 以凹進的形式顯示 2 sbrRaised Panel以凸起的形式顯示 狀態(tài)欄的設(shè)計 ? “自動調(diào)整大小 ” ：對應(yīng)于 Panel對象的 AutoSize屬性，用來確定窗格能否自動調(diào)整大小。取值如表 59所示： 表 59 Panel對象的 AutoSize屬性取值 值 常數(shù) 描述 0 sbrNoAutoSize 缺省設(shè)置， Panel不能自動調(diào)整大小，其寬度由 Width 屬性指定。 1 sbrSpring Panel的寬度隨窗體寬度的改變自動調(diào)整，其寬度決不會低于 MinWidth 屬性指定的寬度。 2 sbrContents 調(diào)整 Panel 大小以適合它的目錄，但是其寬度決不會低于 MinWidth 屬性指定的寬度。 狀態(tài)欄的設(shè)計 ? （ 2）編寫代碼 ? 狀態(tài)欄中的信息總是反映當前程序運行的狀態(tài)，因此時刻在發(fā)生變化，要確定狀態(tài)欄中各窗格對應(yīng)的值，就需要在事件中編寫代碼。 ? “企業(yè)資質(zhì)管理系統(tǒng) ” 狀態(tài)欄的設(shè)計 ? 在 “ 企業(yè)資質(zhì)管理系統(tǒng) ” 中利用狀態(tài)欄顯示系統(tǒng)運行時的一些信息，包括當前運行的各個數(shù)據(jù)表的總記錄數(shù)，當前指針的記錄數(shù)，當前用戶、當前鍵盤上的Insert狀態(tài)和當前時間。下面結(jié)合 “ 企業(yè)資質(zhì)管理系統(tǒng) ”介紹狀態(tài)欄的設(shè)計步驟。 ? 1．添加 StatusBar控件 ? 在上節(jié)中介紹了在工具箱中添加 StatusBar控件的方法，這里不再贅述。 狀態(tài)欄的設(shè)計 ? 2．創(chuàng)建 StatusBar控件 ? （ 1）在工具箱中選擇一個 StatusBar控件放在窗體中，定義該控件的名稱為StBar1。 ? （ 2）選中 StBar1控件，單擊右鍵，在彈出菜單中選擇 “ 屬性 ” 菜單項，彈出 “ 屬性頁 ” 對話框。 ? （ 3）在 StBar1控件的 “ 屬性頁 ” 對話框選擇 “ 窗格 ” 選項卡，添加各個 “ 窗格 ”對象。 ? （ 4）單擊 “ 插入窗格 ” 按鈕，依次加入所需的各個窗格，如圖 516所示。 圖 516 “窗格 ” 選項卡的設(shè)置 狀態(tài)欄的設(shè)計 ? （ 5）系統(tǒng)中添加了 5個窗格，各個窗格的屬性設(shè)置如表 510所示。 表 510 “窗格 ” 選項卡的屬性設(shè)置 索引 關(guān)鍵字 樣式 有效性 說明 1 q1 0sbrText 有效 當前窗體中數(shù)據(jù)的總記錄數(shù) 2 q2 0sbrText 有效 當前指向的記錄數(shù) 3 q3 0sbrText 有效 當前用戶 4 q4 3sbrIns 無效 當前鍵盤上的 Insert狀態(tài) 5 q5 5 sbrTime 有效 當前時間 狀態(tài)欄的設(shè)計 ? 3．編寫事件代碼 ? 窗格對象是一個以 1為底的集合，可以用 Item屬性引用指定的窗格對象，格式如下： ? (index) ? 其中， index是窗格的索引號。 ? 由于狀態(tài)欄的信息是系統(tǒng)實時信息，因此狀態(tài)欄中窗格的取值在不同對象的事件中。 ? （ 1）狀態(tài)欄的前兩個窗格信息：總記錄數(shù)和當前指針的記錄數(shù) ? ①單擊 ListView1的每 1項時，狀態(tài)欄的前兩個窗格分別顯示當前處理的數(shù)據(jù)表的總記錄數(shù)和當前指針的記錄數(shù)，在 ListView1控件的Click事件里編寫如下代碼： ? Private Sub ListView1_Click() ? …… ? 39。單擊 ListView1控件時選擇要處理的數(shù)據(jù)表共有的記錄數(shù) ? (1) = + :共 amp。 amp。 條記錄 ? 39。指針所指的記錄號 ? If 0 Then ? (2) = 記錄：目前在第 amp。 amp。 條記錄 ? End If ? …… ? End Sub ? ② 當導(dǎo)入數(shù)據(jù)時，第 2個窗格顯示了導(dǎo)入的總記錄數(shù)，在導(dǎo)入菜單的 Click事件里編寫如下代碼： ? Private Sub import_Click() ? …… ? (2) = 已導(dǎo)入，現(xiàn)在共有 amp。 amp。 條記錄 ? …… ? End Sub ? ③ 在 DataGrid1控件里移動光標時，第 2個窗格顯示當前記錄數(shù)，在 DataGrid1控件的 RowColChange事件里編寫如下代碼： ? Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) ? …… ? (2) = 記錄：目前在第 amp。 amp。 條記錄 ? …… ? End Sub 狀態(tài)欄的設(shè)計 ? （ 2）在狀態(tài)欄的第 3個窗格里顯示當前用戶 ? 用戶登錄時輸入了用戶名，將值帶入 Form11窗體里，因此在 Form_Load事件里編寫如下代碼： ? Private Sub Form_Load() ? …… ? (3) = 當前用戶 : amp。 g_user ? End Sub ? 編寫完事件后，運行程序時狀態(tài)欄顯示相應(yīng)的信息如圖 517所示。 圖 517 運行的狀態(tài)欄 本章習(xí)題 ? 1．簡述下拉式菜單和彈出式菜單的適用環(huán)境及用法。 ? 2．參照 。 ? 3．參照 。 ? 4．參照 。 ? 5．參照 。