clslookup.cls

来自「VB开发的USB卸载助手源码VB开发的USB卸载助手源码VB开发的USB卸载助手」· CLS 代码 · 共 58 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "clsLookup"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
'local variable(s) to hold property value(s)
Private mvarColumn As Integer 'local copy
Private mvarValue As String 'local copy
'local variable(s) to hold property value(s)
Private mvarItemData As Long 'local copy
Public Property Let ItemData(ByVal vData As Long)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.ItemData = 5
    mvarItemData = vData
End Property


Public Property Get ItemData() As Long
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.ItemData
    ItemData = mvarItemData
End Property




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

Public Property Get Value() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Value
    Value = mvarValue
End Property

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


Public Property Get Column() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Column
    Column = mvarColumn
End Property