设置tabcontrol控件选项卡的字体为竖着的。

王朝other·作者佚名  2006-01-31
窄屏简体版  字體: |||超大  

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", 10.0F)

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航