Public Class Frm漸層表單
Private Sub Frm漸層表單_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim brush1 As New System.Drawing.Drawing2D.LinearGradientBrush(New Point(0, 0), New Point(0, Me.Height), Color.White, Color.Blue)
e.Graphics.FillRectangle(Brush1, 0, 0, Me.ClientSize.Width, Me.ClientSize.Height)
End Sub
Private Sub Frm漸層表單_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
Me.Invalidate()
End Sub
End Class
文章標籤
全站熱搜
