VB打造超酷个性化菜单(五)[7]

[入库:2005年8月18日] [更新:2007年3月24日]

本文简介:选择自 goodname008 的 blog

public const bf_diagonal_endbottomright = (bf_diagonal or bf_bottom or bf_right)

' npenstyle to createpen
public const ps_dash = 1                            ' 画笔类型:虚线 (nwidth必须是1)         -------
public const ps_dashdot = 3                         ' 画笔类型:点划线 (nwidth必须是1)       _._._._
public const ps_dashdotdot = 4                      ' 画笔类型:点-点-划线 (nwidth必须是1)   _.._.._
public const ps_dot = 2                             ' 画笔类型:点线 (nwidth必须是1)         .......
public const ps_solid = 0                           ' 画笔类型:实线                         _______


' -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- api 类型声明 -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

public type rect
    left as long
    top as long
    right as long
    bottom as long
end type

public type drawitemstruct
    ctltype as long
    ctlid as long
    itemid as long
    itemaction as long
    itemstate as long
    hwnditem as long
    hdc as long
    rcitem as rect
    itemdata as long
end type

public type menuiteminfo
    cbsize as long
    fmask as long
    ftype as long
    fstate as long
    wid as long
    hsubmenu as long
    hbmpchecked as long
    hbmpunchecked as long
    dwitemdata as long
    dwtypedata as string
    cch as long
end type

public type measureitemstruct
    ctltype as long
    ctlid as long
    itemid as long
    itemwidth as long
    itemheight as long
    itemdata as long
end type

public type size
    cx as long
    cy as long
end type


' 自定义菜单项数据结构
public type mymenuiteminfo
    itemicon as stdpicture
    itemalias as string
    itemtext as string
    itemtype as menuitemtype
    itemstate as menuitemstate
end type

' 菜单相关结构
private measureinfo as measureitemstruct
private drawinfo as drawitemstruct

public hmenu as long
public premenuwndproc as long
public myiteminfo() as mymenuiteminfo

' 菜单类属性
public barwidth as long                             ' 菜单附加条宽度
public barstyle as menuleftbarstyle                 ' 菜单附加条风格
public barimage as stdpicture                       ' 菜单附加条图像

本文关键:VB XP 个性化 风格 菜单
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top