- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于EXCEL报表设计图片问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161388)
-- 发布时间：2021/3/16 10:05:00
-- 关于EXCEL报表设计图片问题
此主题相关图片如下：qq图片20210316094656.png
如图，有一些报表需在图片中插入一部份字段文字，因内容不是固定的，请问需怎样设计排版
-- 发布时间：2021/3/16 10:12:00
--
方法1、自己绘制图片文字，再引用：http://www.foxtable.com/webhelp/topics/1482.htm
2、使用专业报表
-- 发布时间：2021/3/18 11:53:00
--
Dim doc As New PrintDoc
Dim rg As New prt.RenderRectangle (100,50,New Prt.Linedef(2,Color.Red))
rg.x = 50
rg.y = 50
doc.Body.Children.Add(rg)
Doc.Preview(
我看了这个，可以绘制圆形等，有绘制菱形的命令吗，因为菱形在包装麦头上很常见
-- 发布时间：2021/3/18 11:58:00
--
看帮助里绘制线条DrawLines和多边形DrawPolygon的用法，自己指定顶点坐标
-- 发布时间：2021/3/19 11:46:00
--
Dim rpar As New prt.RenderParagraph() \'定义一个段落对象
rpar.Content.AddImage(getimage("lx.bmp"))
rpar.Content.AddText(dr("條款備註1"))
doc.body.Children.add(rpar)
我用专业报表图文模式做出来是这样子，没有达到效果，求助专家需要怎样调整，十万火急
此主题相关图片如下：qq截图20210319114309.png
-- 发布时间：2021/3/19 11:56:00
--
不是使用这种RenderParagraph，使用RenderGraphics自己绘制，指定绘制坐标：http://www.foxtable.com/webhelp/topics/1232.htm
-- 发布时间：2021/3/19 13:49:00
--
样式大约试出来了，现在就是这个菱形要怎样绘，老师能指定一下吗，这个绘图真是不懂
Dim cmd As New SQL Com mand
cmd.ConnectionName=_conn
cmd.Co mmandText ="s elect 序號 as _Identify,* from T條款備註打印 where 單號= \'W2103157-2\' "
Dim dt As DataTable=cmd.ExecuteReader()
Dim dr As DataRow
If dt.DataRows.Count > 0 Then
cmd.ConnectionName=_conn
cmd.Co mmandText ="s elect 序號 as _Identify,* from T條款備註打印 where 單號= \'W2103157-2\' "
Dim dt As DataTable=cmd.ExecuteReader()
Dim dr As DataRow
If dt.DataRows.Count > 0 Then
dr = dt.DataRows(0)
Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
g.DrawEllipse(Pens.Blue,20,10,230,110)
Dim fnt As New Font("宋体",10)
Dim msg As String = dr("條款備註1")
g.DrawString(msg,fnt,Brushes.black,60,70)
p.Repaint()
End If
Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
g.DrawEllipse(Pens.Blue,20,10,230,110)
Dim fnt As New Font("宋体",10)
Dim msg As String = dr("條款備註1")
g.DrawString(msg,fnt,Brushes.black,60,70)
p.Repaint()
End If
-- 发布时间：2021/3/19 13:56:00
--
指定坐标画4条线段，如果不知道坐标，拿张纸画，然后用尺量
g.DrawLine(Pens.Red,0,65,135,0)
g.DrawLine(Pens.Red,0,65,135,120)
g.DrawLine(Pens.Red,0,65,135,120)
-- 发布时间：2021/3/19 14:10:00
--
老师，帮帮忙，再给我两句代码，试在试不出来
-- 发布时间：2021/3/19 14:26:00
--
初中几何坐标问题
此主题相关图片如下：1.png