Hallo Leute,
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
Die Klasse^^
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
Und das die Form in der in der Picbox gezeichent wird.
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...