navbaritem.cls

来自「这个是一个类似qq工具条的第三方空间」· CLS 代码 · 共 154 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "NavBarItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Member0" ,"NavBarItems"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：05/06/11
'描  述：另类垂直菜单条示例
'网  站：http://www.mndsoft.com/
'e-mail：[e-mail]
'OICQ  : 88382850
'****************************************************************************
'local variable(s) to hold property value(s)
Private mvarCaption As String 'local copy
Private mvarUpDown As Boolean 'local copy
Private mvarPos As Integer 'local copy
Private mvarNavBarItems As NavBarItems
'local variable(s) to hold property value(s)
Private mvarVisible As Boolean 'local copy
'local variable(s) to hold property value(s)
Private mvarIndex As Integer 'local copy
'local variable(s) to hold property value(s)
'local variable(s) to hold property value(s)
Private mvarpicNavBarFrame As String 'local copy
Public Property Let picNavBarFrame(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.picNavBarFrame = 5
    mvarpicNavBarFrame = vData
End Property


Public Property Get picNavBarFrame() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: 'TO DO Debug.print X.picNavBarFrame
    picNavBarFrame = mvarpicNavBarFrame
End Property







Public Property Let Index(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Index = 5
    mvarIndex = vData
End Property


Public Property Get Index() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: 'TO DO Debug.print X.Index
    Index = mvarIndex
End Property



Public Property Let Visible(ByVal vData As Boolean)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Visible = 5
    mvarVisible = vData
End Property


Public Property Get Visible() As Boolean
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: 'TO DO Debug.print X.Visible
    Visible = mvarVisible
End Property





Public Property Get NavBarItems() As NavBarItems
    If mvarNavBarItems Is Nothing Then
        Set mvarNavBarItems = New NavBarItems
    End If


    Set NavBarItems = mvarNavBarItems
End Property


Public Property Set NavBarItems(vData As NavBarItems)
    Set mvarNavBarItems = vData
End Property
Private Sub Class_Terminate()
    Set mvarNavBarItems = Nothing
End Sub



Public Property Let Pos(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Pos = 5
    mvarPos = vData
End Property


Public Property Get Pos() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: 'TO DO Debug.print X.Pos
    Pos = mvarPos
End Property



Public Property Let UpDown(ByVal vData As Boolean)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.UpDown = 5
    mvarUpDown = vData
End Property


Public Property Get UpDown() As Boolean
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: 'TO DO Debug.print X.UpDown
    UpDown = mvarUpDown
End Property



Public Property Let Caption(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Caption = 5
    mvarCaption = vData
End Property


Public Property Get Caption() As String
Attribute Caption.VB_UserMemId = 0
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: 'TO DO Debug.print X.Caption
    Caption = mvarCaption
End Property