16,556
社区成员
发帖
与我相关
我的任务
分享
Imports System.Drawing
Imports System.Drawing.Drawing2D
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim b As New Bitmap(Me.ClientSize.Width, Me.ClientSize.Height)
Dim f As New Font("宋体", 12)
Dim x, y As Integer
x = 20
y = 20
Using g As Graphics = Graphics.FromImage(b)
g.DrawString("------------标题---------------", f, Brushes.Blue, x, y)
y += 25
g.DrawString("-------------------小标题------", f, Brushes.Blue, x, y)
y += 25
g.DrawString("标签1:-内容-", f, Brushes.Blue, x, y)
y += 25
g.DrawString("标签2:-内容2-", f, Brushes.Blue, x, y)
y += 25
g.DrawString("标签3:-内容3-", f, Brushes.Blue, x, y)
y += 25
g.DrawString("------------分割线-------------", f, Brushes.Blue, x, y)
End Using
Me.BackgroundImage = b
End Sub
End Class