ايران ويج

نسخه‌ی کامل: اضافه کردن آبجکت هنگام اجرای برنامه
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
من تو ایران ویج این برنامه رو دیدم و دانلودش کردمBiggrin ولی الان توش 1 مشکلی دارم:
من با این دستور 2 تا آبجکت می سازم:
کد:
Public ctlName As Control

Private Sub Command1_Click()

Set ctlName = Me.Controls.Add("VB.CommandButton", "cmdOne")
ctlName.Visible = True
ctlName.Caption = "First Cmd"
ctlName.Left = 1000

Set ctlName = Me.Controls.Add("VB.CommandButton", "cmdtwo")
ctlName.Visible = True
ctlName.Caption = "Second Cmd"
ctlName.Top = 500
End Sub

Private Sub Command2_Click()
ctlName.Left = 300
End Sub
الان اگه روی Command2 کلیک کنم، Left آخرین آبجکتی که اضافه شده رو می کنه 300.
ولی اگه من بخوام بعد از اضافه کردن 10 تا آبجکت، تغییری روی اولین آبجکت بکنم چی؟
زمانی که داشتم این سوال رو از امیرحسین توی چت می پرسیدم بهم گفتش که خب از چند تا متغییر استفاده کن. ولی مشکل اینه که معلوم نیست ما چند تا آبجکت می خوایم داشته باشیم: مثلاً 1 کلید داریم که کاربر هر چند باری که روش کلیک کنه 1 آبجکت اضافه می شه و بعداً اگه کاربر بخواد روی 5مین آبجکتی که اضافه کرده 1 تغییری ایجاد کنه باید چی کار کنه؟Question
این برنامه رو الان نوشتم.
یه روش زیر آبیه Biggrin
اما بدیش اینه که مدیریت رویداد نداره !