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

　　

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