- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 怎样给文字加下划线？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=25231)
-- 发布时间：2012/11/4 10:49:00
-- 怎样给文字加下划线？
看了一下专业报表，没找到怎么给文字加下划线的代码？
-- 发布时间：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() \'预览
-- 发布时间：2012/11/4 11:07:00
--
谢谢啊
-- 发布时间：2012/11/4 11:14:00
--
能不能做成“作业本“那种效果？就是每行从左到右画一条横线
-- 发布时间：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() \'预览报表
-- 发布时间：2012/11/4 12:25:00
--
这样子就成了填充表格了。
我的意思是做成像word稿纸双线样式的效果，文字就填充在线上。
不知道，我说清楚了没有
-- 发布时间：2012/11/4 14:02:00
--
您是不是应该截图说明，少浪费别人的脑细胞！
-- 发布时间：2012/11/4 19:15:00
--
以前问过了，没有具体答案
-- 发布时间：2012/11/5 8:58:00
--
对于你要添加下划线的文本，一行一行的设置下边框。
http://www.foxtable.com/help/topics/1169.htm
[此贴子已经被作者于2012-11-5 8:58:53编辑过]
-- 发布时间：2012/11/5 10:42:00
--
文本超过一行的话，就这样
此主题相关图片如下：未命名.jpg
采用2楼的方法就这样，第2行，下划线不能到最右边
此主题相关图片如下：未命名2.jpg