Hallo ,
Ik wil met 4 coordinaten een lijn tekenen.Als ik de coordinaten in geef dan verschijnt de lijn pas als ik het formulier heen en weer beweeg.Ik gebruik de volgende code vor het tekenen
vb : Private Sub CutSheets_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
Dim TekenVlak As System.Drawing.Graphics
Dim PenColor As New System.Drawing.Pen(System.Drawing.Color.Brown)
Dim i As Integer
'Maak het tekenvlak
TekenVlak = Me.lblPaint.CreateGraphics
'Teken eventueel bestaande cuts
Dim x1, x2, y1, y2 As Integer
If NumberOfCuts > 0 Then
For i = 0 To NumberOfCuts - 1
x1 = Cuts(i, 0) / 5
y1 = Cuts(i, 1) / 5
x2 = Cuts(i, 2) / 5
y2 = Cuts(i, 3) / 5
TekenVlak.DrawLine(PenColor, x1, y1, x2, y2)
Next i
End If
End Sub:shocked::shocked:
Ik wil met 4 coordinaten een lijn tekenen.Als ik de coordinaten in geef dan verschijnt de lijn pas als ik het formulier heen en weer beweeg.Ik gebruik de volgende code vor het tekenen
vb : Private Sub CutSheets_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
Dim TekenVlak As System.Drawing.Graphics
Dim PenColor As New System.Drawing.Pen(System.Drawing.Color.Brown)
Dim i As Integer
'Maak het tekenvlak
TekenVlak = Me.lblPaint.CreateGraphics
'Teken eventueel bestaande cuts
Dim x1, x2, y1, y2 As Integer
If NumberOfCuts > 0 Then
For i = 0 To NumberOfCuts - 1
x1 = Cuts(i, 0) / 5
y1 = Cuts(i, 1) / 5
x2 = Cuts(i, 2) / 5
y2 = Cuts(i, 3) / 5
TekenVlak.DrawLine(PenColor, x1, y1, x2, y2)
Next i
End If
End Sub:shocked::shocked:
