ورود / ثبت نام
0
0

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

400 بازدید

رای اضافه آیکون به منوهای موجود در یک برنامه 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
آیا این مطلب را می پسندید؟
https://www.mspsoft.com/?p=601
اشتراک گذاری:
واتساپتوییترفیسبوکپینترستلینکدین
مسعود شریفی پور
از سال 88 که با برنامه نویسی آشنا شدم خیلی علاقه مند بودم یک بستر آموزشی بسازم در فضای وب و به انتشار آموزش های در این زمینه بپردازم.حالا یک تیم داریم و با قدرت رو به جلو حرکت میکنیم.
مطالب بیشتر
برچسب ها:

نظرات

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

دیدگاهتان را بنویسید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *