文本绘制 & 图片绘制
1. 文本绘制
调用格式
Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
Dim 画布 As Graphics = Me.CreateGraphics
Dim 字体 As New Font("仿宋", 14, FontStyle.Bold)
Dim 画刷 As New SolidBrush(Color.SaddleBrown)
Dim 位置 As New Point(100, 100)
画布.DrawString("测试", 字体, 画刷, 位置)
End Sub
2. 图片绘制
Public Class Form1
Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
Dim 画布 As Graphics = Me.CreateGraphics
画布.DrawImage(Image.FromFile("D:\2.png"), 100, 100)
End Sub
'以上都是GDI+
End Class