VB动态自定义菜单项（自绘菜单）

2015/11/23 52481

清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

?
1
2
3
4
5
6
7
Public Sub SetMenuBar(ByVal clr As Long)
  Dim MyMenu As MENUINFO
  MyMenu.cbSize = Len(MyMenu)
  MyMenu.fMask = MIM_BACKGROUND Or MIM_APPLYTOSUBMENUS
  MyMenu.hbrBack = CreateSolidBrush(clr)
  SetMenuInfo GetMenu(Form1.hwnd), MyMenu
End Sub