Thursday, November 11, 2010

How can font size of the menu items in VB form be changed?

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