ورود

View Full Version : سوال: ايجاد ابزار بوسيله كد نويسي


Persian-Team
شنبه 15 مرداد 1390, 14:26 عصر
سلام خدمت دوستان عزيز ، من تالار رو جستجو كردم ولي مطلب مورد نظرم رو پيدا نكردم .
دوستان ميخوام به وسيله كد نويسي يكي از ابزار رو روي فروم در زمان اجراي برنامه قرار بدم !‌، بعنوان مثال ميخوام يك پيكچرباكس در يه مختصات مشخص فروم قرار بدم يا يك ابزار رو از روي فروم حذف كنم .
ممنون ميشم اگه كسي از دوستان ميتونه كمك كنه :تشویق:
محسن واژدی
شنبه 15 مرداد 1390, 14:44 عصر
سلام علیکم،
برای ایجاد یک کنترل در زمان اجرای ساده ترین راه استفاده از کنترل آرایه است یعنی کنترل مورد نظر را به کنترل آرایه تبدیل سپس در زمان اجرای کپی هایی از ان ایجاد میکند؛ در مورد حذف کنترل در زمان اجرا، نمیتوانید کنترلهای ایجاد شده در زمان طراحی را در زمان اجرا حذف کنید به عبارت دیگر فقط کنترل هایی را که در زمان اجرا ایجاد شده اند را میتوانید مجددا حذف کنید.
موفق باشید
setroyd
شنبه 15 مرداد 1390, 16:31 عصر
Private Sub Form_Load()
Set text3 = Controls.Add("VB.picturebox", "text3", Me)
text3.Left = 0
text3.Top = 0
text3.Width = 2000
text3.Height = 2000
text3.Visible = True
End Sub

فکر کنم همینو میخوای
setroyd
شنبه 15 مرداد 1390, 16:35 عصر
این بدون ارایه بود همون طوری که mohsen گفت با ارایه هم میشه
Persian-Team
یک شنبه 16 مرداد 1390, 10:22 صبح
Private Sub Form_Load()
Set text3 = Controls.Add("VB.picturebox", "text3", Me)
text3.Left = 0
text3.Top = 0
text3.Width = 2000
text3.Height = 2000
text3.Visible = True
End Sub

فکر کنم همینو میخوای

ممنون ، براي پاك كردن همين پيكچرباكس بايد از چه دستوري استفاده كنم ؟
محسن واژدی
یک شنبه 16 مرداد 1390, 10:54 صبح
توسط دستور زیر میتوان این کنترل را حذف کرد، برای حذف کنترل آرایه هم از (obj_nam)Call Unload استفاده کنید:

Call Controls.Remove(text3)


موفق باشید