【正文】 ? 5．參照 。 ? 3．參照 。 圖 517 運行的狀態(tài)欄 本章習題 ? 1．簡述下拉式菜單和彈出式菜單的適用環(huán)境及用法。 條記錄 ? …… ? End Sub 狀態(tài)欄的設計 ? （ 2）在狀態(tài)欄的第 3個窗格里顯示當前用戶 ? 用戶登錄時輸入了用戶名，將值帶入 Form11窗體里，因此在 Form_Load事件里編寫如下代碼： ? Private Sub Form_Load() ? …… ? (3) = 當前用戶 : amp。 條記錄 ? …… ? End Sub ? ③ 在 DataGrid1控件里移動光標時，第 2個窗格顯示當前記錄數(shù)，在 DataGrid1控件的 RowColChange事件里編寫如下代碼： ? Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) ? …… ? (2) = 記錄：目前在第 amp。 條記錄 ? End If ? …… ? End Sub ? ② 當導入數(shù)據(jù)時，第 2個窗格顯示了導入的總記錄數(shù)，在導入菜單的 Click事件里編寫如下代碼： ? Private Sub import_Click() ? …… ? (2) = 已導入，現(xiàn)在共有 amp。指針所指的記錄號 ? If 0 Then ? (2) = 記錄：目前在第 amp。 amp。 ? （ 1）狀態(tài)欄的前兩個窗格信息：總記錄數(shù)和當前指針的記錄數(shù) ? ①單擊 ListView1的每 1項時，狀態(tài)欄的前兩個窗格分別顯示當前處理的數(shù)據(jù)表的總記錄數(shù)和當前指針的記錄數(shù)，在 ListView1控件的Click事件里編寫如下代碼： ? Private Sub ListView1_Click() ? …… ? 39。 表 510 “窗格 ” 選項卡的屬性設置 索引 關鍵字 樣式 有效性 說明 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)欄的設計 ? 3．編寫事件代碼 ? 窗格對象是一個以 1為底的集合，可以用 Item屬性引用指定的窗格對象，格式如下： ? (index) ? 其中， index是窗格的索引號。 ? （ 4）單擊 “ 插入窗格 ” 按鈕，依次加入所需的各個窗格，如圖 516所示。 ? （ 2）選中 StBar1控件，單擊右鍵，在彈出菜單中選擇 “ 屬性 ” 菜單項，彈出 “ 屬性頁 ” 對話框。 ? 1．添加 StatusBar控件 ? 在上節(jié)中介紹了在工具箱中添加 StatusBar控件的方法，這里不再贅述。 ? “企業(yè)資質管理系統(tǒng) ” 狀態(tài)欄的設計 ? 在 “ 企業(yè)資質管理系統(tǒng) ” 中利用狀態(tài)欄顯示系統(tǒng)運行時的一些信息，包括當前運行的各個數(shù)據(jù)表的總記錄數(shù)，當前指針的記錄數(shù)，當前用戶、當前鍵盤上的Insert狀態(tài)和當前時間。 2 sbrContents 調整 Panel 大小以適合它的目錄，但是其寬度決不會低于 MinWidth 屬性指定的寬度。取值如表 59所示： 表 59 Panel對象的 AutoSize屬性取值 值 常數(shù) 描述 0 sbrNoAutoSize 缺省設置， Panel不能自動調整大小，其寬度由 Width 屬性指定。 ? “ 斜面 ” ：對應于 Panel對象的 Bevel屬性，用來設置 Panel對象的斜面樣式。 7 sbrKana 當激活滾動鎖定時，用黑體顯示字母 KANA；而當滾動鎖定停用時，顯示暗淡的字母。 5 sbrTime 以系統(tǒng)格式顯示當前時間。 3 sbrIns 當激活插入鍵時，用黑體顯示字母 INS；而當停用插入鍵時，顯示暗淡的字母。 1 sbrCaps 當激活 Caps Lock 時，用黑體顯示字母 CAPS；而當停用 Caps Lock 時，顯示暗淡的字母。 表 57 Panel對象的 Style屬性設置 值 常數(shù) 描述 0 sbrText 缺省設置。取值如表 56所示： 表 56 Panel對象的 Alignment屬性取值 值 常數(shù) 描述 0 sbrLeft 文本左對齊 1 sbrCenter 文本居中 2 sbrRight文 本右對齊 狀態(tài)欄的設計 ? “樣式 ” ：對應于 Panel對象的 Style屬性，用來設置窗格的樣式。 ? “ 實際寬度 ” ：對應于 Panel對象的 Width屬性，表示窗格的當前寬度，Width屬性值總是反映窗格的實際寬度，并且不能小于 MinWidth屬性值。當 AutoSize屬性被設置為 1時，使用 MinWidth屬性可以防止窗格因自動調整大小被調整到太小的寬度。該標識符在整個 Panel對象集合的標識符中必須惟一。 ? “ 工具提示文本 ” ：對應于 Panel對象的 ToolTipText屬性，用于設置相應的窗格的提示信息，運行時鼠標指向該窗格時會出現(xiàn)該提示字符串。 ? “ 文本 ” ：對應于 Panel對象的 Text屬性，用于設置要在窗格中顯示的文本。 ? “ 索引 ” ：對應于 Panel對象的 Index屬性，表示添加的 Panel對象的索引值，該索引值由添加次序決定。 “ 窗格 ” 選項卡用來添加 “ 窗格 ” （ Panel）對象，以及設置每個 “ 窗格 ” 對象的各種屬性，其中一些屬性如下： 圖 515 StatusBar控件的 “ 屬性頁 ” 對話框的 “ 窗格 ” 選項卡 狀態(tài)欄的設計 ? “插人窗格 ” 按鈕：每次單擊該按鈕可以在狀態(tài)欄上添加一個窗格。運行時，當鼠標指向工具欄時，鼠標指針顯示成該屬性定義的形狀。 ? “ 鼠標指針 ” ：對應于工具欄的 MousePointer屬性。 圖 514 StatusBar控件的 “ 屬性頁 ” 對話框的 “ 通用 ” 選項卡 狀態(tài)欄的設計 ? ④ 設置 “ 通用 ” 選項卡的屬性，其中一些屬性如下： ? “ 樣式 ” ：對應于工具欄的 Style屬性，用于決定工具欄按鈕的外觀樣式。 ? （ 1）創(chuàng)建 StatusBar控件 ? 利用 StatusBar控件創(chuàng)建狀態(tài)欄的步驟如下： ? ①在工具箱中 StatusBar控件加入到窗體中，生成 StatusBar1控件。 圖 513 工具箱中的 Statusbar 控件 狀態(tài)欄的設計 ? 2．使用狀態(tài)欄控件制作狀態(tài)欄 ? 使用狀態(tài)欄控件 StatusBar可以很容易地設計出具有 Windows風格的狀態(tài)欄。 ? 狀態(tài)欄的設計 ? 1．添加狀態(tài)欄控件（ Statusbar） ? 制作狀態(tài)欄需要添加一個 Active控件： Statusbar 控件。 按鈕代碼。添加 39。 按鈕代碼。添加 39。 按鈕代碼。添加 39。 按鈕代碼。添加 39。 按鈕代碼。添加 39。 按鈕代碼。添加 39。 圖 512 “通用 ” 選項卡的設置 工具欄的設計 ? 接著選擇 “ 按鈕 ” 選項卡，添加工具欄的按鈕，各按鈕的屬性設置如表 55所示。 ? 2．創(chuàng)建 Imagelist控件 ? 按前面介紹的方法在工具箱中選擇一個 Imagelist控件放在窗體中，定義該控件的名稱為 ToolbarIcons，在 ToolbarIcons控件的 “ 屬性頁 ” 對話框選擇 “ 圖像 ” 選項卡，單擊 “ 插入圖片 ” 按鈕，依次加入所需的各個圖標，如圖 511所示。 工具欄的