窗格的樣式(Style)屬性是很重要的一個屬性,它決定在窗格中顯示的內(nèi)容。表4.19中列出了樣式屬性的取值及其含義。
窗格的樣式(style)屬性可以在設(shè)計階段設(shè)置,也可以在運行階段通過代碼設(shè)置。例如StatusBarl.Panels(l).Style=sbfTime語句是將狀態(tài)欄的第一個窗格的樣式屬性的值設(shè)置為sbrTime.即在該窗格內(nèi)顯示當前的系統(tǒng)時間。
在本例中,由于在第一個窗格內(nèi)顯示的是系統(tǒng)日期,因此,在【樣式】列表框中選擇6-SbriDate選項。同時,在【對齊】列表框中選擇1-sbrCenter選項,即居中顯示。單擊【應(yīng)用】按鈕,在狀態(tài)欄上就顯示出當前的系統(tǒng)時間。
在默認情況下,狀態(tài)欄只包含一個窗格。使用【插入窗格】按鈕可在狀態(tài)欄中添加窗格。單擊【插入窗格】按鈕后,就會發(fā)現(xiàn)在狀態(tài)欄中多了一個窗格。
注意:插入窗格后在【窗格】選項卡中看不出任何變化,窗格的索引號仍然是1,用戶可以通過單擊【索引】文本框后的箭頭按鈕來切換窗格。不要在單擊【插入窗格】按鈕后就開始設(shè)置屬性,那樣設(shè)置的仍然是第一個窗格的屬性。
單擊【索引】文本框后的向右箭頭,此時,【索引】文本框中的索引號變?yōu)?,表明以下各屬性是針對第二個窗格而言的。在本例中,第二個窗格顯示的是文本。因此,使用樣式屬性的默認值就可以了。在【文本】文本框中輸入"歡迎"兩個字,單擊【應(yīng)用】按鈕后這兩字將顯示在窗格中。在程序中可以也使用窗格的Text屬性來設(shè)置要顯示的內(nèi)容。
重復(fù)插入窗格的操作,向狀態(tài)欄中添加第三個窗格,并且在【樣式】列表框中選擇1- SbrCaps選項,在【對齊】列表框中選擇1-sbrCenter選項。單擊【確定】按鈕,即可關(guān)閉【屬性頁】對話框,完成狀態(tài)欄的設(shè)置。
接下來的工作就是為狀態(tài)欄添加代碼。對于本例中創(chuàng)建的狀態(tài)欄,只需為第二個窗格添加代碼,使它能根據(jù)鼠標指針的位置顯示出相應(yīng)的內(nèi)容。其他兩個窗格無需編寫任何代碼。
雙擊按鈕控件,打開【代碼】窗口,編寫按鈕控件的MouseMove事件過程如下
Private Sub Command1_MouseMove(Button As Integer,shift As Integer,X As Single,Y As Single)
StatttusBartl.Panels(2).Text=“這是按鈕”
End Sub
該段代碼的作用是:當鼠標移動到按鈕上,在狀態(tài)欄的第二個窗格中顯示"這是按鈕"幾個字。
同理,編寫窗體與文本框的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
這樣,一個簡單的狀態(tài)欄就創(chuàng)建完畢。運行程序,出現(xiàn)界面。在狀態(tài)欄的第一格中顯示的是當前的系統(tǒng)時間:第二格中顯示"歡迎"兩個字;第三格中以灰色顯示CAPS,表明當前的Caps Lock鍵處于關(guān)閉狀態(tài)。
將鼠標指針移動到按鈕上,第二個窗格中的內(nèi)容變成"這是按鈕",將鼠標指針移動到文本框上,則變成"這是文本框".若鼠標指針處于窗體的其他位置,窗格中恢復(fù)顯示"歡迎".按Caps Lock鍵,第三窗格中的CAPS字符的顏色會在黑色與灰色之間切換。圖4.40所示的是將鼠標移動到文本框上,并使Caps Lock鍵處于打開狀態(tài)時的情形。
相關(guān)推薦:北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |