Jaaaaaaaaa
- Jeg VISTE det kunne lade sig gøre, og mange tak - det var
jo LIGE hvad jeg gerne ville have! *S*
MVH
Andy
"Niels Krogh" <nikro@mail.dk> skrev i en meddelelse
news:3bb1cd4f$0$266$edfadb0f@dspool01.news.tele.dk...
> Hmn, så der er klassikkeren - lav et array af textboxe hvor den første er
> lavet på forhånd.
>
> 1. Indsæt en Textbox på en Form, navngiv den fx txtBox og giv den Index=0
> (designtime)
>
> 2. Runtime laver du så :
> Load txtBox(1)
> txtBox(1).Visible = True
>
> Load txtBox(2)
> txtBox(2).Visible = True
>
> osv.osv...
>
> Håber det hjælper...
>
> mvh
> Niels K.
>
> "Andy Dufresne" <andy-dufresne@indbakke.dk> wrote in message
> news:9osg1s$16n4$1@news.net.uni-c.dk...
> > DET var faktisk RIGTIG godt, for jeg ANEDE ikke at man kunne de ting du
> gør
> > i den kodestump, MEN - det der er mit problem er, at jeg skal bruge
flere
> > tekstbokse, og at jeg ikke kan vide hvormange...... Derfor skal jeg
kunne
> > lave nye udgaver af en allerede eksisterende tekstboks 'on-the-fly'!
> >
> > MVH
> > Andy
> >
> > "Niels Krogh" <nikro@mail.dk> skrev i en meddelelse
> > news:3bb0332b$0$51414$edfadb0f@dspool01.news.tele.dk...
> > > Hej Andy,
> > >
> > > Et lille eksempel med en textbox og en timer på en blank form :
> > >
> > > Option Explicit
> > > Private WithEvents Timer1 As Timer
> > > Private WithEvents txtBox As TextBox
> > >
> > > Private Sub Form_Load()
> > >
> > > Set Timer1 = Me.Controls.Add("VB.Timer", "Timer1", Me)
> > > Timer1.Interval = 1000
> > > Timer1.Enabled = True
> > >
> > > Set txtBox = Me.Controls.Add("VB.Textbox", "txtBox", Me)
> > > txtBox.Move 120, 120, 2000, 375
> > > txtBox.Visible = True
> > >
> > > End Sub
> > >
> > > Private Sub Timer1_Timer()
> > > txtBox.Text = Now
> > > End Sub
> > >
> > > Mvh
> > > Niels K.
> > >
> > > "Andy Dufresne" <andy-dufresne@indbakke.dk> wrote in message
> > > news:9opad1$n2e$1@news.net.uni-c.dk...
> > > > Hvordan laver jeg en ny tekstbox runtime?
> > > >
> > > > På forhånd tak
> > > >
> > > > Andy
> > > >
> > > >
> > >
> > >
> >
> >
>
>