vb實現菜單右對齊

傳統的窗口菜單都是左對齊，是否可以右對齊，或窗口菜單左右分開呢？

當然可以！

新建一個工程，添加菜單（本例需要3列），添加四個按鈕控件，一個時間控件

添加以下代碼：

Option Explicit

Private 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
clearcase/" target="_blank" >cch As Long

End Type

Private Declare Function SetMenuItemInfo Lib "user32" Alias "SetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal

bool As Boolean, lpcMenuItemInfo As menuItemInfo) As Long
Private Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal

b As Long, lpMenuItemInfo As menuItemInfo) As Long
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Public a As Integer

Private Sub Command1_Click()

Unload Me
Me.Show

Dim my_menuItemInfo As menuItemInfo
Dim return_value As Long

With my_menuItemInfo

.cbSize = 44
.fMask = 16
.cch = 128
.dwTypeData = Space$(128)

End With

return_value = GetMenuItemInfo(GetMenu(Me.hwnd), 3, 1, my_menuItemInfo)

my_menuItemInfo.fType = 16384
return_value = SetMenuItemInfo(GetMenu(Me.hwnd), 3, 1, my_menuItemInfo)

DrawMenuBar GetMenu(Me.hwnd)
Me.Refresh
Me.WindowState = 1
End Sub

Private Sub Command2_Click()

Dim my_menuItemInfo As menuItemInfo
Dim return_value As Long

With my_menuItemInfo

.cbSize = 44
.fMask = 16
.cch = 128
.dwTypeData = Space$(128)

End With

return_value = GetMenuItemInfo(GetMenu(Me.hwnd), 0, 1, my_menuItemInfo)

my_menuItemInfo.fType = 16384
return_value = SetMenuItemInfo(GetMenu(Me.hwnd), 0, 1, my_menuItemInfo)

DrawMenuBar GetMenu(Me.hwnd)
Me.Refresh
Me.WindowState = 1
End Sub

Private Sub Command3_Click()
Unload Me
Me.Show
Dim my_menuItemInfo As menuItemInfo
Dim return_value As Long

With my_menuItemInfo

.cbSize = 44
.fMask = 16
.cch = 128
.dwTypeData = Space$(128)

End With

return_value = GetMenuItemInfo(GetMenu(Me.hwnd), 1, 1, my_menuItemInfo)

my_menuItemInfo.fType = 16384
return_value = SetMenuItemInfo(GetMenu(Me.hwnd), 1, 1, my_menuItemInfo)

DrawMenuBar GetMenu(Me.hwnd)
Me.Refresh
Me.WindowState = 1

End Sub

Private Sub Command4_Click()
Unload Me
Me.Show


Dim my_menuItemInfo As menuItemInfo
Dim return_value As Long

With my_menuItemInfo

.cbSize = 44
.fMask = 16
.cch = 128
.dwTypeData = Space$(128)

End With

return_value = GetMenuItemInfo(GetMenu(Me.hwnd), 2, 1, my_menuItemInfo)

my_menuItemInfo.fType = 16384
return_value = SetMenuItemInfo(GetMenu(Me.hwnd), 2, 1, my_menuItemInfo)

DrawMenuBar GetMenu(Me.hwnd)
Me.Refresh
Me.WindowState = 1

End Sub



Private Sub Timer1_Timer()

If Me.WindowState = 1 Then Me.WindowState = 0

End Sub

運行一下，如何？

注意四個按鈕不同的一個參數，那表示左邊有幾個菜單項

原文轉自：http://www.anti-gravitydesign.com