16,556
社区成员
发帖
与我相关
我的任务
分享
Imports System.Drawing.Drawing2D'引用Drawing2D命名空间
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
'声明一个线性梯度刷
Dim LinGrBrush As Drawing2D.LinearGradientBrush
'括号里分别是:起始坐标,终止坐标,起始色,终止色
LinGrBrush = New Drawing2D.LinearGradientBrush(New Point(0, 0), New Point(75, 23), Color.Red, Color.Blue)
'画出字符串,括号里分别是是:字符串,字体,刷子,坐标x,坐标y
e.Graphics.DrawString("这是个测试", New Font("黑体", 12), LinGrBrush, 18, 4)
End Sub