欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

　　StatusBar 控件由 Panel（窗格） 對象組成，最多能被分成 16 個(gè) Panel 對象，每一個(gè) Panel 對象能包含文本和/或圖片?？刂苽€(gè)別窗格的外觀(guān)屬性包括 Width、Alignment（文本和圖片的）和 Bevel(斜面)。此外，能使用 Style 屬性七個(gè)值中的一個(gè)自動(dòng)地顯示公共數據，諸如日期、時(shí)間和鍵盤(pán)狀態(tài)等。

　　2． 創(chuàng )建狀態(tài)欄

　　先在窗體上畫(huà)出一個(gè)StatusBar對象，再右擊該對象，從快捷菜單中選擇“屬性”，進(jìn)入屬性頁(yè)設置窗口，進(jìn)行下面的設置：

　?。?） 選擇窗格形狀

　　在屬性窗口里選擇通用標簽，在樣式列表框里選擇多窗格（缺省形式）或單窗格簡(jiǎn)單文本形式。

　?。?） 添加或刪除狀態(tài)欄窗格

　　在屬性窗口里選擇窗格標簽，單擊插入窗格按鈕添加一個(gè)窗格，或單擊刪除窗格按鈕刪除一個(gè)窗格。

　?。?） 在單窗格里顯示文本

　　 在屬性窗口里選擇通用標簽，在簡(jiǎn)單文本框里輸入想顯示在狀態(tài)欄窗格里的文本。用代碼顯示的方式是：

　　StatusBar1.SimpleText = "要顯示的內容"

　?。?） 在多窗格里顯示文本或圖形

　　1). 在屬性窗口里選擇窗格標簽，用索引旁的按鈕選擇窗格序號。

　　2). 在文本框里輸入想顯示在狀態(tài)欄窗格里的文本。用代碼顯示的方式是：

　　StatusBar1.Panels(x).Text = "要顯示的內容"

　　3). 如果想加入圖形，單擊瀏覽按鈕打開(kāi)一個(gè)圖形選擇對話(huà)框，選擇想加入的圖形，然后單擊打開(kāi)按鈕。

　?。?)  編寫(xiě)代碼

　　如果是一個(gè)單窗格狀態(tài)欄，當用戶(hù)單擊狀態(tài)欄時(shí)，只需用下面的事件過(guò)程來(lái)響應：

　　　Private Sub StatusBar1_Click()
　　　　　　　 <要執行的代碼>
　　　End Sub

　　如果是一個(gè)多窗格狀態(tài)欄，就需要鑒別用戶(hù)單擊的是哪一個(gè)窗格，可用下面的事件過(guò)程來(lái)識別用戶(hù)所單擊的窗格：

　　　Private Sub StatusBar1_PanelClick(ByVal Panel As Panel)
　　　　　 Select Case Panel.Index
　　　　　　　　　 Case 1
　　　　　　　　　　　　　　　 <要執行的代碼>
　　　　　　　　　 Case 2
　　　　　　　　　　　　　　　　 <要執行的代碼>
　　　　　　　　　　 ……
　　　　　 End Select
　　　End Sub

　　3．創(chuàng )建工具欄

　?。?）.建立工具欄

　　1） 在工具箱里單擊工具欄圖標，拖到窗體的任何位置，Visual Basic自動(dòng)將ToolBar移到頂部。再右擊該對象，從快捷菜單中選擇“屬性”，進(jìn)入屬性頁(yè)設置窗口；

　　2） 選擇按鈕標簽，單擊插入按鈕，Visual Basic就會(huì )在工具欄上顯示一個(gè)空按鈕，重復此步插入多個(gè)按鈕；

　　3） 單擊確定按鈕。如果想把按鈕分組，首先插入一個(gè)分隔的按鈕，再在對話(huà)框里將這個(gè)按鈕的樣式屬性改為3-Separator。

　?。?） 為工具欄增加圖畫(huà)

　　1). 在Visual Basic工具箱里單擊ImageList圖標，并將它拖到窗體的任何位置（位置不重要，因為它總是不可見(jiàn)的），再右擊該對象，從快捷菜單中選擇“屬性”，進(jìn)入屬性頁(yè)設置窗口；

　　2). 選擇圖象標簽，單擊插入圖片，在選定圖形對話(huà)框里選擇想使用的位圖或圖標，然后單擊打開(kāi)按鈕。為每個(gè)想添加圖形的工具欄按鈕重復此步。

　　3). 單擊確定按鈕。

　　4). 進(jìn)入ToolBar屬性對話(huà)框，選擇通用標簽，在圖象列表框里選擇剛才添加的ImageList控件。

　　5). 選擇按鈕標簽，單擊緊挨Index框的向左或向右箭頭以選擇一個(gè)按鈕序號。出現在工具欄最左邊的按鈕序號為1。

　　6). 在Image框里輸入一個(gè)數，輸入為1，則顯示剛才ImageList控件里的第一個(gè)圖形，輸入為2，則顯示剛才ImageList控件里的第二個(gè)圖形。

　　7). 為每個(gè)按鈕重復第6步， 單擊確定按鈕，現在Visual Basic就會(huì )在工具欄上顯示精美的圖形了。

　?。?）為工具欄添加文本信息

　　在ToolBar屬性對話(huà)框中選擇按鈕標簽，在標題框里輸入想顯示在按鈕上的文本。

　?。?）添加ToolTips

　?。?）編寫(xiě)代碼

　　雙擊工具欄，以下面的格式輸入代碼就可以了：

           Private Sub Toolbar1_ButtonClick(ByVal Button As Button)
　　　　　　　 Select Case Button.Index
　　　　　　　　　　　 Case 1
　　　　　　　　　　　　　　　　 <要執行的代碼>
　　　　　　　　　　　 Case 2
　　　　　　　　　　　　　　　　 <要執行的代碼>
　　　　　　　　　　　　　 ……
　　　　　　　 End Select
　　　End Sub