-
Notifications
You must be signed in to change notification settings - Fork 5
/
Copy pathcwIcon.cls
166 lines (126 loc) · 4.2 KB
/
cwIcon.cls
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
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "cwMainIcon"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private mHOffset As Long
Private mVOffset As Long
Private mIconWidth As Long
Private mIconIndex As Integer
Private mIconOpacity As Integer
Private mIconImage As String
Private Sub Class_Initialize()
' Only the main icons
' require this.
'mainIconxo = 0: mainIconyo = 0
End Sub
'---------------------------------------------------------------------------------------
' Property : iconIndex
' Author : beededea
' Date : 17/05/2023
' Purpose :
'---------------------------------------------------------------------------------------
'
Public Property Get iconIndex() As Integer
On Error GoTo iconIndexGet_Error
iconIndex = mIconIndex
On Error GoTo 0
Exit Property
iconIndexGet_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in Property iconIndex of Class Module cwIcon"
End Property
'---------------------------------------------------------------------------------------
' Property : iconIndex
' Author : beededea
' Date : 10/05/2023
' Purpose :
'---------------------------------------------------------------------------------------
'
Public Property Let iconIndex(ByVal newValue As Integer)
On Error GoTo iconIndexLet_Error
If mIconIndex <> newValue Then mIconIndex = newValue Else Exit Property
If mIconIndex = True Then
Else
End If
On Error GoTo 0
Exit Property
iconIndexLet_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in Property iconIndex of Class Module cwIcon"
End Property
'
'---------------------------------------------------------------------------------------
' Property : hOffset
' Author : beededea
' Date : 17/05/2023
' Purpose :
'---------------------------------------------------------------------------------------
'
Public Property Get hOffset() As Long
On Error GoTo hOffsetGet_Error
hOffset = mHOffset
On Error GoTo 0
Exit Property
hOffsetGet_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in Property hOffset of Class Module cwIcon"
End Property
'---------------------------------------------------------------------------------------
' Property : hOffset
' Author : beededea
' Date : 10/05/2023
' Purpose :
'---------------------------------------------------------------------------------------
'
Public Property Let hOffset(ByVal newValue As Long)
On Error GoTo hOffsetLet_Error
If mHOffset <> newValue Then mHOffset = newValue Else Exit Property
If mHOffset = True Then
Else
End If
On Error GoTo 0
Exit Property
hOffsetLet_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in Property hOffset of Class Module cwIcon"
End Property
'
'---------------------------------------------------------------------------------------
' Property : vOffset
' Author : beededea
' Date : 17/05/2023
' Purpose :
'---------------------------------------------------------------------------------------
'
Public Property Get vOffset() As Long
On Error GoTo vOffsetGet_Error
vOffset = mVOffset
On Error GoTo 0
Exit Property
vOffsetGet_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in Property vOffset of Class Module cwIcon"
End Property
'---------------------------------------------------------------------------------------
' Property : vOffset
' Author : beededea
' Date : 10/05/2023
' Purpose :
'---------------------------------------------------------------------------------------
'
Public Property Let vOffset(ByVal newValue As Long)
On Error GoTo vOffsetLet_Error
If mVOffset <> newValue Then mVOffset = newValue Else Exit Property
If mVOffset = True Then
Else
End If
On Error GoTo 0
Exit Property
vOffsetLet_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in Property vOffset of Class Module cwIcon"
End Property