Ich hab da ein Problem in Programmieren in Visual Basic. Ich möchte mehrere Objekte erstellen und die genaue Anzahl ist nicht fest. Sie ändert sich je nach der Anzahl von eingelesenen Informationen. z.B: Ich will 5 Kreise erstellen mit dem Name K1, K2, K3, K4, K5. Die 5 wäre dabei ein Integer, der bei jedem erstelltem Objekt eins größer wird.
Hallo,
z.B: Ich will 5 Kreise erstellen
mit dem Name K1, K2, K3, K4, K5. Die 5 wäre dabei ein Integer,
der bei jedem erstelltem Objekt eins größer wird.
dafür gibt es Steuerelementefelder. Nenn die Kreise K(0), K(1), … K(5), dann ist es ganz einfach. Den Index des letzten Kreises findest Du mit …
Index = K.UBound
Du kannst jederzeit weitere Kreise hinzufügen oder mit Unload entfernen.
Gruß Rainer
Option Explicit
Private Sub Form\_Load()
K(0).Visible = False
End Sub
Private Sub Command1\_Click()
Dim n As Integer, i As Integer
n = 5
K(0).Visible = True
For i = 1 To n
Load K(i)
K(i).Left = K(0).Left + K(0).Width \* i \* 1.2
K(i).Visible = True
Next
End Sub