Private Fcolor As Color = Color.White '前景色
Private Tcolor As Color = Color.FromArgb(213, 242, 250) '背景色
Private Direct As LinearGradientMode = LinearGradientMode.Vertical '渐变方向
Private g As Graphics
Private Sub Form_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
g = e.Graphics
Dim lb As New LinearGradientBrush(ClientRectangle, Fcolor, Tcolor, Direct)
g.FillRectangle(lb, ClientRectangle) '绘制窗口背景
End Sub
.NET在指定控件里画渐变色
最新推荐文章于 2023-09-03 20:11:16 发布