Karthikeyan

• Jul 14th, 2006

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If TextBox1.Text = "1" Then

Dim textbox As New System.Windows.Forms.TextBox

textbox.Name = "one"

textbox.Text = "hello"

Me.Controls.Add(textbox)

Else

Dim button As New System.Windows.Forms.Button

button.Enabled = True

button.Name = "Button1"

button.Text = "New Button"

Me.Controls.Add(button)

End If

End Sub

vinod_arya

 Profile Answers by vinod_arya 

• Jul 19th, 2006

 

By creating array of controls.

Example u want to display as many text boxes as the number of records in table u create a text box on Form set it Index to 0.

and while fetching records, let us say rs is the recordset and text1 is the control array

dim ndx as integer

ndx=1

while not rs.eof

load text1(ndx)

text1(ndx).top=text1(ndx-1).top+text1(ndx).height

text1(ndx).visible=true

rs.movenext

wend

Atin Srivastava

• Jun 23rd, 2007

 

Dim ctl as control
set ctl=Form1.Controls.add("Vb.Textbox","text1",form1)
ctl.visible=true