een varibale labelnaam.caption

[nickboon18]

de code
label1.caption = "test"
wil ik vervangen door een variabele bv
labelnummer="label1"
en dan de volgende code toe te passen zo
labelnummer.caption=test

hoe moet dit want zo werkt t niet

alvast bedankt

 

[etri]

dim var1 as string

var1 = "Dit is een stukje tekst"
label1.caption = var1

 

[Ruudvansch]

Heb je je probleem inmiddels opgelost?
Ik loop tegen hetzelfde aan.

Ik heb een formulier met o.a. een multipage. Op elke page staan heel vergelijkbare labels en textboxen. Het is dan (zoals jij ook opmerkt) niet handig om elk label en elke textbox een unieke VASTE naam te geven.

Anders verteld:
Op elke page heb ik bv. een 'voornaam' een 'achternaam' en een 'geboorteplaats'.
Ik zou dan in een loop al die tabbladen willen aflopen en de waarden willen invullen voor bv. die textboxes door de NAAM van de textbox als variabele te kunnen aanroepen.
Dus bv. op page0 is de naam van textbox mbt voornaam= voornaam0
op page1 is de naam van textbox mbt voornaam= voornaam1
op page2 is de naam van textbox mbt voornaam= voornaam2
enz

Maar ik heb nog niet ontdekt hoe ik die textboxes aanroep met een variabele. Zoiets als:
for persoon=0 to 9
textboxnaam="voornaam" + cstr(persoon)
formulier.multipage(persoon).textboxnaam.value = cells(rij,1).value
next persoon

Weet iemand een manier?

de code
label1.caption = "test"
wil ik vervangen door een variabele bv
labelnummer="label1"
en dan de volgende code toe te passen zo
labelnummer.caption=test

hoe moet dit want zo werkt t niet

alvast bedankt

 

[snb]

Kijk dan eens hier

 

[Ruudvansch]

Kijk dan eens hier

Wat ik bedoel komt niet voor in het voorbeelddocument waar je naar verwijst.

Hopelijk is mijn vraagstelling duidelijk.

Wat gewoon kan en werkt is:

F_persoon.MultiPage1(0).voornaam_kind1.Caption = worksheets(1).cells(1,1).value

hiermee wordt dus de voornaam van het eerste kind gezet in het label met de naam "voornaam_kind1" op het eerste tabblad.
Op dat zelfde tabblad staan nog veel meer gegevens van dat ene kind. Die kan ik op dezelfde manier vullen.

Maar nu zijn er meer kinderen. Elk kind heeft zijn/haar eigen tabblad (met elke keer dezelfde items (voornaam, achternaam, plaats, straat, enz. enz.). Als ik het even alleen weer voor de voornaam doe, zou het zoveel makkelijk zijn als dat ongeveer zou kunnen als volgt:

for kind=1 to 10
...F_persoon.MultiPage1(kind-1).voornaam_kind(kind).Caption = worksheets(1).cells(kind,1).value
next kind

Of als:

for kind=1 to 10
...labelnaam="voornaam_kind"+ cstr(kind)
...F_persoon.MultiPage1(kind-1).labelnaam.Caption = worksheets(1).cells(kind,1).value
next kind


Dit dus om te voorkomen, dat ik al die labels, textboxen e.d. apart moet aanroepen bij het vullen. Op tabblad 1 staan nu o.a.labels met de volgende namen:
voornaam_kind1
achternaam_kind1
straat_kind1
plaats_kind1
enz.
Op tabblad 2:
voornaam_kind2
achternaam_kind2
straat_kind2
plaats_kind2
...
Op tabblad 15
voornaam_kind15
achternaam_kind15
straat_kind15
plaats_kind15


(Nog mooier zou zijn als ik maar 1 tabblad met labels hoef aan te maken en die met een index op een volgend tabblad kon kopieren. , maar dat is anders een kwestie van stug doortypen...).

 

[snb]

als labels in kolom A:

for j=1 to 10
  with sheets(2)
    F_persoon.MultiPage1(0).controls(.cells(j,1)).Caption = .cells(j,1)
  end with
Next

 

[Ruudvansch]

Dat is inderdaad wat ik zoek.
Ik heb nog een aanpassing moeten doen voordat het werkte:

for j=1 to 10
with sheets(2)
F_persoon.MultiPage1(0).controls(.cells(j,1).value).Caption = .cells(j,1)
end with
Next

Hier kan ik verder mee.
Bedankt!