Mega Code Archive

 

Categories / VisualBasic Script / Data Type Functions

 

Creating and Using a Class Module

'Class Module: Employee Public FirstName As String Public LastName As String Public Function Speak()      Speak = FirstName & " " & LastName End Function 'test Module Sub SingleInstance()     Dim oPerson As Employee     Set oPerson = New Employee     oPerson.FirstName = "A"     oPerson.LastName = "Balter"     msgBox oPerson.Speak End Sub ''Property Let and Get Adding Properties the Right Way Private mstrFirstName As String Private mstrLastName As String Public Property Get FirstName() As String     FirstName = mstrFirstName End Property Public Property Let FirstName(ByVal strNewValue As String)     mstrFirstName = UCase(strNewValue) End Property Public Property Get LastName() As String     LastName = mstrLastName End Property Public Property Let LastName(ByVal strNewValue As String)     mstrLastName = UCase(strNewValue) End Property 'Setting Values with Property Set Private mobjCustomer As Employee Public Property Set GoodEmployee(objCustomer As Employee)      Set mobjCustomer = objCustomer End Property 'Class Module: Employee Public FirstName As String Public LastName As String Public Function Speak()      Speak = FirstName & " " & LastName End Function 'test Module Sub SingleInstance()     Dim oPerson As Employee     Set oPerson = New Employee     oPerson.FirstName = "A"     oPerson.LastName = "Balter"     msgBox oPerson.Speak End Sub 'Creating Multiple Class Instances Sub MultipleInstance()     Dim oPerson1 As Employee     Dim oPerson2 As Employee     Set oPerson1 = New Employee     Set oPerson2 = New Employee     oPerson1.FirstName = "A"     oPerson1.LastName = "B"     Debug.Print oPerson1.Speak     oPerson2.FirstName = "Dan"     oPerson2.LastName = "B"     Debug.Print oPerson2.Speak End Sub 'Define Class Initialize event method and Terminate event method Public FirstName As String Public LastName As String Public Function Speak()      Speak = FirstName & " " & LastName End Function 'test Module Sub SingleInstance()     Dim oPerson As Employee     Set oPerson = New Employee     oPerson.FirstName = "A"     oPerson.LastName = "Balter"     msgBox oPerson.Speak End Sub 'Use the Initialize event to perform tasks such as establishing a connection to a database and initializing variables. Private Sub Class_Initialize()     FirstName = "A"     LastName = "Balter" End Sub 'You generally use the Terminate event to perform the class's cleanup tasks. Private Sub Class_Terminate()     rstCustomer.Close     Set rstCustomer = Nothing End Sub