word.cls

字符串分解程序

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "Word"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"No"
Option Explicit

'local variable(s) to hold property value(s)
Private mvarValue As String 'local copy
Public Property Get Length() As Long
Attribute Length.VB_Description = "Returns the length of the word"
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Length
    Length = Len(mvarValue)
End Property
Public Property Get LowerCase() As String
Attribute LowerCase.VB_Description = "Returns the all lower case value of the word"
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.LowerCase
    LowerCase = LCase(mvarValue)
End Property
Public Property Get UpperCase() As String
Attribute UpperCase.VB_Description = "Returns the all upper cased value of the word"
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.UpperCase
    UpperCase = UCase(mvarValue)
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
Attribute Value.VB_Description = "Returns the value of this word"
Attribute Value.VB_UserMemId = 0
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Value
    Value = mvarValue
End Property