/ 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
Runtime tekstboks
Fra : Andy Dufresne


Dato : 25-09-01 08:06

Hvordan laver jeg en ny tekstbox runtime?

På forhånd tak

Andy



 
 
Niels Krogh (25-09-2001)
Kommentar
Fra : Niels Krogh


Dato : 25-09-01 08:33

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
>
>



Andy Dufresne (26-09-2001)
Kommentar
Fra : Andy Dufresne


Dato : 26-09-01 13:01

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
> >
> >
>
>



Niels Krogh (26-09-2001)
Kommentar
Fra : Niels Krogh


Dato : 26-09-01 13:43

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
> > >
> > >
> >
> >
>
>



Andy Dufresne (27-09-2001)
Kommentar
Fra : Andy Dufresne


Dato : 27-09-01 07:49

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
> > > >
> > > >
> > >
> > >
> >
> >
>
>



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste