Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
Dim w As Integer = p.width
Dim h As Integer = p.height
Dim angle As Double = 270
Dim a As Double = angle Mod 360
Dim radian As Double = a * Math.PI / 180.0
Dim cos As Double = Math.Cos(radian)
Dim sin As Double = Math.Sin(radian)
Dim newW As Integer = Math.Max(Math.Abs(w * cos - h * sin), Math.Abs(w * cos + h * sin))
Dim newH As Integer = Math.Max(Math.Abs(w * sin - h * cos), Math.Abs(w * sin + h * cos))
Dim bmpSrc As new Bitmap(newW, newH)
g.TranslateTransform(newW/2, newH/2)
g.RotateTransform(angle)
g.TranslateTransform(-newW/2, -newH/2)
Dim x As Integer = 50'w
Dim y As Integer = 200
Dim fnt As New Font("宋体",10)
Dim msg As String = e.form.controls("Label1").text
g.DrawString(msg,fnt,Brushes.Black,0,0)
msg = e.form.controls("Label2").text
g.DrawString(msg,fnt,Brushes.Black,150,10)
msg = e.form.controls("Label1").text
g.DrawString(msg,fnt,Brushes.Black,10,20)
msg = e.form.controls("Label2").text
g.DrawString(msg,fnt,Brushes.Black,150,30)
p.Repaint()
加好友 
发短信
Post By：2018/7/19 12:12:00 [只看该作者]
