View Full Version : ساختن کنترل با کد
mjz000
یک شنبه 21 اسفند 1384, 10:07 صبح
کد احضار یا ساخت یک کنترول چیست؟
( نه به صورت ocx ) مثلا فرد با زدن یک دکمه یک دکمه دیگه ساخته شه.(بی محدوده)
yavari
یک شنبه 21 اسفند 1384, 17: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, 20: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, 20:52 عصر
----==(( ممنون ))==----
mamaliomega
پنج شنبه 13 اسفند 1388, 03: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, 07: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)
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.