CodeItBetter Programming Another VB Programming Blog

'Forms - How to Right align a menu

Option Explicit
 
'Add a Command Button and a Menu to your form.

Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Public Const MIIM_TYPE = &H10
Public Const MFT_RIGHTJUSTIFY = &H4000
Public Const MFT_STRING = &H0&
Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As Boolean, lpMenuItemInfo As MENUITEMINFO) As Long
Declare Function SetMenuItemInfo Lib "user32" Alias "SetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal bool As Boolean, lpcMenuItemInfo As MENUITEMINFO) As Long
Type MENUITEMINFO
    cbSize As Long
    fMask As Long
    fType As Long
    fState As Long
    wID As Long
    hSubMenu As Long
    hbmpChecked As Long
    hbmpUnchecked As Long
    dwItemData As Long
    dwTypeData As String
    cch As Long
End Type
 
Private Sub Command1_Click()
    Dim MnuInfo As MENUITEMINFO
    mnuH& = GetMenu(Me.hwnd)
    MnuInfo.cbSize = Len(MnuInfo)
    MnuInfo.fMask = MIIM_TYPE
    'If you want to align to right only few menus, and leave the rest in left side,
    'Replace the '0' below and the '0' two lines above the 'End Sub' with the number
    'of menus you want to leave in the left side.
    myTemp& = GetMenuItemInfo(mnuH&, 0, True, MnuInfo)
    MnuInfo.fType = MFT_RIGHTJUSTIFY Or MFT_STRING
    'Replace all 'MenuCaption' below with the caption of the first menu from left.
    MnuInfo.cch = Len("MenuCaption")
    MnuInfo.dwTypeData = "MenuCaption"
    MnuInfo.cbSize = Len(MnuInfo)
    myTemp& = SetMenuItemInfo(mnuH&, 0, True, MnuInfo)
    myTemp& = DrawMenuBar(Me.hwnd)
End Sub