code werkt niet

[supperelias]

heb ff een domme vraag
ik kom er maar uit waarom deze code niet werkt.

Public Class Form1
    Dim paper As Graphics
    Dim mypen As Pen = New Pen(Color.Black)

    Public Sub New()

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        paper = Me.CreateGraphics
        paper.DrawLine(mypen, Me.Width \ 4, Me.Height \ 4, Me.Width * 3 \ 4, Me.Height \ 4)


    End Sub
End Class

alvast bedankt

 

[WarnedGraph]

ik post deze namiddag een oplossing. ik ben niet echt thuis in al dat graphics gedoe
en uit de losse pols een code neerschrijven lukt mij dan ook niet. heb nu geen VB.net
ter beschikking.

 

[supperelias]

ty

alvast bedankt

 

[WarnedGraph]

Sorry voor de late reply, had zelf te veel werk.

om jou prog te laten werken heb je een timer nodig die de line refresht,
anders redrawt windows die line niet (cf. JAVA Applet). Zie hier de code:

Public Class Form1


    Dim paper As Graphics
    Dim mypen As Pen = New Pen(Color.Black)


    Public Sub New()

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        paper = Me.CreateGraphics
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        PaintLine()
    End Sub

    Private Sub PaintLine()
        paper.Clear(Me.BackColor)
        paper.DrawLine(mypen, Me.Width \ 4, Me.Height \ 4, Me.Width * 3 \ 4, Me.Height \ 4)
    End Sub
End Class

Have Fun!

 

[supperelias]

het werkt !

heel erg bedankt !