Hvordan legge til nye textboxer i runtime [VB6]

[MemorY]

Jeg vil legge til nye textboxer mens programmet kjører, men jeg har ingen anelse på syntaxen. Noen som vet?

Endret 19. november 2005 av rkg1000

[Jonas]

Enkelt!

Dim WithEvents txtTest As VB.TextBox

Private Sub Form_Load()
   
   Set txtTest = Controls.Add("VB.TextBox", "txtTest", Me)
   
   Me.ScaleMode = vbPixels
   
   txtTest.Move 10, 10, 100, 17
   txtTest.Text = "Dette er en test"
   txtTest.Visible = True
   
End Sub

Edit: Eller mente du kansje legge til flere i form av et array og Load() ?

Endret 20. november 2005 av Jonas

[MemorY]

Det som var taken var at i oppstarts formen så taster man inn et tall og trykker på en knapp og så kommer det en ny form opp med så mange textboxer opp.

[Jonas]

Ta en titt på dette, prinsippet er veldig enkelt.

 

Sett inn en textbox, sett index-verdien på den til 0 og lim inn denne koden:

Private Sub Form_Load()
   
   Dim i
   For i = 1 To 9
       
       Load Text1(i)
       Text1(i).Top = Text1(i - 1).Top + 500
       Text1(i).Visible = True
       
   Next i
   
End Sub

[MemorY]

Nice.. Takker