VB打造超酷个性化菜单（二）(2)

中华网科技 http://tech.china.com 2005-07-01 13:31:33

【进入BBS】【进入聊天室】【 推荐给朋友 】【浏览字号：大 中 小】【关闭窗口】

　　
Public Enum MenuItemSelectFillStyle ‘ 菜单项背景填充风格

ISFS_NONE

ISFS_SOLIDCOLOR

ISFS_HORIZONTALCOLOR

ISFS_VERTICALCOLOR

End Enum

Public Enum MenuItemSelectEdgeStyle ‘ 菜单项边框风格

ISES_SOLID

ISES_DASH

ISES_DOT

ISES_DASDOT

ISES_DASHDOTDOT

ISES_NONE

ISES_SUNKEN

ISES_RAISED

End Enum

Public Enum MenuItemIconStyle ‘ 菜单项图标风格

IIS_NONE

IIS_SUNKEN

IIS_RAISED

IIS_SHADOW

End Enum

Public Enum MenuItemSelectScope ‘ 菜单项高亮条的范围

ISS_TEXT = &H1

ISS_ICON_TEXT = &H2

ISS_LEFTBAR_ICON_TEXT = &H4

End Enum

Public Enum MenuLeftBarStyle ‘ 菜单附加条风格

LBS_NONE

LBS_SOLIDCOLOR

LBS_HORIZONTALCOLOR

LBS_VERTICALCOLOR

LBS_IMAGE

End Enum

Public Enum MenuItemType ‘ 菜单项类型

MIT_STRING = &H0

MIT_CHECKBOX = &H200

MIT_SEPARATOR = &H800

End Enum

Public Enum MenuItemState ‘ 菜单项状态

MIS_ENABLED = &H0

MIS_DISABLED = &H2

MIS_CHECKED = &H8

MIS_UNCHECKED = &H0

End Enum
Public Enum PopupAlign ‘ 菜单弹出对齐方式

POPUP_LEFTALIGN = &H0& ‘ 水平左对齐

POPUP_CENTERALIGN = &H4& ‘ 水平居中对齐

POPUP_RIGHTALIGN = &H8& ‘ 水平右对齐

POPUP_TOPALIGN = &H0& ‘ 垂直上对齐

POPUP_VCENTERALIGN = &H10& ‘ 垂直居中对齐

POPUP_BOTTOMALIGN = &H20& ‘ 垂直下对齐

End Enum

‘ 释放类

Private Sub Class_Terminate()

SetWindowLong frmMenu.hwnd, GWL_WNDPROC, preMenuWndProc

Erase MyItemInfo

DestroyMenu hMenu

End Sub

首页 上页 | 1 | 2 | 3 | 4 | 下页 尾页  共 4 页