bas_menuset.bas

来自「生产计划管理等信息 可以查询计划完成情况等」· BAS 代码 · 共 48 行

Attribute VB_Name = "Bas_MenuSet"
Option Explicit

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

Declare Function SetMenuItemInfo Lib "user32" Alias "SetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal bool As Boolean, lpcMenuItemInfo As menuItemInfo) As Long
Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As Long, lpMenuItemInfo As menuItemInfo) As Long
Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

Public a As Integer


Sub DrawMenu(f As Form)

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(f.hwnd), 3, 1, my_menuItemInfo) ' 修改 2 的值就可以

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

DrawMenuBar GetMenu(f.hwnd)

f.Refresh

End Sub