Objektbezeichnung variant?

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,

Ich hab folgendes Problem:

Ich habe auf meiner User-Form ca. 20 Linien gezeichnet. Benannt habe ich sie nach dem Schema: Line1, Linie2…Linie20.
Während des Programmablaufes werden die Koordinaten der Linien verändert, dabei habe ich folgende Syntax angewandt:
Line1.x1 = 50
Line1.x2 = 100
Line1.y1 = 200
Line1.y2 = 300
Line2.x1 = 75
…

Nach dem Drücken eines Buttons sollen alle Linienkoordinaten den Wert x1=0,x2=0,y1=,y2=0 besitzten.
Wenn ich das nach dem obigen Schema mache, sind das 20x4=80 Zeilen. Spaßfreie Angelegenheit.

Ist es irgenwie möglich, die Objektbezeichnung Line1, Line2… variabel zu halten und dann alle Linien in einer kleinen Schleife auf Null zu setzen?

Ich stelle mir das ungefähr so vor:

For i = 1 to 20
Line&i.x1 = 0
Line&i.x2 = 0
Line&i.y1 = 0
Line&i.y2 = 0
next i

Der Ausdruck Line&i soll dann die entspr. Objektbezeichnung, also Line1…Line20, ergeben.
Leider klappt das so irgendwie nicht.
Ich habe vergleichbare Probleme sehr oft und wäre für eine Hinweis wirklich dankbar!!

Gruß Stefan

#2

Hallo Stefan

Du musst ein Steuerelementefeld erstellen.

Alle deine Linien bekommen den Namen „Linie1“. Die jeweils dazugehörende Index-Eigenschaft muss dann von 0 bis 19 (oder 1 bis 20) durchnummeriert werden. Dann kannst du mit:

For i = 0 to 19
Linie1(i).x1 = 0
Linie1(i).x2 = 0
Linie1(i).y1 = 0
Linie1(i).y2 = 0
next i

Das gewünschte durchführen.
Das Funktioniert auch mit allen anderen Steuerelementen.
Die Ereignis-Prozeduren sehen dann etwas anders aus:

Sub ElementName_Click(index as Integer)
’ index ist dann der entsprechende Wert der Index-Eigenschaft.
End Sub

Ich hab folgendes Problem:

Ich habe auf meiner User-Form ca. 20 Linien gezeichnet.
Benannt habe ich sie nach dem Schema: Line1, Linie2…Linie20.
Während des Programmablaufes werden die Koordinaten der Linien
verändert, dabei habe ich folgende Syntax angewandt:
Line1.x1 = 50
Line1.x2 = 100
Line1.y1 = 200
Line1.y2 = 300
Line2.x1 = 75
…

Nach dem Drücken eines Buttons sollen alle Linienkoordinaten
den Wert x1=0,x2=0,y1=,y2=0 besitzten.
Wenn ich das nach dem obigen Schema mache, sind das 20x4=80
Zeilen. Spaßfreie Angelegenheit.

Ist es irgenwie möglich, die Objektbezeichnung Line1, Line2…
variabel zu halten und dann alle Linien in einer kleinen
Schleife auf Null zu setzen?

Ich stelle mir das ungefähr so vor:

For i = 1 to 20
Line&i.x1 = 0
Line&i.x2 = 0
Line&i.y1 = 0
Line&i.y2 = 0
next i

Der Ausdruck Line&i soll dann die entspr. Objektbezeichnung,
also Line1…Line20, ergeben.
Leider klappt das so irgendwie nicht.
Ich habe vergleichbare Probleme sehr oft und wäre für eine
Hinweis wirklich dankbar!!

Gruß Stefan

#3

Vielen Dank!! o.T.
o.T.