ساخت یک فرم با آرایه های کنترلی

[1009645]

سلام دوستان بنده می خواستم یک برنامه بنویسم که عدد رو از کاربر در یک تکست باکس بگیره و به تعدلد همون عدد آرایه کنترلی ایجاد کنه

من هر کار کردم نشد ... ممنون میشم کمکم کنید

[SlowCode]

اگه كنترلت از يه نوعه ميتوني با load اين كار رو بكني، مثلا:
for i=1 to val(text1)
load(command1(i)
command1(i).left=x
command1(i).top=y
command1(i).caption=i
command1(i).visible=true
next

يه ماماند باتن بزار روي فرم و ايندكسش رو صفر كن.

[1009645]

اگه كنترلت از يه نوعه ميتوني با load اين كار رو بكني، مثلا:
for i=1 to val(text1)
load(command1(i)
command1(i).left=x
command1(i).top=y
command1(i).caption=i
command1(i).visible=true
next

يه ماماند باتن بزار روي فرم و ايندكسش رو صفر كن.

اررور میده

92727

[abidana]

راه حل دوستم اقای محسن 15 درسته ولی می خواهم بدانم راه دیگری هست یا نه

[_behnam_]

باید command1 را تعریف کنید

[محسن واژدی]

راه حل دوستم اقای محسن 15 درسته ولی می خواهم بدانم راه دیگری هست یا نه
سلام علیکم
همینطور میتوانیم از دستور Controls.Add استفاده کنیم:
http://barnamenevis.org/showthread.php?303212-%D8%A7%DB%8C%D8%AC%D8%A7%D8%AF-%D8%A7%D8%B4%DB%8C%D8%A7%D8%A1-%D8%AF%D8%B1-%D8%AD%DB%8C%D9%86-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87%D8%9F&p=1330427&viewfull=1#post1330427

موفق باشید

[abidana]

ازتون متشکرم خیلی به کارم اومدم

[1009645]

سلام علیکم
همینطور میتوانیم از دستور Controls.Add استفاده کنیم:
http://barnamenevis.org/showthread.php?303212-%D8%A7%DB%8C%D8%AC%D8%A7%D8%AF-%D8%A7%D8%B4%DB%8C%D8%A7%D8%A1-%D8%AF%D8%B1-%D8%AD%DB%8C%D9%86-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87%D8%9F&p=1330427&viewfull=1#post1330427

موفق باشید

من از این استفاده کردم اما می خوام همه ی باتون ها زیر هم باشن و تعداد رو از تکست باکس بگیره هر کار کردم نشد تغییری بدم کمکم کنید لطفا ممنونم

Call Load(Command1(Command1.UBound + 1))
Command1(Command1.UBound).Visible = True
Command1(Command1.UBound).Move Rnd * Me.Width, Rnd * Me.Height

[محسن واژدی]

من از این استفاده کردم اما می خوام همه ی باتون ها زیر هم باشن و تعداد رو از تکست باکس بگیره هر کار کردم نشد تغییری بدم کمکم کنید لطفا ممنونم

Call Load(Command1(Command1.UBound + 1))
Command1(Command1.UBound).Visible = True
Command1(Command1.UBound).Move Rnd * Me.Width, Rnd * Me.Height

سلام علیکم
کد زیر را بررسی کنید:
Private Sub Command2_Click()
With Command1
Dim i
.Item(0).Move 10, 10
Height = 6570
For i = 1 To 10
Call Load(.Item(i))
.Item(i).Move .Item(0).Left, (.Item(i - 1).Top + .Item(i - 1).Height) + 50
.Item(i).Visible = True
Next 'i
End With
End Sub

موفق باشید