[VB.NET,C#.NET] - TabControl的Alignment为Left或Right显示TabPage.Text问题

VB.NET

Private Sub TabControl1_DrawItem( ByVal sender As System.Object, e System.Windows.Forms.DrawItemEventArgs) Handles TabControl1.DrawItem
' Me.TabControl1.DrawMode = TabDrawMode.OwnerDrawFixed ' 必须先改变模式(可将此句放在Load事件上)
Dim tabArea Rectangle
tabTextArea RectangleF
tabArea
= TabControl1.GetTabRect(e.Index)
tabTextArea
CType (TabControl1.GetTabRect(e.Index),RectangleF)
g Graphics e.Graphics
sf StringFormat New StringFormat()
sf.LineAlignment
Stringalignment.Center
sf.Alignment
Stringalignment.Center
font Font Me .TabControl1.Font
brush SolidBrush SolidBrush(Color.Black)
g.DrawString((
(sender,TabControl)).TabPages(e.Index).Text,font,brush,tabTextArea,sf)
End Sub

C#.NET

private void tabControl1_DrawItem(object sender,DrawItemEventArgs e)
{
    //this.tabControl1.DrawMode = TabDrawMode.OwnerDrawFixed;  必须先改变模式(可将此句放在Load事件上)
    Rectangle tabArea;
    RectangleF tabTextArea;
    tabArea = tabControl1.GetTabRect(e.Index);
    tabTextArea = (RectangleF)tabControl1.GetTabRect(e.Index);
    Graphics g = e.Graphics;
    StringFormat sf = new StringFormat();
    sf.LineAlignment = Stringalignment.Center;
    sf.Alignment = Stringalignment.Center;
    Font font = this.tabControl1.Font;
    SolidBrush brush =  SolidBrush(Color.Black);
    g.DrawString(((TabControl)(sender)).TabPages[e.Index].Text,sf);
}

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...