摘要： 首先设计好你的菜单然后在窗体上加入一个按钮代码如下:Option ExplicitPrivate Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As LongPrivate Const MIM_BACKGROUND As Long = &H2Private Const MIM_APPLYTOSUBM... 阅读全文