ساختن کنترل با کد

کد احضار یا ساخت یک کنترول چیست؟
( نه به صورت ocx ) مثلا فرد با زدن یک دکمه یک دکمه دیگه ساخته شه.(بی محدوده)

سلام دوست عزیزم

کاری که تو میخوای این تکه برنامه انجام میده


Private Const MuchOfMove = 660

Private Sub Command_Click(Index As Integer)
i = Index + 1
Text_Move = i * MuchOfMove
Load Command(i)
Command(i).Visible = True
Command(i).Top = Command(i).Top + Text_Move
Command(i).SetFocus

End Sub


فکر نمی کنم توضیح اضافه ای خواسته باشه با این حال اگه سوالی بود بپرس

موفق باشی

دوست عزیز برای اضافه کردن کنترل از طریق کد نویسی می تونی به این صورت بنویسی:

dim tx As Object

Private Sub Command1_Click()

Set tx = Controls.Add("vb.textbox", "txt1", Me)

tx.Visible = True

tx.Top = 1500

tx.Left = 1440

tx.Width = 2500

tx.Text = "Hellooooo"

End Sub

----==(( ممنون ))==----

من میخوام به تعداد input شده توسط user، کنترل های Winsock ساخته بشه و بشه ازشون استفاده کرد...
با این دستور هم جواب نگرفتم:
Dim Winsock2(1 To i) As New Winsock
Winsock2(i).left= 25
Winsock2(i).top= 25
Me.Controls.Add (Winsock2(i))

به خط اول گیر میده و میگه NEW اینجا بکار نمیره!!(اول که به i گیر میداد ولی کلا چه I باشه چه مقدار عددی معلوم باشه بازم هیچ فرقی نداره و اررور میده)
خیلی فوریه. ممنون میشم کمک کنید!!!

اینو یه بار از vbhamed پرسیدم گفتش:

نقل قول:

---

سلام

1 - یك دونه شیء روی فرم بزارید و Index اون رو برابر 0 قرار بدین
2 - با دستور Load بعدی ها رو Load كنید و خواصش هم مثل حالت معمول تغییر می كنه مثلا من یك TextBox به نام Text1 با اندیس 0 گذاشتم و حالا می‌خوام دومیش رو Load كنم :

کد:
Load Text1(1)
Text1(1).Visible = True
Text1(1).Move 10, 10

__________________

---

در اینجا