ساختن کنترل با کد [بایگانی]

mjz000

یک شنبه 21 اسفند 1384, 09:07 صبح

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

yavari

یک شنبه 21 اسفند 1384, 16:46 عصر

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

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

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

یک شنبه 21 اسفند 1384, 19:06 عصر

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

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

یک شنبه 21 اسفند 1384, 19:52 عصر

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

mamaliomega

پنج شنبه 13 اسفند 1388, 02:20 صبح

من میخوام به تعداد 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

پنج شنبه 13 اسفند 1388, 06:49 صبح

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

سلام

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

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

__________________

در اینجا (http://www.barnamenevis.org/forum/showpost.php?p=892714&postcount=2)