آکادمی علمی
تصویر دار کردن منوها در visual basic

آیا تا بحال برایتان پیش آمده است که بخواهید برای منوهای خود آیتم‌های تصویری ایجاد کنید. در این مقاله می‌خوام بگم که چطور می‌شه در منوها تصویر قرار داد. شما می‌توانید کدهای زیر را در یک ماژوال کپی کرده و با استفاده از تابع زیر به منوهای خود تصویر اضافه کنید. در زیر توضیحی در مورد چگونگی کار با این تابع را خواهید آموخت.

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


http://gorooh.parsiblog.com/PhotoAlbum/dars2/10e9328c176de902f34269074578f82d.gif

  نوشته شده در روز یکشنبه 87/8/26  ، تعداد


مطالب طلایی - کلیک کنید

آمــار سایت

بازدیــــد امـــــروز : 15
بازدیــــــــد دیـــــــــروز : 59
بازدیـــــــــد کــــــــــل : 253994
تعـــــداد یادداشت هـــــــا : 871
منوی اصلی

صفحـه اول سایـت

تحقیق هــای قابل ویــرایش

پاورپوینت هـای آموزشـی و درسی

طرح درس هـای برتر معلمان

نظرات و پیشنهادات

فهرست موضوعی

انیمیشن درسی و پاورپوینت (11)
آموزش مطالب مفید و کاربردی (6)
پرسش و پاسخ های علمی (4)
طرح درس ویژه دوره ابتدایی (66)
طرح درس ویژه متوسطه اول (10)
طرح درس ویژه متوسطه دوم (640)
تحقیق و مقاله دانش آموزی (17)
مطالب مرتبط با درس و مدرسه (20)
آداب و رسوم زندگی ایده آل (13)
دانستنیهای علمی و عمومی (8)
پروژه و فعالیت های درسی (2)
شگفتـی حیوانات و گیاهــان (4)
طرح درس دوره اول ابتدایی (7)
طرح درس دوره دوم ابتدایی (4)
طرح درس دوره اول متوسطه (7)
پاورپوینت دوره اول ابتدایی (1)
پاورپوینت دوره اول متوسطه (8)
پاورپوینت دوره دوم متوسطه (1)
لیست آخرین مطالب

پاورپوینت درس نهم علوم تجربی ششم
پاورپوینت درس دهم علوم تجربی ششم
پاورپوینت درس اول فصل اول مطالعات اجتماعی ششم
پاورپوینت درس هفتم علوم تجربی ششم
پاورپوینت درس دوازدهم آموزش قرآن پایه هفتم آموزش مفاهیم و امتحان
پاورپوینت درس یازدهم آموزش قرآن پایه هفتم: آموزش مفاهیم و قرآن د
پاورپوینت درس دهم آموزش قرآن پایه هفتم: آموزش مفاهیم و استاد عبد
پاورپوینت درس پانزدهم همسفر ناشناس هدیه سوم دبستان
پاورپوینت درس چهاردهم ام ابیها هدیه سوم دبستان
پاورپوینت درس سیزدهم انتخاب پروانه هدیه سوم دبستان
پاورپوینت درس 11 فارسی پایه یازدهم: یاران عاشق
پاورپوینت درس 10 فارسی پایه یازدهم: بانگ جَرَس
پاورپوینت درس 14 فارسی چهارم دبستان (ابتدایی): ادب از که آموختی؟
پاورپوینت درس 13 فارسی چهارم دبستان (ابتدایی): لطف حق (امید)
پاورپوینت درس 10 پیام های آسمان پایه هفتم ( ستون دین )
[همه عناوین(871)][عناوین آرشیوشده]

http://www.parsiblog.com/PhotoAlbum/riazi/6af5e218c7b634c3d7afd741834f59d2.jpg