Hallo
Ich möchte etwas über variablen in eine PictureBox zeichnen. Eine PictureBox soll es sein da ich mehrere solche Linien haben muss in 5 verschiedenen PictureBoxes und jede einzelne als solches gelöscht werden soll (nicht alle miteinander). Wenn ich jedoch PictureBox1.Dispose() verwende dann werden die Linien im zweiten Durchlauf (i = 1) nicht mehr gezeichnet und ohne das PictureBox1.Dispose() kann ich die Linie in der PictureBox nicht löschen.
Der Code ist in etwa der folgende:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i As Byte = 0 to 1
If i = 1 then
Var1 = 20: Var2 = 20: Var3 = 0 Var4 = 0
PictureBox1.Dispose()
PictureBox1.Invalidate()
PictureBox1.Refresh()
Else
Var1 = 30: Var2 = 40: Var3 = 10: Var4 = 15
PictureBox1.Invalidate()
PictureBox1.Refresh()
End If
Next i
End Sub
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms. PaintEventArgs) Handles PictureBox1.Paint
e.Graphics.DrawLine(New Pen(Brushes.White), Var1, Var2, Var3, Var4)
End Sub
End Class
Wäre unglaublich dankbar wenn mir hier jemand helfen könnte da ich wirklich mit meinem Latein am Ende bin.
Ich möchte etwas über variablen in eine PictureBox zeichnen. Eine PictureBox soll es sein da ich mehrere solche Linien haben muss in 5 verschiedenen PictureBoxes und jede einzelne als solches gelöscht werden soll (nicht alle miteinander). Wenn ich jedoch PictureBox1.Dispose() verwende dann werden die Linien im zweiten Durchlauf (i = 1) nicht mehr gezeichnet und ohne das PictureBox1.Dispose() kann ich die Linie in der PictureBox nicht löschen.
Der Code ist in etwa der folgende:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i As Byte = 0 to 1
If i = 1 then
Var1 = 20: Var2 = 20: Var3 = 0 Var4 = 0
PictureBox1.Dispose()
PictureBox1.Invalidate()
PictureBox1.Refresh()
Else
Var1 = 30: Var2 = 40: Var3 = 10: Var4 = 15
PictureBox1.Invalidate()
PictureBox1.Refresh()
End If
Next i
End Sub
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms. PaintEventArgs) Handles PictureBox1.Paint
e.Graphics.DrawLine(New Pen(Brushes.White), Var1, Var2, Var3, Var4)
End Sub
End Class
Wäre unglaublich dankbar wenn mir hier jemand helfen könnte da ich wirklich mit meinem Latein am Ende bin.