?? navbaritem.cls
字號:
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"
'****************************************************************************
'人人為我,我為人人
'枕善居漢化收藏整理
'發(fā)布日期:05/06/11
'描 述:另類垂直菜單條示例
'網(wǎng) 站:http://www.mndsoft.com/
'e-mail:mnd@mndsoft.com
'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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -