چگونگی اضافه کردن یک دستور به یک شئ لود شده

[abolfazl-z]

سلام دوستان

مثلا من یک فرم و همراه با یک کمند دارم که کمند را Index اش را برابر صفر میکنم و در Form_load کد زیر را مینویسم:

Private Sub Form_Load()
Load Command1(1)
Command1(1).Visible = True
Command1(1).Left = 1000
End Sub


خوب دوستان تا اینجا که درست (اضافه کردن یک کمند دیگر)

خوب حالا من می خواهم مثلا کد Print "Yes" را بوسیله این کمند اجرا کنم:اشتباه: خوب چطوری ؟

اصلا من میخواهم رویداد هم تعریف کنم؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

:متفکر::متفکر::متفکر::متفکر:

[محسن واژدی]

سلام علیکم
با کدی مشابه زیر:
Private Sub Command1_Click(Index As Integer)
If Index = 1 Then
Print "Yes"
End If
End Sub

موفق باشید

[abolfazl-z]

مرسی دوست من مشکلم حل شد.:چشمک::تشویق::قلب:

ولی یک چیز اگر خواستم در یک Picture Box لود کنم باید چکار کنم؟؟؟؟:متفکر:

[abolfazl-z]

مرسی دوست من مشکلم حل شد.:چشمک::تشویق::قلب:

ولی یک چیز اگر خواستم در یک Picture Box لود کنم باید چکار کنم؟؟؟؟:متفکر:


محسن جان اینرو خودم فهمیدم .:لبخند:

هرجایی که شئ را قرار بدهید همون جا لود میشه.

[محسن واژدی]

کد زیر را بررسی کنید:
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Sub Command2_Click()
SetParent Command1(1).hWnd, Picture1.hWnd
End Sub


البته با خاصیت Container شی هم میتوانیم ولی محدودیت های خاص خودش را دارد

موفق باشید

[محسن واژدی]

هرجایی که شئ را قرار بدهید همون جا لود میشه.

بصورت پیش فرض بله اما مواقعی است که بخواهیم شی را در جایی بجز container پیش فرض قرار دهیم از توابعی که در بالا عرض شد استفاده میکنیم

موفق باشید

[abolfazl-z]

مرسی:لبخندساده:

[abolfazl-z]

:لبخندساده: مرسی محسن جان