[ Visual Basic 6 ] كيف اضع ايقوانات على الكلك يمين

تم تحميل الصفحة في 0,4901622 ثانية
كيف اضع ايقوانات على الكلك يمين
الحالة
مغلق و غير مفتوح للمزيد من الردود.

SP!ON

Beginner Developer
rank
إنضم
16 أغسطس 2010
المشاركات
54
الإعجابات
2
النقاط
0
السلام عليكم

ابي شرح وضع ايقوانه على الكلك يمين

وهذي صوره




طبعا في الفجوال بيسك vb6
 

Dr.hac

ExpErt DeveloPer
rankrankrankrank
إنضم
14 أغسطس 2010
المشاركات
1,672
الإعجابات
423
النقاط
83
رد: كيف اضع ايقوانات على الكلك يمين

شوف أخوي دورتلك وبعبشت لعند ما القيت هالكود شوفه انشا الله تستفاد منه لكن لا تنسى التقييم ان امكن

'Add a picturebox control.
'Set 'Autosize' to 'True' with a bitmap (not an Icon)
'at a maximum of 13X13.

'Place these Declarations in BAS module


Private Declare Function VarPtr Lib "VB40032.DLL" (variable As Any) As Long
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private 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&

'Place this code into the form load event:

Dim mHandle As Long, lRet As Long, sHandle As Long, sHandle2 As Long
mHandle = GetMenu(hwnd)
sHandle = GetSubMenu(mHandle, 0)
lRet = SetMenuItemBitmaps(sHandle, 0, MF_BYPOSITION, imOpen.Picture, imOpen.Picture)
lRet = SetMenuItemBitmaps(sHandle, 1, MF_BYPOSITION, imSave.Picture, imSave.Picture)
lRet = SetMenuItemBitmaps(sHandle, 3, MF_BYPOSITION, imPrint.Picture, imPrint.Picture)
lRet = SetMenuItemBitmaps(sHandle, 4, MF_BYPOSITION, imPrintSetup.Picture, imPrintSetup.Picture)
sHandle = GetSubMenu(mHandle, 1)
sHandle2 = GetSubMenu(sHandle, 0)
lRet = SetMenuItemBitmaps(sHandle2, 0, MF_BYPOSITION, imCopy.Picture, imCopy.Picture



ابصراحه ما جربته خليت لك التجربة طمنا
انشا الله ايفيدك (لا تنسى التقييم هههههه) :15::15:
 

SP!ON

Beginner Developer
rank
إنضم
16 أغسطس 2010
المشاركات
54
الإعجابات
2
النقاط
0
رد: كيف اضع ايقوانات على الكلك يمين

تم التقيم

ومشكلتي حليتها قبل امس
يعطيك العافية

:32:
 

abead

DeveloPer Plus
rankrankrankrank
إنضم
10 مارس 2011
المشاركات
1,620
الإعجابات
48
النقاط
0
رد: كيف اضع ايقوانات على الكلك يمين

يعطيك العافية
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل