- 1PS提示：因為圖層已鎖定，無法編輯圖層的處理方法
- 2Adobe Illustrator CS5 序列號大全
- 3picacg蘋果版怎么找不到|picacg ios版是不是下架了介紹
- 4ACDsee注冊碼免費分享（含ACDsee18、ACDsee10等版本）
- 5蘋果iphone自動時間不準確的多種校正方法
- 6眼萌app怎么色弱測試 眼萌app色弱測試圖文說明教程
- 7百度安全衛士好用么_百度安全衛士技巧說明
- 8PDF瀏覽器能看3D文件嗎？PDF瀏覽器看3D文件圖文詳細教程
- 9Potato(馬鈴薯聊天)怎么注冊不了|Potato不能注冊處理方法介紹
- 10Potato(土豆聊天)怎么換頭像|Potato app更改頭像方法介紹
- 11ipad版office如何激活? office365激活的圖文說明教程
- 12最新的Adobe Illustrator CS4序列號大全
[摘要]Private tabArea As Rectangle Private tabTextArea As RectangleF Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.Event...
Private tabArea As Rectangle
Private tabTextArea As RectangleF
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.TabControl1.DrawMode = TabDrawMode.OwnerDrawFixed '設置用戶繪制方式
Me.TabControl1.Alignment = TabAlignment.Right '設置TAB項右對齊布局
'TabControl1.SizeMode = TabSizeMode.Fixed ‘設置TAB項大小的方式（全都一樣大小）
'TabControl1.ItemSize = New Size(150, 20) '設置大小
End Sub
Private Sub TabControl1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles TabControl1.DrawItem
tabArea = TabControl1.GetTabRect(e.Index) '主要是做個轉換來獲得TAB項的RECTANGELF
tabTextArea = RectangleF.op_Implicit(TabControl1.GetTabRect(e.Index))
Dim g As Graphics = e.Graphics
Dim sf As New StringFormat() '封裝文本布局信息
sf.LineAlignment = StringAlignment.Center
sf.Alignment = StringAlignment.Center
Dim p As New Pen(Color.Blue) '繪制邊框的畫筆
Dim font As New Font("Arial",
Dim brush As New SolidBrush(Color.Red)
g.DrawRectangle(p, tabArea) '繪制邊框
'繪制文字
g.DrawString(CType(sender, TabControl).TabPages(e.Index).Text, font, brush, tabTextArea, sf)
End Sub
推薦資訊 總人氣榜
