See the look of the menu's? I like it, but how do I make my program look like that? Is is possible in VB?
Printable View
See the look of the menu's? I like it, but how do I make my program look like that? Is is possible in VB?
Add Bitmaps to Menu itemsVB Code:
'change menu back color to white Private Enum MENUINFO_STYLES MNS_NOCHECK = &H80000000 MNS_MODELESS = &H40000000 MNS_DRAGDROP = &H20000000 MNS_AUTODISMISS = &H10000000 MNS_NOTIFYBYPOS = &H8000000 MNS_CHECKORBMP = &H4000000 End Enum Private Enum MENUINFO_MASKS MIM_MAXHEIGHT = &H1 MIM_BACKGROUND = &H2 MIM_HELPID = &H4 MIM_MENUDATA = &H8 MIM_STYLE = &H10 MIM_APPLYTOSUBMENUS = &H80000000 End Enum Private Type MENUINFO cbSize As Long fMask As MENUINFO_MASKS dwStyle As MENUINFO_STYLES cyMax As Long hbrBack As Long dwContextHelpID As Long dwMenuData As Long End Type Private Declare Function GetMenuInfo Lib "user32" (ByVal hMenu As Long, mi As MENUINFO) As Long Private Declare Function SetMenuInfo Lib "user32" (ByVal hMenu As Long, mi As MENUINFO) As Long Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long Private Sub Form_Load() Dim MyMenu As MENUINFO MyMenu.cbSize = Len(MyMenu) MyMenu.fMask = MIM_BACKGROUND Or MIM_APPLYTOSUBMENUS MyMenu.hbrBack = CreateSolidBrush(vbWhite) SetMenuInfo GetMenu(Me.hwnd), MyMenu End Sub
there's a dll called somthing like SmartMenuXP
which will give your apps XP style menus
Which would be this here http://www.vbsmart.com/library/smart...martmenuxp.htmQuote:
Originally posted by DeadEyes
there's a dll called somthing like SmartMenuXP
which will give your apps XP style menus
:)
http://www.vbsmart.com/images/smartmenuxp_007.gif
There's a few third party activex controls which'll give you this effect I think I right in saying there's one for download at vbaccelerator.com...
Well done Tom, I'm far too lazy to go looking up links for people :)
:pQuote:
Originally posted by DeadEyes
Well done Tom, I'm far too lazy to go looking up links for people :)