'印章的图片大小为60*60 Functions.Execute("印章","放置的控件","姓名","日期")
Dim x,y As Integer
Dim p1 As WinForm.Painter = Args(0) '第一个参数是控件
Dim xingming As String = Args(1) '第二个参数是姓名
Dim riqi As Date = Args(2) '第三个参数是日期
Dim pn As New Pen(Color.Red,3)
Dim fnt2 As New Font("宋体",12) '姓名字体10号
Dim fnt1 As New Font("宋体",10) '姓名字体10号
Dim fnt As New Font("宋体",8) '日期字体7号
Dim g1 As Graphics = p1.Graphics
Dim rqistr As String = format(riqi,"yy.MM.dd")
If riqi > #01/01/2015# Then
g1.Clear(SystemColors.Control)
g1.DrawString(rqistr,fnt,Brushes.Red,6,25) '日期在中间
'g1.DrawRectangle(Pens.red,3,22,53,13) '画个方框
g1.DrawLine(Pens.Red,3,23,56,23)
g1.DrawLine(Pens.Red,3,36,56,36)
If xingming.Length =1 Then
g1.DrawString(xingming.SubString(0,1) ,fnt2,Brushes.Red,19,5)
ElseIf xingming.Length =2 Then
g1.DrawString(xingming.SubString(0,1) ,fnt2,Brushes.Red,19,5)
g1.DrawString(xingming.SubString(1,1) ,fnt2,Brushes.Red,19,38) '上下各1个字
ElseIf xingming.Length =3 Then
g1.DrawString(xingming.SubString(0,1) ,fnt2,Brushes.Red,19,5)
g1.DrawString(xingming.SubString(1,2) ,fnt1,Brushes.Red,14,38) '上1个字下2个字
ElseIf xingming.Length = 4 Then
g1.DrawString(xingming.SubString(0,2) ,fnt1,Brushes.Red,14,8)
g1.DrawString(xingming.SubString(2,2) ,fnt1,Brushes.Red,14,38) '上下各2个字
End If
g1.DrawEllipse(Pens.red,2,2,55,55) '画个圆圈
p1.Repaint()
Else
g1.Clear(SystemColors.Control)
p1.Repaint()
End If
请教以上是 在画板里面画印章 ,请问如何放入到 报表里面?
加好友 
发短信
Post By：2019/3/21 9:31:00 [只看该作者]
