Syntax
| |
---|---|
Description
| An object module implements an ActiveX Automation object.
• It has a set of Public procedures accessible from other macros and modules.
• These public symbols are accessed via the name of the object module or an object variable.
• Public Consts, Types, arrays, fixed length strings are not allowed.
• 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
|
See Also
| |
Example
| 'A.BAS
'#Uses "System.OBM"
Sub Main
Debug.Print Hex(System.Version)
End Sub
'System.OBM
'File|New Module|Object Module
'Edit|Properties|Name=System
Option Explicit
Declare Function GetVersion16 Lib "Kernel" _
Alias "GetVersion" () As Long
Declare Function GetVersion32 Lib "Kernel32" _
Alias "GetVersion" () As Long
Public Function Version() As Long
If Win16 Then
Version = GetVersion16
Else
Version = GetVersion32
End If
End Function
|