VB6的Office颜色菜单 - 开源研究系列文章

         今天把VB6里面的源码开源了( VB6各类源码开源 - 开源研究系列文章 )，这次把原来VB6里面的一个菜单控件进行介绍，需要的网友请下载安装：

         1、看使用截图：

         运行时截图：

 

         设计时截图：

 

         2、Office2007颜色设置：

         用记事本打开frm文件，找到下列信息，替换掉即可实现上述颜色设置：

 

Begin tssOfficeMenu.OfficeMenu Menu

      Left            =   -1000

      Top             =   6990

      _ExtentX        =   847

      _ExtentY        =   847

      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}

         Name            =   "宋体"

         Size            =   9

         Charset         =   0

         Weight          =   400

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      DrawingStyle    =   4

      GradientSideBar =   2

      ArrowColor      =   5783090

      BackgroundColor =   16448250

      BorderColor     =   8816262

      CheckFillColor  =   9823231

      ArrowColor      =   5783090

      BackgroundColor =   16448250

      BorderColor     =   8816262

      CheckFillColor  =   9823231

      CheckMarkColor  =   3577330

      DisabledIconTintColor=   15652549

      IconShadowColor =   13619147

      MenuBarBackgroundColor=   16767935

      MenuBarTextColor=   0

      SelectedArrowColor=   5783090

      SelectedCheckBorderColor=   3577330

      SelectedCheckFillColor=   9823231

      SelectedMenuBorderColor=   10145500

      SelectedMenuFillColor=   6477823

      SelectedMenuTextColor=   0

      SeparatorColor  =   12961221

      SideBarGradientColor1=   16773091

      SideBarGradientColor2=   16765873

      TopLevelGradientColor1=   16707555

      TopLevelGradientColor2=   15645072

      SideBarColor    =   15658729

      UseCustomColors =   -1  'True

      GradientSelection=   0   'False

      GradientSelectionHorz=   -1  'True

   End

         上面介绍了一个漂亮自定义菜单的使用，需要的请下载安装。

         https://files.cnblogs.com/files/lzhdim/OfficeMenu.rar