|
| (Newbie)Textbox ? Fra : flemming j. |
Dato : 08-05-01 15:45 |
|
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.
række = Text6
lottocheck
Text7 = v
Text8 = t
række = Text9
lottocheck
Text10 = v
Text11 = t
række = Text12
lottocheck
Text13 = v
Text14 = t
--
Regards/M.v.h.
Flemming Jensen
| |
preben nielsen (08-05-2001)
| Kommentar Fra : preben nielsen |
Dato : 08-05-01 16:41 |
|
"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
| |
Anton Vestergaard (08-05-2001)
| Kommentar Fra : Anton Vestergaard |
Dato : 08-05-01 21:33 |
|
"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
| |
|
|