Class Module

Group: Declaration

Description:
A class module implements an ActiveX Automation object.

Has a set of Public procedures accessible from other macros and modules.

These public symbols are accessed via an object variable.

Public Consts, Types, arrays, fixed length strings are not allowed.

A class module is similar to a object module except that no instance is automatically created.

To create an instance use:

Dim Obj As classname

Set Obj = New classname

See Also: Code Module, Object Module, Uses.

Example:


'A.WWB

'#Uses "File.CLS"

Sub Main

Dim File As New File

File.Attach "C:\AUTOEXEC.BAT"

Debug.Print File.ReadLine

End Sub

 

'File.CLS

'File|New Module|Class Module

'Edit|Properties|Name=File

Option Explicit

Dim FN As Integer

Public Sub Attach(FileName As String)

FN = FreeFile

Open FileName For Input As #FN

End Sub

Public Sub Detach()

If FN <> 0 Then Close #FN

FN = 0

End Sub

Public Function ReadLine() As String

Line Input #FN,ReadLine

End Function

 

Private Sub Class_Initialize()

Debug.Print "Class_Initialize"

End Sub

 

Private Sub Class_Terminate()

Debug.Print "Class_Terminate"

Detach

End Sub