当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 如何设置tabcontrol控件的tabPage的text内容显示成竖着的字体

ASP.NET
ASP.NET FORUMS换肤流程
关于webservice的异步调用简单实例
nhibernate数据加载之Criteria加载
C# 把指定控件显示在最上面
VB面向对象编程的一个简单的演示程序
关于如何利用COM+,来提高ASP执行权限的问题!
ASP.NET跨应用程序进行登录的解决
在快捷方式的右键菜单上添加打开所在目录的菜单项
XML简明教程(一)
使用自定义的数据源进行DataGrid控件的数据绑定
提供两种散列加密算法:MD5、SHA1。大小写敏感
把鼠标放在Form的边缘上不会出现可拉动
The custom tool 'CrystalDecisions.VSDesigner.CodeGen.ReportCodeGenerator' failed
Split的用法
利用XSD生成強類型類文件和描述文件
关于datagrid中的字符串转换
C#中来应用Hook
Get your Crystal report working on your customers server (Cannot find Keycod...
C#中如何插入照片到Excel
.net中Web自定义控件编写注意事项

ASP.NET 中的 如何设置tabcontrol控件的tabPage的text内容显示成竖着的字体


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 166 ::
收藏到网摘: n/a


刚才在vb.net版块有一位朋友来问这样的问题,在这里做简要的解答。
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
//////////////////////////////////////// 闵峰