"> اضافه کردن آيکون به منو در ویژوال بیسیک 6 | ام اس پی سافت

اضافه کردن آیکون به منو در ویژوال بیسیک ۶

رای اضافه آیکون به منوهای موجود در یک برنامه visual basic بایستی از توابع زیر که موجود در کتابخانه User32 هستند استفاده کنید :
۱ – GetMenu
۲ – GetSubMenu
۳ – GetMenuItemID
۴ – SetMenuIcon
ابتدا یک ماژول ایجاد کنید و توابع فوق را در آن declare کنید :

Public Declare Function GetMenu Lib “user32” (ByVal hwnd As Long) As Long

Public Declare Function GetSubMenu Lib “user32” (ByVal hMenu As Long, ByVal nPos As Long) As Long

Public Declare Function GetMenuItemID Lib “user32” (ByVal hMenu As Long, ByVal nPos As Long) As Long

Public 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

برای قرار دادن یک آیکون در کنار یکی از آیتمهای منو نیاز به handle فرم ، شماره منو ، شماره آیتم مورد نظر و نیز یک picture داریم :

Public Function SetMenuIcon(FrmHwnd As Long, MainMenuNumber As Long, MenuItemNumber As Long, Flags As Long, BitmapUncheckedHandle As Long, BitmapCheckedHandle As Long)x
Dim lngMenu As Long
Dim lngSubMenu As Long
Dim lngMenuItemID As Long
lngMenu = GetMenu(FrmHwnd)x
lngSubMenu = GetSubMenu(lngMenu, MainMenuNumber)x
lngMenuItemID = GetMenuItemID(lngSubMenu, MenuItemNumber)x
,SetMenuIcon = SetMenuItemBitmaps(lngMenu, lngMenuItemID, Flags
BitmapUncheckedHandle, BitmapCheckedHandle)x
End Function

image های مورد نظر خود را با ابعادی حدود ۱۶*۱۶ پیکسل و بصورت PictureBox در فرم خود قرار دهید و خاصیت Visible مربوط به PictureBox ها را False کنید .
سپس منوهای خود را توسط Menu Editor طراحی کنید .

File و Edit منوهای اصلی هستند . پارامتر MainMenuNumber در تابع فوق شماره منوی اصلی است که برای File برابر صفر و برای Edit برابر یک می باشد . پارامتر MenuItemNumber شماره هر آیتم در یک منو است که این پارامتر نیز از صفر شروع می شود .
اکنون برای اضافه کردن سه آیکون به سه آیتم منوی File کدهای زیر را در Form_Load بنویسید :

Private Sub Form_Load()x
SetMenuIcon Me.hwnd, 0, 0, 0, pic1.Picture, pic1.Picture
SetMenuIcon Me.hwnd, 0, 1, 0, pic2.Picture, pic2.Picture
SetMenuIcon Me.hwnd, 0, 2, 0, pic3.Picture, pic3.Picture

  • پسورد: www.mspsoft.com
مسعود شریفی پور

از سال 88 که با برنامه نویسی آشنا شدم خیلی علاقه مند بودم یک بستر آموزشی بسازم در فضای وب و به انتشار آموزش های در این زمینه بپردازم.حالا یک تیم داریم و با قدرت رو به جلو حرکت میکنیم.

نوشته‌های مرتبط

دیدگاه‌ها

*
*

این سایت از اکیسمت برای کاهش هرزنامه استفاده می کند. بیاموزید که چگونه اطلاعات دیدگاه های شما پردازش می‌شوند.

    raminagha پاسخ

    سلام نمیشه نمونه برنامه بزارین

      مسعود شریفی پاسخ

      http://www.mspsoft.com/1390/01/30/%DA%AF%D8%B0%D8%A7%D8%B4%D8%AA%D9%86-%D8%A7%DB%8C%DA%A9%D9%88%D9%86-%D8%AF%D8%B1-%D9%85%D9%86%D9%88%D9%87%D8%A7%DB%8C-%D8%AF%D8%B1-%D9%88%DB%8C%DA%98%D9%88%D8%A7%D9%84-%D8%A8%DB%8C%D8%B3%DB%8C%DA%A9/

کدیشن ! مارکت پروژه های برنامه نویسی راه اندازی شدیه توکه پا بریم ببینم