Du kan anvende formens Controls-collection.
Det fungerer bedst, hvis de relevante tekstboxe har en eller anden
markering, f.eks. teksten "Gem" i Tag-propertyen. Du kan så gemme med denne
kode:
Dim Ctrl as Control
For Each Ctrl in Me.Controls
If TypeOf(Ctrl) Is TextBox Then
If Ctrl.Tag = "Gem" Then
Call GemIndhold( Ctrl.Name, Ctrl.Text )
End If
End If
Next Ctrl
Rutinen forudsætter en Sub GemIndhold, der har kontrollens navn som første
parameter og indholdet som anden.
Mvh.
Claus H
"preben nielsen" <prel@post.tele.dk> skrev i en meddelelse
news:3d8a026e$0$75599$edfadb0f@dspool01.news.tele.dk...
>
> "Tina" <a@a.com> skrev i en meddelelse
> news:amcmcu$iuo$1@jarjarbinks.mobilixnet.dk...
> > Jeg har et program som har omkring 50 tekstbokse og jeg vil
> gerne gemme den
>
> 50 tekstboxe = Dårligt design ?
>
> > tekst der står i dem, men det bliver en meget lang kode hvis jeg
> skal bruge
> > min sædvanlige. Nogen der kan komme med en god metode/syntaks
> til at gemme?
> > Og til at hente ind igen?
>
>
> Opret dem som control-array og loop gennem dem.
>
>
> --
> /\ preben nielsen
> \/\ prel@post.tele.dk
>
>
>