آیا تا بحال برایتان پیش آمده است که بخواهید برای منوهای خود آیتم‌های تصویری ایجاد کنید. در این مقاله می‌خوام بگم که چطور می‌شه در منوها تصویر قرار داد. شما می‌توانید کدهای زیر را در یک ماژوال کپی کرده و با استفاده از تابع زیر به منوهای خود تصویر اضافه کنید. در زیر توضیحی در مورد چگونگی کار با این تابع را خواهید آموخت.
AddMenuBitmap(SubMenuIndex As Byte, MenuIndex As Byte, UnCheckedPicture As IPictureDisp, CheckedPicture As IPictureDisp)
در آرگومان اول باید Index منویی را مشخص کنید که با کلیک بر روی آن منویی باز می‌شود گزینه مورد نظر شما در آن است. این شماره گذاری از صفر شروع می‌شود. برای مثال در همین Internet Explorer منوی فایل دارای Index صفر و منوی ادیت دارای Index یک است.
در آرگومان دوم باید Index منویی را مشخص کنید که گزینه مورد نظر شما در آن است. این شماره گذاری نیز از صفر شروع می‌شود. برای مثال در همین Internet Explorer منوی فرعی ...Open دارای Index یک است چون از بالا دومین گزینه است.
در آرگومان سوم باید مسیر تصویر خود را مشخص کنید. بهتر است که این تصویر را در یک Image List قرار دهید. نکته بعدی اینکه باید سایز تصویر شما 14 پیکسل در 14 پیکسل باشد. نکته آخر اینکه شما می‌توانید از تصاویری با فرمت bmp.* و jpg.* و gif.* استفاده کنید در ضمن شما می‌توانید از حالت Transparency نیز استفاده کنید. این تصویر در حالت تیک نخورده منو اعمال می‌شود.
در آرگومان چهارم باید مسیر تصویری را مشخص کنید که منو در حالت تیک خورده است.
این هم کدهای ماژول:
"Import Necessary API Functions To Use itmap Pictures In The Menus
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 GetMenuItemID 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
"Import a Bitmap Constant To Use Bitmap Pictures In The Menus
Private Const MFT_BITMAP = &H4&
Public Function AddMenuBitmap(SubMenuIndex As Byte, MenuIndex As Byte, UnCheckedPicture As IPictureDisp, CheckedPicture As IPictureDisp)
"Set Some Variable To Add Bitmap Pictures
Dim MenuID As Long
Dim SubMenu As Long
Dim SubMenuID As Long
MenuID = GetMenu(SplashFrm.hwnd)
SubMenu = GetSubMenu(MenuID, SubMenuIndex)
SubMenuID = GetMenuItemID(SubMenu, MenuIndex)
SetMenuItemBitmaps MenuID, SubMenuID, MFT_BITMAP, UnCheckedPicture, CheckedPicture
End Function
بازدیــــد امـــــروز : 30
بازدیــــــــد دیـــــــــروز : 229
بازدیـــــــــد کــــــــــل : 249372
تعـــــداد یادداشت هـــــــا : 871
آموزش مطالب مفید و کاربردی (6)
پرسش و پاسخ های علمی (4)
طرح درس ویژه دوره ابتدایی (66)
طرح درس ویژه متوسطه اول (10)
طرح درس ویژه متوسطه دوم (640)
تحقیق و مقاله دانش آموزی (17)
مطالب مرتبط با درس و مدرسه (20)
آداب و رسوم زندگی ایده آل (13)
دانستنیهای علمی و عمومی (8)
پروژه و فعالیت های درسی (2)
شگفتـی حیوانات و گیاهــان (4)
طرح درس دوره اول ابتدایی (7)
طرح درس دوره دوم ابتدایی (4)
طرح درس دوره اول متوسطه (7)
پاورپوینت دوره اول ابتدایی (1)
پاورپوینت دوره اول متوسطه (8)
پاورپوینت دوره دوم متوسطه (1)
پاورپوینت درس نهم علوم تجربی ششم
پاورپوینت درس دهم علوم تجربی ششم
پاورپوینت درس اول فصل اول مطالعات اجتماعی ششم
پاورپوینت درس هفتم علوم تجربی ششم
پاورپوینت درس دوازدهم آموزش قرآن پایه هفتم آموزش مفاهیم و امتحان
پاورپوینت درس یازدهم آموزش قرآن پایه هفتم: آموزش مفاهیم و قرآن د
پاورپوینت درس دهم آموزش قرآن پایه هفتم: آموزش مفاهیم و استاد عبد
پاورپوینت درس پانزدهم همسفر ناشناس هدیه سوم دبستان
پاورپوینت درس چهاردهم ام ابیها هدیه سوم دبستان
پاورپوینت درس سیزدهم انتخاب پروانه هدیه سوم دبستان
پاورپوینت درس 11 فارسی پایه یازدهم: یاران عاشق
پاورپوینت درس 10 فارسی پایه یازدهم: بانگ جَرَس
پاورپوینت درس 14 فارسی چهارم دبستان (ابتدایی): ادب از که آموختی؟
پاورپوینت درس 13 فارسی چهارم دبستان (ابتدایی): لطف حق (امید)
پاورپوینت درس 10 پیام های آسمان پایه هفتم ( ستون دین )
[همه عناوین(871)][عناوین آرشیوشده]
