ich habe mir ne Eigene Klasse erstellt, damit ich ein paar werte undbestimmt oft mit einer List benutzten und per GDi zeichenen Kann.
Also:
Code:
Public Class Objects Dim y, x as integer Dim str as String Public Sub New(byval _x as integer, byval _y as integer, byval _str as String) y = _y x = _x str = _str End Sub Public Function GetY() as Integer Return y End Function Public Function GetX() as Integer Return x End Function Public Function GetCode() as String Return str End Function End Class
Code:
Public Class Form1 Dim l as list(of Objects) Public Sub button2_click(...) picbox1.refresh End Sub Public Sub Button1_Click(...) Handels Button1.click l.Add(New Objects("111", 100, 104)) End Sub Public Sub Picbox1_paint(...) Dim z as Graphics = e.graphics try z.drawRectangle(New Pen(color.green), l(0).getX, l(0).getY, 2, 2) catch End try End Sub End Class
Mein Problem ist, das es die Werte nicht auslesen kann, bessergest das es scheinbar keine gibt und dann ein Schönes großes Rotes "X" gezeichnet wird...
Hat einer ne AHnung warum das so ist?
Was ich falsch mache?
Edit: Das war aus dem Kopf geschrieben, da mein VB grad net geht...