窗格的樣式(Style)屬性是很重要的一個屬性，它決定在窗格中顯示的內容。表4.19中列出了樣式屬性的取值及其含義。

　　窗格的樣式(style)屬性可以在設計階段設置，也可以在運行階段通過代碼設置。例如StatusBarl.Panels(l).Style=sbfTime語句是將狀態欄的第一個窗格的樣式屬性的值設置為sbrTime.即在該窗格內顯示當前的系統時間。

　　在本例中，由于在第一個窗格內顯示的是系統日期，因此，在【樣式】列表框中選擇6-SbriDate選項。同時，在【對齊】列表框中選擇1-sbrCenter選項，即居中顯示。單擊【應用】按鈕，在狀態欄上就顯示出當前的系統時間。

　　在默認情況下，狀態欄只包含一個窗格。使用【插入窗格】按鈕可在狀態欄中添加窗格。單擊【插入窗格】按鈕后，就會發現在狀態欄中多了一個窗格。

　　注意：插入窗格后在【窗格】選項卡中看不出任何變化，窗格的索引號仍然是1,用戶可以通過單擊【索引】文本框后的箭頭按鈕來切換窗格。不要在單擊【插入窗格】按鈕后就開始設置屬性，那樣設置的仍然是第一個窗格的屬性。

　　單擊【索引】文本框后的向右箭頭，此時，【索引】文本框中的索引號變為2,表明以下各屬性是針對第二個窗格而言的。在本例中，第二個窗格顯示的是文本。因此，使用樣式屬性的默認值就可以了。在【文本】文本框中輸入"歡迎"兩個字，單擊【應用】按鈕后這兩字將顯示在窗格中。在程序中可以也使用窗格的Text屬性來設置要顯示的內容。

　　重復插入窗格的操作，向狀態欄中添加第三個窗格，并且在【樣式】列表框中選擇1- SbrCaps選項，在【對齊】列表框中選擇1-sbrCenter選項。單擊【確定】按鈕，即可關閉【屬性頁】對話框，完成狀態欄的設置。

　　接下來的工作就是為狀態欄添加代碼。對于本例中創建的狀態欄，只需為第二個窗格添加代碼，使它能根據鼠標指針的位置顯示出相應的內容。其他兩個窗格無需編寫任何代碼。

　　雙擊按鈕控件，打開【代碼】窗口，編寫按鈕控件的MouseMove事件過程如下

　　Private Sub Command1_MouseMove(Button As Integer,shift As Integer,X As Single,Y As Single)

　　StatttusBartl.Panels(2).Text=“這是按鈕”

　　End Sub

　　該段代碼的作用是：當鼠標移動到按鈕上，在狀態欄的第二個窗格中顯示"這是按鈕"幾個字。

　　同理，編寫窗體與文本框的MouseMove事件過程如下：

　　Private Sub Form_MouseMove(Button As Integer,shift As Integer,x As Single,Y As Single)

　　StatusBar1.Panels(2).Text=“歡迎”

　　End Sub

　　Private Sub Text_MouseMove(Button As Integer,shift As Integer,x As Single,Y As Single)

　　StatusBar1.Panels(2).Text=“這是文本框”

　　End Sub

　　這樣，一個簡單的狀態欄就創建完畢。運行程序，出現界面。在狀態欄的第一格中顯示的是當前的系統時間：第二格中顯示"歡迎"兩個字;第三格中以灰色顯示CAPS,表明當前的Caps Lock鍵處于關閉狀態。

　　將鼠標指針移動到按鈕上，第二個窗格中的內容變成"這是按鈕",將鼠標指針移動到文本框上，則變成"這是文本框".若鼠標指針處于窗體的其他位置，窗格中恢復顯示"歡迎".按Caps Lock鍵，第三窗格中的CAPS字符的顏色會在黑色與灰色之間切換。圖4.40所示的是將鼠標移動到文本框上，并使Caps Lock鍵處于打開狀態時的情形。

　　2010年9月計算機等級考試成績查詢時間匯總

　　2011計算機等級考試二級VB考點及習題匯總

　　2011年計算機等級考試二級VB復習指導匯總

　　2011年上半年計算機等級考試報名時間匯總