VB Menu菜单控件-基本应用说明与示例 VB6.0

 VB Menu菜单控件-基本应用说明与示例 VB6.0

  '应用说明与示例
'OBJ.zaMenuEnable     菜单项是否可用
'OBJ.zaMenuVisible 菜单项是否可见
 'OBJ.yfAddMenuItem   添加菜单项
 'OBJ.yfAddLine   '添加分隔条
 'OBJ.yfLoadMenuIcon   '添加图标
 'OBJ.yfPopupMenu '弹出菜单
 'OBJ.maMenuBackColor   '设置菜单背景色
 'OBJ.maSelectBackColor  '设置菜单选中时的背景色
'MenuPopup   事件返回菜单的选择项目
'---------------------------------------------
'OBJ.yfAddMenuItem   '添加菜单
        'OBJ.AddItem (ByVal MenuParenKEY As String, ByVal Key As String, ByVal Caption As String, Optional ByVal ShortcutKEYS As String = "", Optional ByVal Enabled As Boolean = True) As Boolean '添加主菜单
        'MenuParenKEY   '父菜单项  的KEY  ,添加主菜单时必须为空
        'Key            'KEY
        'Caption        '标题
        'ShortcutKEYS    '快捷键
        'Enabled         '是否有效
        'FileIconName    '菜单图标路径
    '示例:
    '--添加1级菜单
        'trfr = "C:\Program Files\Microsoft Visual Studio\VB98\api菜单相关\菜单自绘OVER最终版\icon图标\ssss.ico"
        'MenuControl1.yfAddMenuItem "", "dgg", "dfggsds", "k", True, trfr   '添加1级菜单
        'MenuControl1.yfAddMenuItem "", "dgr", "dfrcv", "g", True, trfr   '添加1级菜单
    ''添加2级菜单
         'MenuControl1.yfAddMenuItem "dgr", "dfdg", "dfdg", "g", True
         'MenuControl1.yfAddMenuItem "dgr", "eew", "fdgwsrw", "y", True
'---------------------------------------------------------------------------------------
'OBJ.yfAddLine   '添加分隔条
   'MenuControl1.yfAddLine "dgr"
'---------------------------------
'Obj.zaMenuEnable 菜单项是否可用
     'MenuControl1.zaMenuEnable(dgg) = true/false
'----------------------------------------
'Obj.zaMenuVisible 菜单项是否可用
     'MenuControl1.zaMenuVisible(dgg) = true/false
'----------------------------------
'Obj.yfLoadMenuIcon   '添加图标
     'trfr = "C:\Program Files\Microsoft Visual Studio\VB98\api菜单相关\菜单自绘OVER最终版\icon图标\ssss.ico"
    ' MenuControl1.yfLoadMenuIcon =trfr
'-----------------------------------------
'Obj.yfPopupMenu   '弹出菜单
       'OBJ.PopupMenu(ByVal OBJ As Object, Optional Caption As Variant) As String
       ' OBJ  与使用弹出菜单的对象绑定
       'Caption  外部提供参数,返回当前选中Caption的值
       'PopupMenu   返回当前选中的KEY
 'MenuPopup   '事件   返回菜单项选择的项目
'MenuShowCike'事件
        'MenuShowCike(ByVal OBJF As Object, ByVal Key As String, ByVal Caption As String, ByVal Level As String)
        'OBJF  返回外部当天所属的对象
        'Key
        'Caption
        ' Level  '返回当前所选菜单的层级

'----------------------------------------------------