>x = class1.property1 >y = class2.property1 > >a = class1.property2 >b = class2.property2 >>....
Option Explicit
'local variable(s) to hold property value(s)
Private mvarTargetDir As String 'local copy
Private mvarTargetFile As String 'local copy
Private mvarSourceDir As String 'local copy
Public Sub MyActionExecution()
End Sub
Public Property Let SourceDir(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.SourceDir = 5
mvarSourceDir = vData
End Property
Public Property Get SourceDir() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.SourceDir
SourceDir = mvarSourceDir
End Property
Public Property Let TargetFile(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.TargetFile = 5
mvarTargetFile = vData
End Property
Public Property Get TargetFile() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.TargetFile
TargetFile = mvarTargetFile
End Property
Public Property Let TargetDir(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.TargetDir = 5
mvarTargetDir = vData
End Property
Public Property Get TargetDir() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.TargetDir
TargetDir = mvarTargetDir
End PropertyÉric Moreau, MCPD, Visual Developer - Visual Basic MVP
Conseiller Principal / Senior Consultant
Moer inc.
http://www.emoreau.com