以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何给文字下面双划线?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108409)

--  作者:狂风暴雨狂波
--  发布时间:2017/10/22 11:03:00
--  如何给文字下面双划线?
Underline带下划线只有一根线,如果要双划线怎么设置?请高手指教,谢谢!
--  作者:有点甜
--  发布时间:2017/10/22 17:53:00
--  

 文字无法设置双划线。

 

 请具体说明你在哪里使用?变通处理。


--  作者:狂风暴雨狂波
--  发布时间:2017/10/23 11:06:00
--  

PrintDoc里写代码打印.如Dim doc As New PrintDoc
        Dim rt As New prt.RenderTable
  rt.Cells(0,0).Text = "记账凭证" 要在
"记账凭证"下双划线如何写代码?


--  作者:有点甜
--  发布时间:2017/10/23 12:31:00
--  

Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderTable() \'定义一个表格对象
Dim ra As prt.RenderArea
doc.Body.Children.Add(rt) \'将表格对象加入到报表中
ra = rt.Cells(1,1).Area \'引用第一个单元格的容器.
rt.Style.GridLines.All = New prt.LineDef \'将网格线类型设为默认类型
rt.Width = 90 \'表宽为90毫米
rt.Height = 90 \'表高为90毫米
rt.Rows.Count = 3 \'设置行数
rt.Cols.Count = 3 \'设置列数

\'加入第一个文本
Dim rx As New prt.RenderText
rx.Text = "产品123456789"
rx.X = "0"
rx.y = "10"
ra.Children.Add(rx)

\'加入线条
Dim ln As New prt.RenderLine(0,15,25,15,new prt.Linedef)
ra.Children.Add(ln)
ln = New prt.RenderLine(0,16,25,16,new prt.Linedef)
ra.Children.Add(ln)

Doc.Preview() \'预览报表


--  作者:狂风暴雨狂波
--  发布时间:2017/10/23 22:33:00
--  
谢谢!