|
傳統的窗口菜單都是左對齊,是否可以右對齊,或窗口菜單左右分開呢?
當然可以!
新建一個工程,添加菜單(本例需要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 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
運行一下,如何?
注意四個按鈕不同的一個參數,那表示左邊有幾個菜單項
|