Object Module

Group

Declaration

Description

An object module implements an object.

  • Has a set of Publicprocedures accessible from other macros and modules.
  • These public symbols are accessed by way of the name of the object module or an object variable.
  • Public Consts, Types, arrays, fixed length strings are not allowed.
  • Has an optional Private Sub Object_Initialize which is called when an instance is created.
  • Has an optional Private Sub Object_Terminate which is called when an instance is destroyed.
  • An object module is similar to a class module except that one instance is automatically created. That instance has the same name as the object module's name.
  • To create additional instances use: 
    Dim Obj As objectname
Set Obj = New objectname

Related Topics 

'A.WWB
'#Language "WWB-COM"
'#Uses "System.OBM"
Sub Main
    Debug.Print Hex(System.Version)
End Sub
 
'System.OBM
'File|New Module|Object Module
'Edit|Properties|Name=System
'#Language "WWB-COM"
Option Explicit
Declare Function GetVersion16 Lib "Kernel" _
    Alias "GetVersion" () As Long
Declare Function GetVersion Lib "Kernel32" () As PortInt
 
Public Function Version() As PortInt
    If Win16 Then
        Version = GetVersion16
    Else
        Version = GetVersion
    End If
End Function