在窗体上画一个要垂直渐变的矩形
wzckr 2009-05-08 09:15:24 我在网上只找到水平渐变的代码:
Dim d_Rec As New Rectangle(0, 0, Me.Width, 20)
Dim b2 As New System.Drawing.Drawing2D.LinearGradientBrush(d_Rec, Color.FromArgb(255, 59, 128, 240), Color.FromArgb(255, 49, 106, 197), 0, False)
With e.Graphics
.FillRectangle(b2, d_Rec)
b2.Dispose()
End With
不知道垂直应该怎么设置