绘图添加文字背景留白 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

计算文字需要绘制的大小

Dim p As WinForm.Painter = e.Form.Controls("Painter1")

Dim g As Graphics = p.Graphics

Dim fnt As New Font("宋体",16)

Dim msg As String = "I Like Foxtable"

dim w as integer = 100 '需要绘制的宽度

Dim size As Object

size = g.MeasureString(msg, fnt, w)

Dim h As Integer = size.height ‘获取绘制指定字体和宽度的情况下需要的高度

g.FillRectangle(Brushes.Red,0,0,w+10,h+10

g.DrawString(msg,fnt,Brushes.green,10,10)

p.Repaint()

只能是固定一个宽度，然后动态计算高度

保存为bmp格式文件

这个不是绘图的问题。是专业报表本身的问题，这个没有办法。

如果要在专业报表里使用，可以考虑直接在专业报表里绘制内容，不需要绘图板：http://www.foxtable.com/webhelp/topics/1232.htm

[此贴子已经被作者于2021/4/21 9:22:13编辑过]

Dim fl As String = ProjectPath & "无内容.jpg"

Dim doc As New PrintDoc '定义一个报表对象

Doc.PageSetting.Landscape = True '横向打印

Doc.PageSetting.LeftMargin = 10 '设置左边距

Doc.PageSetting.RightMargin = 10 '设置右边距

Doc.PageSetting.TopMargin = 10 '设置上边距

Doc.PageSetting.BottomMargin = 10 '设置下边距

Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置排列方式

Dim img As Image

For i As Integer = 1 To 2

Dim ra As New prt.RenderArea

ra.Width = 138 '宽度53毫米

ra.Height = 90 '高度24毫米

ra.Style.Spacing.All = 0.2

ra.Style.Borders.All = New prt.Linedef(0.3, Color.blue) '设置边框

ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割

ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割

Doc.Body.ChildRen.Add(ra) '将容器加入到报表中

Dim rg As New prt.RenderGraphics()

Dim g As Graphics = rg.Graphics

img = getImage(fl)

g.DrawImage(img,0,0)

g.DrawString(msg,fnt,Brushes.white,100,105)

rg.Height= "Parent.Height"

rg.Width = "Auto"

rg.Style.TextAlignHorz = prt.AlignHorzEnum.Center

rg.Style.TextAlignVert = prt.AlignVertEnum.Center

ra.Children.Add(rg)

Dim w As Integer = (138 - 90 / img.Height * img.Width) / 2

rg.x = w

Doc.Preview() '预览

文字的位置要自己根据图片世界绘制大小动态设置绘制的位置，类似于上面的居中计算一样

14楼代码我测试没有问题

自己微调一下：g.DrawImage(getImage("point.png"),Vars("x")+1,Vars("y")+6)

没有办法，只能做到差不多。如果要精确，建议使用专业的绘图软件绘制，然后在保存打印

主题：绘图添加文字背景留白