Keskustelu: Koodit: VB.NET: Gradientti väri formille

'Gradientti väritys formille
    'Aivan ohjelman alussa tulee olla:  Imports System.Drawing
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim h1 As Integer
        Dim w1 As Integer
        Dim h2 As Integer
        Dim w2 As Integer
        'formin korkeus ja leveys
        h2 = Me.Height
        w2 = Me.Width
        'alustetaan formille piirto
        Dim gr As Graphics = Me.CreateGraphics
        'tehdään gradientti pensseli
        Dim br As New Drawing2D.LinearGradientBrush(New Rectangle(0, 0, w2, h2), Color.White, _
            Color.Blue, Drawing2D.LinearGradientMode.ForwardDiagonal)
        'muut gradientit: BackwardDiagonal,ForwardDiagonal,Horizontal,Vertical
        'piirretään formille gradientti pensselillä
        gr.FillRectangle(br, 0, 0, w2, h2)
        'vapautetaan pensseli ja grafiikka
        br.Dispose()
        gr.Dispose()
    End Sub