怎样给文字加下划线？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎样给文字加下划线？

共有12041人关注过本帖树形打印复制链接主题：怎样给文字加下划线？

sgs

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：365 积分：2693 威望：0 精华：1 注册：2011/11/25 7:55:00

Post By：2012/11/4 11:02:00 [显示全部帖子]

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rt.Style.Font = New Font("宋体",12,FontStyle.Underline) '设置字体
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.Preview() '预览

sgs

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：365 积分：2693 威望：0 精华：1 注册：2011/11/25 7:55:00

Post By：2012/11/4 11:52:00 [显示全部帖子]

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rt) '将表格对象加入到报表中
rt.Style.GridLines.Horz= New prt.Linedef '设置网格线
rt.Style.GridLines.bottom= New prt.Linedef '设置网格线
'下面的代码向表格中填入值
rt.Rows.Count = 10
For i As Integer = 0 To 9
rt.cells(i,0).text = i
Next
doc.Preview() '预览报表

下一主题 >> << 上一主题

主题：怎样给文字加下划线？