清华大佬耗费三个月吐血整理的几百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 |