/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
(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



Søg
Reklame
Statistik
Spørgsmål : 177560
Tips : 31968
Nyheder : 719565
Indlæg : 6408942
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste