Programming Reference Manual

Class Module

 
Syntax
 
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:
 
'color: #000000; font-family: Courier New, monospace; font-size: 13px; line-height: 1.3;'>	[<span style='color: #0000FF; font-weight: bold;'>Sub</span> | <span style='color: #0000FF; font-weight: bold;'>Function</span> | <span style='color: #0000FF; font-weight: bold;'>Property</span> [<span style='color: #004080; font-weight: bold;'>Get</span>|<span style='color: #004080; font-weight: bold;'>Let</span>|<span style='color: #004080; font-weight: bold;'>Set</span>]] procname ...<br>	Attribute procname.VB_UserMemId = 0<br>	Attribute procname.VB_HelpID = int<br>	Attribute procname.VB_Description = <span style='color: #8B0000;'>&quot;text&quot;</span><br>	    ...<br>	<span style='color: #0000FF; font-weight: bold;'>End</span> [<span style='color: #0000FF; font-weight: bold;'>Sub</span> | <span style='color: #0000FF; font-weight: bold;'>Function</span> | <span style='color: #0000FF; font-weight: bold;'>Property</span>]<br><span style='color: #FFFFFF;'>&nbsp;</span><br></pre>
See Also
Code Module, Object Module, Uses.
Example
 
'A.BAS
'#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