16,554
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
' Create a font object.
Dim aFont As New System.Drawing.Font("Arial", 80, FontStyle.Bold)
' Display the text with the DrawString method.
e.Graphics.DrawString("Zhang Xiangwei!", aFont, Brushes.Red, 20, 10)
' Rotate the text 45 degrees.
e.Graphics.RotateTransform(20)
e.Graphics.DrawString("Tuo Jingjing!", aFont, Brushes.Blue, 20, 60)
End Sub