VB动态自定义菜单项（自绘菜单）
- 作者: 嗫?暁雲?
- 来源: 51数据库
- 2022-08-17
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
推荐阅读
