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

[mjz000]

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

[yavari]

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

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


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


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

موفق باشی

[ehsan_ansaripoor]

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

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

[mjz000]

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

[mamaliomega]

من میخوام به تعداد 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 باشه چه مقدار عددی معلوم باشه بازم هیچ فرقی نداره و اررور میده)
خیلی فوریه. ممنون میشم کمک کنید!!!

[aryasoft2872]

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

سلام

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

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

__________________

در اینجا