重慶分公司,新征程啟航
為企業提供網站建設、域名注冊、服務器等服務
為企業提供網站建設、域名注冊、服務器等服務
vb更換標題欄顏色具體步驟如下:
公司主營業務:成都網站建設、成都做網站、移動網站開發等業務。幫助企業客戶真正實現互聯網宣傳,提高企業的競爭能力。成都創新互聯是一支青春激揚、勤奮敬業、活力青春激揚、勤奮敬業、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業文化,感謝他們對我們的高要求,感謝他們從不同領域給我們帶來的挑戰,讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。成都創新互聯推出安義免費做網站回饋大家。
1、設置窗口的邊界屬性(FormBorderStyle)為None,即不顯示邊界,此種情況下,窗體默認的標題欄就不會顯示。
2、接著,使用panel控件來做自己的標題欄,并將其綁定邊框屬性(Dock)設置為Top,使其顯示在窗體頂部。設置其高度屬性(Height)到一個合適的值,將其背景色屬性(BackColor)設置為自己需要的顏色即可。
這個框線顏色是由Windows系統的桌面主題決定的(意思就是說只要是在windows系統中開發的軟件,其中使用到的文本框或按鈕控件等等其樣式就受系統控制了,以保證其在各種不同軟件中有相同的呈現,否則的話會損害用戶體驗)。軟件中能自主改變的顏色只有背景色。當然,你也可以通過API函數來改變框線顏色,但這種改變是全局性的,就是說一旦改了,那么在其他軟件中(即使不是VB開發的軟件)出現的同類控件也會跟著改變。建議你從背景色入手,通過其對比度來間接實現框線的變化。
要么重寫這個控件的 OnPaint 事件,判斷 BorderStyle 屬性為 FixedSingle 的時候自繪其他顏色。
要么不重寫,把 BorderStyle 設為 None,直接在這個控件的 Paint 事件里自繪邊框,例如:
Private?Sub?Label1_Paint(sender?As?Object,?e?As?PaintEventArgs)?Handles?Label1.Paint
e.Graphics.DrawRectangle(Pens.Red,?New?Rectangle(Label1.DisplayRectangle.X,?Label1.DisplayRectangle.Y,?Label1.DisplayRectangle.Width?-?1,?Label1.DisplayRectangle.Height?-?1))
End?Sub
運行效果: