-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathM_OS__Facade.def
105 lines (100 loc) · 3.08 KB
/
M_OS__Facade.def
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Compare Database
Option Explicit
Private m_System As clsOS_System
Private m_Time As clsOS_Time
'Private m_Delay As clsOS_Delay
'Private m_Folder As clsOS_Folder
'Private m_File As clsOS_File
'Private m_Screen As clsOS_Screen
'Private m_Windows As clsOS_Windows
'Private m_AD As clsOS_ActiveDirectory
'Private m_Printers As clsOS_Printers
'Private m_Printer As clsOS_Printer
'Private m_Registry As clsOS_Registry
'Private m_INI As clsOS_Ini
Public Property Get System() As clsOS_System
If m_System Is Nothing Then Set m_System = New clsOS_System
Set System = m_System
End Property
Public Property Get Time() As clsOS_Time
If m_Time Is Nothing Then Set m_Time = New clsOS_Time
Set Time = m_Time
End Property
'Public Property Get Delay() As clsOS_Delay
' If m_Delay Is Nothing Then Set m_Delay = New clsOS_Delay
' Set Delay = m_Delay
'End Property
'
'
'Public Property Get Folder() As clsOS_Folder
' If m_Folder Is Nothing Then Set m_Folder = New clsOS_Folder
' Set Folder = m_Folder
'End Property
'
'Public Property Get File() As clsOS_File
' If m_File Is Nothing Then Set m_File = New clsOS_File
' Set File = m_File
'End Property
'
'Public Property Get Screen() As clsOS_Screen
' If m_Screen Is Nothing Then Set m_Screen = New clsOS_Screen
' Set Screen = m_Screen
'End Property
'
'Public Property Get Windows() As clsOS_Windows
' If m_Windows Is Nothing Then Set m_Windows = New clsOS_Windows
' Set Windows = m_Windows
'End Property
'
'Public Property Get ActiveDirectory() As clsOS_ActiveDirectory
' If m_AD Is Nothing Then Set m_AD = New clsOS_ActiveDirectory
' Set ActiveDirectory = m_AD
'End Property
'
'Public Property Get Printers() As Collection
' If m_Printers Is Nothing Then Set m_Printers = New clsOS_Printers
' Set Printers = m_Printers.AllPrinterNames
'End Property
'
'Public Property Get Printer() As clsOS_Printer
' If m_Printer Is Nothing Then Set m_Printer = New clsOS_Printer
' Set Printer = m_Printer
'End Property
'
'Public Property Get PrinterInfo(ByVal DeviceName As String) As clsOS_PrinterInfo
' Set PrinterInfo = New clsOS_PrinterInfo
' PrinterInfo.DeviceName = DeviceName
'End Property
'
'Public Property Get Registry() As clsOS_Registry
' If m_Registry Is Nothing Then Set m_Registry = New clsOS_Registry
' Set Registry = m_Registry
'End Property
'
'Public Property Get INI() As clsOS_Ini
' If m_INI Is Nothing Then Set m_INI = New clsOS_Ini
' Set INI = m_INI
'End Property
'
'Public Property Get Cursor() As clsOS_Cursor
' Set Cursor = New clsOS_Cursor
'End Property
'
'Public Property Get FTP() As clsFTP
' Set FTP = New clsFTP
'End Property
Private Sub Class_Terminate()
Set m_System = Nothing
' Set m_Time = Nothing
' Set m_Delay = Nothing
' Set m_Folder = Nothing
' Set m_File = Nothing
' Set m_Screen = Nothing
' Set m_AD = Nothing
' Set m_Registry = Nothing
' Set m_INI = Nothing
End Sub