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