ورود

View Full Version : اضافه کردن یک شی به PictureBox در زمان اجرا


IranVB
پنج شنبه 01 دی 1390, 23:44 عصر
با سلام
حتما دیده اید که در موقع طراحی وقتی یک دکمه را در PictureBox میکشیم picturebox به عنوان والد دکمه تلقی میشود، حالا چطور میتوانم در زمانی که برنامه در حال اجراست یک شی را به picturebox اضافه کنم (همانند زمان طراحی)
ممنونم
محسن واژدی
جمعه 02 دی 1390, 00:02 صبح
سلام
از APIی SetParent استفاده کنید:

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Sub Command1_Click(Index As Integer)
SetParent Command1.hwnd, Picture1.hwnd
End Sub


موفق باشید
IranVB
جمعه 02 دی 1390, 07:46 صبح
خیلی ممنون از جوابی که دادین
ولی آیا راه دیگری وجود ندارد که نخواهم از این دستور استفاده کنم
بازم خیلی ممنونم
IamOverlord
جمعه 02 دی 1390, 09:12 صبح
اگر هم راه دیگه ای باشه از همین دستور استفاده می کنه. راه اصلی همینه.
محسن واژدی
جمعه 02 دی 1390, 10:36 صبح
دستور داخلی دیگری هم وجود دارد منتها:
1-محدود به وی بی است (یعنی نمیتوانیم از آن برای سایر برنامه ها استفاده کنیم)
2-و قابل استفاده در همان فرمی است که در آن حضور داریم


Private Sub Command1_Click()
Set Command1.Container = Picture1
End Sub


در کل عموما" برای تغییر دادن کانتینر یک شی از SetParent استفاده میشود

موفق باشید