Keskustelu: Ohjelmointikysymykset: VB.NET: grafiikan värin vaihto

Public Class Kuormitus

    Dim Polku1 As System.Drawing.Drawing2D.GraphicsPath
    Dim AS1a As Point = New Point(79, 35)
    Dim As1l As Point = New Point(79, 45)
    Dim Polku2 As System.Drawing.Drawing2D.GraphicsPath
    Dim AS2a As Point = New Point(132, 35)
    Dim As2l As Point = New Point(132, 45)
    Dim Polku3 As System.Drawing.Drawing2D.GraphicsPath
    Dim AS3a As Point = New Point(185, 35)
    Dim As3l As Point = New Point(185, 45)
    Dim Polku4 As System.Drawing.Drawing2D.GraphicsPath
    Dim AS4a As Point = New Point(238, 35)
    Dim As4l As Point = New Point(238, 45)

    Dim Kynä As Pen = New Pen(Color.Red, 45.0)
    Dim g As Graphics



    Private Sub Kuormitus_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim p As String
        p = Application.StartupPath & "\"
        FileOpen(1, p & "klo.set", OpenMode.Input)
        Input(1, Label1.Text)
        Input(1, Label2.Text)
        Input(1, Label3.Text)
        Input(1, Label4.Text)
        FileClose()


        Me.Polku1 = New System.Drawing.Drawing2D.GraphicsPath
        Me.Polku1.AddLine(Me.AS1a, Me.As1l)
        Me.Polku2 = New System.Drawing.Drawing2D.GraphicsPath
        Me.Polku2.AddLine(Me.AS2a, Me.As2l)
        Me.Polku3 = New System.Drawing.Drawing2D.GraphicsPath
        Me.Polku3.AddLine(Me.AS3a, Me.As3l)
        Me.Polku4 = New System.Drawing.Drawing2D.GraphicsPath
        Me.Polku4.AddLine(Me.AS4a, Me.As4l)

    End Sub

    Private Sub Kuormitus_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

        g = Me.CreateGraphics
        g.DrawPath(Me.Kynä, Me.Polku1)
        g.DrawPath(Me.Kynä, Me.Polku2)
        g.DrawPath(Me.Kynä, Me.Polku3)
        g.DrawPath(Me.Kynä, Me.Polku4)

    End Sub
End Class