Labels in Schleife mit Variable benutzen

[Paulsche]

Hi, ist wahrscheinlich ganz einfach, finde den richtigen Code aber nicht.

ich habe 12 Labels: LBLkosten1 bis LBLkosten12

ich möchte die Labels nun in einer Schleife positionieren, in Basic4PPC ging das so:

for i = 1 to 12
  Control("LBLkosten" & i, Label).left = 10
next

Wie kann ich das in Basic4a realisieren ?

[Filippo]

Hallo Paulsche,

versuche mal so:

Dim LBLkosten(12) As Label
for i = 1 to 12
  LBLkosten(i).left = 10
next

[klaus]

So musst Du es machen:

<font size="2"><font face="Courier New"><font color="#0000ff"><font size="2"><font face="Courier New"><font color="#0000ff"><font size="2"><font face="Courier New"><font color="#0000ff">Sub </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">Globals</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#008000"><font face="Courier New"><font size="2"><font color="#008000"><font face="Courier New"><font size="2"><font color="#008000">'These global variables will be redeclared each time the activity is created.</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#008000"><font face="Courier New"><font size="2"><font color="#008000"><font face="Courier New"><font size="2"><font color="#008000">'These variables can only be accessed from this module.</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">  Dim</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"> lblText0, lblText1, lblText2, lblText3, lblText4, lblText5 </font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">As </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#008b8b"><font face="Courier New"><font size="2"><font color="#008b8b"><font face="Courier New"><font size="2"><font color="#008b8b">Label</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">  Dim</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"> lblText() </font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">As </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#008b8b"><font face="Courier New"><font size="2"><font color="#008b8b"><font face="Courier New"><font size="2"><font color="#008b8b">Label</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">End Sub</font></font></font>
 
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">Sub </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">Activity_Create(FirstTime </font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">As </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#008b8b"><font face="Courier New"><font size="2"><font color="#008b8b"><font face="Courier New"><font size="2"><font color="#008b8b">Boolean</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">)</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">  Dim</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"> i </font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">As </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#008b8b"><font face="Courier New"><font size="2"><font color="#008b8b"><font face="Courier New"><font size="2"><font color="#008b8b">Int</font></font></font>
</font></font></font></font></font></font>
<font size="2"><font face="Courier New"><font size="2"><font face="Courier New">  Activity.LoadLayout(</font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">"Main"</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">)</font></font>
 
<font size="2"><font face="Courier New">  lblText = </font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">Array </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">As </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#008b8b"><font face="Courier New"><font size="2"><font color="#008b8b"><font face="Courier New"><font size="2"><font color="#008b8b">Label</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">(lblText0, lblText1, lblText2, lblText3, lblText4, lblText5)</font></font>
 
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">  For</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"> i = </font></font></font></font><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080">0 </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">To </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080">5</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">    lblText(i).Left = </font></font></font></font><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080">100</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">    lblText(i).Text = </font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">"Test"</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"> & i</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">  Next</font></font></font>
<font size="2"><font face="Courier New"><font color="#0000ff">End Sub</font></font></font></font></font></font></font></font></font>

Beiliegend das Testprogramm.

Beste Grüsse.

[Paulsche]

Hi Vilippo, Hi Klaus,

@ Vilippo, das hat so nicht funktioniert,

@ Klaus, so klappt es .

Danke an beide.

Was würd ich nur ohne euch in dem Forum !!!