ارجو شرح هذا الكود المهم ؟؟؟؟

بسم الله الرحمن الرحيم

السادة الكرام اعضاء ومشرفين الفريق الربى للبرمجة

احيكم بتحية الاسلام

السلام عليكم ورجمة الله وبركاتة

ارجو من حضراتم شرح هذا الكود لانى لا افهمة مع اننى حصلت علية من علىالا نترنت وكان بأستطاعتى اضعة فى البرنامج ويشتغل فورا ولكن اريد ان افهمة حتى لانعتمد على طريقة القص واللصق دون اى علم او استفادة

وجزاكم الله خيرا

الكود يشرح طريق وضع صورة فى القائمة عند تصميم القوائم بالفيجوال بيسك

Posted: Mon Feb 28, 2005 5:48 am Post subject: كود لوضع رسومات وصور بداخل Menu Editor

كود لوضع رسومات وصور بداخل Menu Editor

Code:

Private Sub Form_Load()

Dim hMenu As Long, hSubMenu As Long, MenuID As Long

hMenu = GetMenu(Form1.hWnd)

hMenu = GetSystemMenu(hWnd, 0)

MenuID = 0

X% = ModifyMenu(hMenu, MenuID, MF_BITMAP, MenuID, CLng(Image1.Picture))

hMenu = GetMenu(Form1.hWnd)

hSubMenu = GetSubMenu(hMenu, 0) 'The "0" here is For the first menu Item.

MenuID = GetMenuItemID(hSubMenu, 0) 'The "0" here is For the first SUB menu Item.

X% = ModifyMenu(hMenu, MenuID, MF_BITMAP, MenuID, CLng(Image1.Picture))

MenuID = GetMenuItemID(hSubMenu, 1)

X% = ModifyMenu(hMenu, MenuID, MF_BITMAP, MenuID, CLng(Image2.Picture))

MenuID = GetMenuItemID(hSubMenu, 2)

X% = ModifyMenu(hMenu, MenuID, MF_BITMAP, MenuID, CLng(Image3.Picture))

End Sub

*****************************************************************************

وجزاكم الله خيرا

وهذا الملف المرفق توجد به مجموعة مهمة من الاكواد التى تحتاج الى شرح بالتفصيل وضعتة هنا حتى تتم الاستفادة للجميع

******************************************************************************

سبحان الله وبحمده سبحان الله العظيم

والسلام عليكم ورحمة الله وبركاتة

للتواصل عبر الماسنجر

tayaaam@yahoo.com

tayaaam@hotmail.cim

6.DOC