اضافه شدن کنترل به برنامه در حین اجرا

[hamidpro]

سلام
من می خوام برنامه ای بنویسم که با هر بار زدن یک دکمه یک text box روی فرم اضافه بشه
با تشکر از همه ی دوستان

[S.Azish]

Dim tempTextBox As TextBox


Set tempTextBox = Me.Controls.Add("VB.TextBox", "newText1", Me)

tempTextBox.Text = "Test"
tempTextBox.Visible = True

[Hassan-Ahmadi]

با این کد هم شما می تونید با ایجاد یک نوع از اون شی که می خواهید به صورت آرایه ای کار کنید
اون شی رو ابتدا به صورت آرایه در بیارید و بعد این کد رو هم اضافه کنید
Dim a As Long
Private Sub Command1_Click()
a = a + 1
Load Text1(a)
Text1(a).Height = Text1(1).Height
Text1(a).Width = Text1(1).Width
Text1(a).Top = Text1(a - 1).Top + Text1(1).Height
Text1(a).Left = Text1(a - 1).Left
Text1(a).Visible = True
End Sub

[hamidpro]

آقا دستتون درد نکنه