老师这个代码显示正常:
Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
'绘制一个四边形
Dim n As New Pen(Color.Red, 4)
g.DrawRectangle(n, 10, 20, 220, 100)
'添加两条直线
g.DrawLine(Pens.Red, 10, 70, 230, 70)
g.DrawLine(Pens.Red, 120, 63, 120, 120)
'添加文本
Dim fnt1 As New Font("宋体", 17)
Dim msg1 As String = "复印件与原件一致"
g.DrawString(msg1, fnt1, Brushes.Blue, 20, 40)
Dim fnt2 As New Font("宋体", 13)
Dim msg2 As String = "经手人:"
g.DrawString(msg2, fnt2, Brushes.Red, 13, 85)
Dim fnt3 As New Font("宋体", 13)
Dim msg3 As String = "时间:"
g.DrawString(msg3, fnt3, Brushes.Red, 125, 85)
p.Repaint()
下面这个代码,图形显示不正常,外面的方框只显示一半,不知是什么原因?请老师帮忙看看
Dim doc As New PrintDoc
Dim g As New prt.RenderGraphics()
'绘制一个四边形
Dim n As New Pen(Color.Red, 4)
g.Graphics.DrawRectangle(n, 10, 20, 220, 100)
'添加两条直线
g.Graphics.DrawLine(Pens.Red, 10, 70, 230, 70)
g.Graphics.DrawLine(Pens.Red, 120, 63, 120, 120)
'添加文本
Dim fnt1 As New Font("宋体", 17)
Dim msg1 As String = "复印件与原件一致"
g.Graphics.DrawString(msg1, fnt1, Brushes.Blue, 20, 40)
Dim fnt2 As New Font("宋体", 13)
Dim msg2 As String = "经手人:"
g.Graphics.DrawString(msg2, fnt2, Brushes.Red, 13, 85)
Dim fnt3 As New Font("宋体", 13)
Dim msg3 As String = "时间:"
g.Graphics.DrawString(msg3, fnt3, Brushes.Red, 125, 85)
Doc.Body.Children.Add(g)
Doc.Preview()
[此贴子已经被作者于2023/4/10 11:17:16编辑过]