I created a menu on the Form in VB6 through Menu Editor. I want to increase font size of the items and make them BOLD. How can I do this at design time or run time ?How can font size of the menu items in VB form be changed?
Check the source. You will have to create images for each menu item in the text style you want. Or you can use images of anything. Sorry that the answer was from Google Answers.
To change the main menu line, after the line
hwndMainMenu = GetMenu(hwnd)
Just add in another loop
For i = 0 To CUSTOMMENUS - 1
With typMenuInfo
.cbSize = Len(typMenuInfo)
.fType = MFT_BITMAP
.fMask = MIIM_TYPE
.dwTypeData = PicMenus(i).Picture
End With
SetMenuItemInfo hwndMainMenu, i, True, typMenuInfo
Next i
For the sub-menus just change the last value in:
hwndSubMenu = GetSubMenu(hwndMainMenu, 0)
Change the 0 to a 1 or whatever submenu
I think you get the idea.
No comments:
Post a Comment