Shape duplizieren

[bsstuff]

Hallo zusammen

Ich habe ein Problem mit einem kleinen Programm.Ich habe ein Textfeld einen Commandbutton und ein Shape eingefügt.Nun möchte ich das man in das Textfeld eine Zahl eingeben kann und das bei einem Klick auf den Commandbutton die angegebene Anzahl(Textfeld) von Shapes erstellt wird. Ich möchte sozusagen das erste Shape beliebig oft kopieren können und sie sollten ausserdem bündig untereinander dargestellt werden. Ich hoffe das mir irgend jemand sagen kann wie das geht. Ich bin noch recht neu in VB.

 

[roeb]

legst zwei Variablen fest:

Dim gesanz as byte
Dim anz as byte

Jetzt musst du den Index des Shapes auf 0 setzen
Dann schreibst du das aus dem Textfeld in das Shape:

txt_feld = gesanz

dann erstellst du nen Sub in dem du die Shape lädst:

Private Sub load_shapes()
    
    ' Lädt die Shapes in das Frame
    
    For anz = 1 To gesanz
    anz = anz + 1
    x = x + 200
    Load shp_enemy(anz)
    shp_enemy(anz).Visible = True
    ' X und Y ist ie Position
    shp_enemy(anz).Left = x  
    shp_enemy(anz).Top = y
    Next

End Sub

Ich hoffe das funktioniert so .. bin leider nicht zum ausprobieren gekommen.