readme.txt

来自「VB下开发Windows XP风格的控件」· 文本 代码 · 共 30 行

XP风格菜单使用说明。

    在工程中包含BasFlatMenu.bas,CXPMenu.cls,modDeclares.bas,modXPMenu.bas,这四个文件，然后在Form_Load和Form_Unload中分别加上如下语句。
    窗口中的菜单用VB自带的菜单设计器设计。

Private Sub Form_Load()

    SetFlatMenu True '显示平面菜单(非Win NT平台有效)
    MakeXPMenu Me, 2, RGB(255, 100, 0), RGB(0, 200, 255) '显示XP菜单

End Sub

Private Sub Form_Unload(Cancel As Integer)

    FreeXPMenu Me '释放XP菜单
    SetFlatMenu False '释放平面菜单(非Win NT平台有效)

End Sub

其中SetFlatMenu为设置/取消平面菜单，用法很简单，如上。

MakeXPMenu为设置XP样式菜单，有四个参数，说明如下。
frm As Form, ----------------含有菜单的窗口。
ByVal style As Long, --------菜单的样式，1为标准XP样式菜单，2为梯度颜色菜单，目前只支持这两种样式。
ByVal leftcolor As Long, ----当菜单样式为梯度颜色菜单时菜单条左边的颜色。
ByVal rightcolor As Long, ---当菜单样式为梯度颜色菜单时菜单条右边的颜色。
注意：当菜单样式为1时将忽略后两个参数，可以将其赋值为0。

FreeXPMenu为取消XP样式菜单，参数是含有菜单的窗口。