Hallo erstmal.
Ich bin seit mehreren Tagen dabei mir "Conway's Game of Life " zu programmieren.
Ich hatte es schon einmal komplett gelöst, allerdings hatte ich nur 25x25 Felder (Textfelder), die ich mit Visual Studio selbst reingezeichnet hab.
Und zwar hatten alle den Namen "Fld" udn waren mit Indizes folgendermaßen durchnummeriert:
Allerdings lassen sich Textfelder nicht auf eine Größe von 25x25 Pixeln verkleinern.
Deshalb bin ich zu Shapes gewechselt.
Da ich aber keine Lust habe 625 (später 62.500) Shapes einzeln von Hand im Fenster einzufügen, wollte ich die Shapes im Code erstellen.
Und genau da ist mein Problem.
Ich krieg es nicht hin, die Shapes alle mit gleichem Namen und den richtigen Indizes anzulegen.
Ich habe schon alles mögliche probiert und überall nach Lösungen gesucht, konnte aber nichts finden, dass mir geholfen hat.
MfG
Himalius
Ich bin seit mehreren Tagen dabei mir "Conway's Game of Life " zu programmieren.
Ich hatte es schon einmal komplett gelöst, allerdings hatte ich nur 25x25 Felder (Textfelder), die ich mit Visual Studio selbst reingezeichnet hab.
Und zwar hatten alle den Namen "Fld" udn waren mit Indizes folgendermaßen durchnummeriert:
Da dies aber zu wenig Felder waren, um eine gute Darstellung und einen guten Ablauf zu bekommen, wollte ich die Textfelder kleiner machen, um mehr zu machen.0 1 2 3 4 ... 24
100 101 102 103 ... 124
200 201 202 203 ... 224
.
.
.
2400 2401 2402 2403...2424
Allerdings lassen sich Textfelder nicht auf eine Größe von 25x25 Pixeln verkleinern.
Deshalb bin ich zu Shapes gewechselt.
Da ich aber keine Lust habe 625 (später 62.500) Shapes einzeln von Hand im Fenster einzufügen, wollte ich die Shapes im Code erstellen.
Und genau da ist mein Problem.
Ich krieg es nicht hin, die Shapes alle mit gleichem Namen und den richtigen Indizes anzulegen.
Quellcode
- Private Sub Form_Load()
- Dim i As Integer, j As Integer
- Dim Index
- For i = 0 To 24
- For j = 0 To 24
- Index = i * 100 + j
- Dim shape As shape
- Set shape = shape
- Set shape.Index = Index 'Hier bringt er mir die Meldung "Ungültige Verwendung einer Eigenschaft"
- shape(Index).FillColor = RGB(255, 255, 255)
- shape(Index).BorderColor = RGB(255, 255, 255)
- shape(Index).BackColor = RGB(255, 255, 255)
- shape(Index).Left = 100 + i * 250
- shape(Index).Top = 100 + j * 250
- End Sub
Ich habe schon alles mögliche probiert und überall nach Lösungen gesucht, konnte aber nichts finden, dass mir geholfen hat.
MfG
Himalius
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Himalius“ ()