16,549
社区成员
发帖
与我相关
我的任务
分享
p_Body_Rect = New Rectangle(p_Body_X, p_Body_Y, Me.Width - p_Body_X * 2, Me.Height - p_Body_Y - p_Body_Height_Offset)
p_Pict_Rect = New Bitmap(p_Body_Rect.Width, p_Body_Rect.Height)
'创建两个Graphics对象
p_Grap_Background = Me.CreateGraphics '这是最终显示画面的Graphics对象
p_Grap_Rect = Graphics.FromImage(p_Pict_Rect) '创建一个Graphics对象
p_Grap_Rect.DrawImage(p_Pict_Rect2, 0, 0, p_Body_Rect.Width, p_Body_Rect.Height) '在临时作画区画出背景
For I = 0 To tInfo.Length - 1
'在临时作画区画出文字
p_Grap_Rect.DrawString(strTmp, New Font(p_Body_Font, p_Body_Size), New SolidBrush(p_Body_Color), rect(I), fm)
Next
'在最终背景上画出结果
p_Grap_Background.DrawImage(p_Pict_Rect, p_Body_Rect.Location)
Private Sub frmMain_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
Dim grap As Graphics = Me.CreateGraphics
grap.DrawImage ...
End Sub