كيف أقوم بوضع صور في القوائم مثل برامج الأوفس

ابحث فى المنتدى قبل أن تسأل فهناك مشاركات لهذا الموضوع

وعموما يمكنك استخدام SetMenuItemBitmaps

فهى يمكنها فعل ذلك .

وهتلاقى لها مثال فى الــ API-Guide

فضلاً انتظر اذكر انني اجبت على مثل هذا الطلب سوف ابحث لك عنه

1)ضع اداه Picture Box.

2)غير خاصية AutoSize الي True.

3)يجب ان لا تزيد الصورة عن 13 * 13.

4)اكتب هذا الكود في Module:

Private Declare Function VarPtr Lib "VB40032.DLL" (variable As Any) As LongPrivate 
Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As LongPrivate 
Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As LongPrivate 
Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long
Const MF_BYPOSITION = &H400&

و هذه الكود في الفورم:

Dim mHandle As Long, lRet As Long, sHandle As Long, sHandle2 As Long
mHandle = GetMenu(hwnd)
sHandle = GetSubMenu(mHandle, mnu#)
lRet = SetMenuItemBitmaps(sHandle, chos#, MF_BYPOSITION, Picture1.Picture, imOpen.Picture)
lRet = SetMenuItemBitmaps(sHandle2, 0, MF_BYPOSITION, imCopy.Picture, imCopy.Picture)

حيث mnu# هي رقم القائمة و تبدأ من 0, و chos# هي رقم الاختيار في هذه القائمة و تبدأ من 0 و طبعا يمكن زيادتها..

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

هذا مثال لعمل قوائم مماثله لقوائم XP

XP.zip

شكراً جزيلاً