"preben nielsen" <prel@post.tele.dk> skrev i en meddelelse
news:9d940l$f33$1@news.inet.tele.dk...
>
> "flemming j." <flemming.jensen@koebenhavn.mail.telia.com> skrev i
> en meddelelse news:xATJ6.1011$h4.150230@news101.telia.com...
> > Som det ses herunder skal jeg udføre samme programstump
> > på forskellige Textboxe. Er det muligt at lave noget i stil
> med
> > Texta+1 så man kunne skrive det hele en enkelt gang og så
> > blot tælle variablen a. op. Jeg har prøvet men kan ikke finde
> en
> > løsning.
>
> Du skal oprette dine TextBoxe som et ControlArray, dvs. en tabel
> af TextBoxe.
>
> - Opret en TextBox (lad os kalde den "txtBox")
> - sæt Index attributten til 0
> - vælg din TextBox og kopier den (den nye TextBox får Index = 1)
> - fortsæt med forrige punkt indtil du har de TextBoxe, som du
> skal bruge
>
> Nu kan du adressere dem som,,,
>
> For intIdx = 0 to X
> række = txtBox(intIdx)
> lottocheck
> txtBox(intIdx+1) = v
> txtBox(intIdx+2) = t
> Next
>
> ... eller lignende
>
> --
>
> /\ preben nielsen
> \/\ prel@post.tele.dk
>
>
>
Hvis du arbejder i VBA kan du ikke gøre ovenstående.
Istedet skal du gennemløbe din UserForms Controls-Collection og kigge på
controllens type og navn. Ala:
Dim objControl As Control
Dim intTextBoxIterator As Integer
For Each objControl In Me.Controls
If objControl.Type = "Textbox" Then 'Ikke sikker på syntaks
If objControl.Name = "Texta" + intTextBoxIterator Then
objControl.Text = "Fundet " & objControl.Name
'Husk at iterere tælleren
intTextBoxIterator = intTextBoxIterator + 1
End If
End If
Next objControl
mvh
Anton