【正文】 ents調(diào)整 Panel 大小以適合它的目錄，但是其寬度決不會(huì)低于 MinWidth 屬性指定的寬度。n 1．添加 StatusBar控件n 在上節(jié)中介紹了在工具箱中添加 StatusBar控件的方法，這里不再贅述。n （ 4）單擊 “插入窗格 ”按鈕，依次加入所需的各個(gè)窗格，如圖 516所示。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。n 2．參照 。演講完畢，謝謝觀看！。n 4．參照 。指針?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)的信息如圖 517所示。 表 510 “窗格 ”選項(xiàng)卡的屬性設(shè)置索引 關(guān)鍵字 樣式 有效性 說明1 q1 0sbrText 有效 當(dāng)前窗體中數(shù)據(jù)的總記錄數(shù)2 q2 0sbrText 有效 當(dāng)前指向的記錄數(shù)3 q3 0sbrText 有效 當(dāng)前用戶4 q4 3sbrIns 無效 當(dāng)前鍵盤上的 Insert狀態(tài)5 q5 5 sbrTime 有效 當(dāng)前時(shí)間 狀態(tài)欄的設(shè)計(jì)n 3．編寫事件代碼n 窗格對(duì)象是一個(gè)以 1為底的集合，可以用 Item屬性引用指定的窗格對(duì)象，格式如下：n (index)n 其中， index是窗格的索引號(hào)。n （ 2）選中 StBar1控件，單擊右鍵，在彈出菜單中選擇 “屬性 ”菜單項(xiàng)，彈出 “屬性頁”對(duì)話框。n “企業(yè)資質(zhì)管理系統(tǒng) ” 狀態(tài)欄的設(shè)計(jì)n 在 “企業(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í)間。取值如表 59所示： 表 59 Panel對(duì)象的 AutoSize屬性取值值 常數(shù) 描述0 sbrNoAutoSize缺省設(shè)置， Panel不能自動(dòng)調(diào)整大小，其寬度由 Width 屬性指定。7 sbrKana 當(dāng)激活滾動(dòng)鎖定時(shí)，用黑體顯示字母 KANA；而當(dāng)滾動(dòng)鎖定停用時(shí)，顯示暗淡的字母。 3 sbrIns 當(dāng)激活插入鍵時(shí)，用黑體顯示字母 INS；而當(dāng)停用插入鍵時(shí)，顯示暗淡的字母。 表 57 Panel對(duì)象的 Style屬性設(shè)置值 常數(shù) 描述0 sbrText 缺省設(shè)置。n “實(shí)際寬度 ”：對(duì)應(yīng)于 Panel對(duì)象的 Width屬性，表示窗格的當(dāng)前寬度，Width屬性值總是反映窗格的實(shí)際寬度，并且不能小于 MinWidth屬性值。該標(biāo)識(shí)符在整個(gè) Panel對(duì)象集合的標(biāo)識(shí)符中必須惟一。n “文本 ”：對(duì)應(yīng)于 Panel對(duì)象的 Text屬性，用于設(shè)置要在窗格中顯示的文本。 “窗格 ” 選項(xiàng)卡用來添加 “窗格 ”（ Panel）對(duì)象，以及設(shè)置每個(gè) “窗格 ”對(duì)象的各種屬性，其中一些屬性如下： 圖 515 StatusBar控件的 “屬性頁 ”對(duì)話框的 “窗格 ”選項(xiàng)卡 狀態(tài)欄的設(shè)計(jì)n “插人窗格 ”按鈕：每次單擊該按鈕可以在狀態(tài)欄上添加一個(gè)窗格。n “鼠標(biāo)指針 ”：對(duì)應(yīng)于工具欄的 MousePointer屬性。n （ 1）創(chuàng)建 StatusBar控件n 利用 StatusBar控件創(chuàng)建狀態(tài)欄的步驟如下：n ① 在工具箱中 StatusBar控件加入到窗體中，生成 StatusBar1控件。n 狀態(tài)欄的設(shè)計(jì)n 1．添加狀態(tài)欄控件（ Statusbar）n 制作狀態(tài)欄需要添加一個(gè) Active控件： Statusbar 控件。添加 39。添加 39。添加 39。添加 39。添加 39。添加 39。n 2．創(chuàng)建 Imagelist控件n 按前面介紹的方法在工具箱中選擇一個(gè) Imagelist控件放在窗體中，定義該控件的名稱為 ToolbarIcons，在 ToolbarIcons控件的 “屬性頁 ”對(duì)話框選擇 “圖像 ”選項(xiàng)卡，單擊 “插入圖片 ”按鈕，依次加入所需的各個(gè)圖標(biāo)，如圖 511所示。 n ⑦ 設(shè)置完 Toolbar控件的 “屬性頁 ”對(duì)話框中的值，單擊 “確定 ”按鈕，即生成了系統(tǒng)的工具欄。n “有效 ”：對(duì)應(yīng)于按鈕菜單項(xiàng)的 Enabled屬性。n “混合狀態(tài) ”：對(duì)應(yīng)于按鈕的 MixedState屬性，用于決定按鈕對(duì)象是否以不確定狀態(tài)出現(xiàn)，缺省值為 False。圖像是由關(guān)聯(lián)的ImageList控件提供的。運(yùn)行時(shí)單擊下拉箭頭可以打開一個(gè)下拉菜單，從中選擇所需要的選項(xiàng)。n 3—tbrSeparator 按鈕作為有 8個(gè)像素的固定寬度的分隔符使用。n 2—tbrButtonGroup按鈕具有選項(xiàng)按鈕組的特點(diǎn)。該標(biāo)識(shí)符在整個(gè)按鈕對(duì)象集合的標(biāo)識(shí)符中必須惟一。n “索引 ”：對(duì)應(yīng)于按鈕對(duì)象的 Index屬性，表示添加的按鈕對(duì)象的索引值，該索引值由添加次序決定。 工具欄的設(shè)計(jì)n ⑤ 添加工具欄的按鈕n 工具欄中要包含按鈕，因此創(chuàng)建工具欄，必須先將按鈕添加到工具欄中。如果該屬性設(shè)置為 True，在重新調(diào)整窗體大小時(shí)， ToolBar控件上的按鈕會(huì)自動(dòng)換行；否則， ToolBar控件上的按鈕不會(huì)自動(dòng)換行。選擇 0為標(biāo)準(zhǔn)樣式，按鈕呈標(biāo)準(zhǔn)凸起形狀，選擇 1時(shí)按鈕呈平面形狀。n “邊框樣式 ”：對(duì)應(yīng)于工具欄的 BorderStyle屬性，選擇 0為無邊框樣式，選擇 1為固定單邊框。運(yùn)行時(shí)，當(dāng)鼠標(biāo)指向工具欄時(shí)，鼠標(biāo)指針顯示成該屬性定義的形狀。 ”n ③ 單擊 “插入圖片 ”按鈕，選擇合適的圖片插入，此時(shí)圖片索引為 1，依次類推，插入所需的圖片，此時(shí)每個(gè)圖片都自動(dòng)生成 1個(gè)索引號(hào)，該索引號(hào)在定義工具欄時(shí)使用。n 使用工具欄控件制作工具欄n 1．添加工具欄控件（ Toolbar）n 制作工具欄需要兩個(gè) Active控件 ——Toolbar控件和 Imagelist控件。 圖 56 彈出式菜單的應(yīng)用 菜單設(shè)計(jì)n （ 1）在 “菜單編輯器 ”中設(shè)置快捷菜單項(xiàng)，如表 54所示。如果該參數(shù)省略，則彈出式菜單中沒有以黑體字出現(xiàn)的控件。 菜單設(shè)計(jì) 表 52 位置常量 表 53 行為常量 值 位置常量 說明0 vbPopupMenuLeftAlign 缺省值，彈出式菜單的左上角位于坐標(biāo) (x,y)處4 vbPopupMenuCenterAlign 彈出式菜單的上框中央位于坐標(biāo) (x,y)處8 vbPopupMenuRightAlign 彈出式菜單的右上角位于坐標(biāo) (x,y)處值 行為常量 說明0 VbPopupMenuLeftButton 缺省值，彈出式菜單項(xiàng)只響應(yīng)鼠標(biāo)左鍵單擊2 VbPo