以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎样给文字加下划线?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=25231)

--  作者:客家阿哥
--  发布时间:2012/11/4 10:49:00
--  怎样给文字加下划线?
看了一下专业报表,没找到怎么给文字加下划线的代码?
--  作者:sgs
--  发布时间: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
--  
能不能做成“作业本“那种效果?就是每行从左到右画一条横线
--  作者:sgs
--  发布时间: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
--  

以前问过了,没有具体答案

图片点击可在新窗口打开查看


--  作者:lin_hailun
--  发布时间: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
图片点击可在新窗口打开查看