Line | |
---|
1 | Class EnumBase
|
---|
2 | Protected
|
---|
3 | m_Value As Long
|
---|
4 | Public
|
---|
5 | Sub EnumBase(value As Long)
|
---|
6 | m_Value=value
|
---|
7 | End Sub
|
---|
8 |
|
---|
9 | Sub ~EnumBase()
|
---|
10 | End Sub
|
---|
11 |
|
---|
12 | 'Abstract Function ToString() As String
|
---|
13 |
|
---|
14 | Sub Copy(ByRef obj As EnumBase)
|
---|
15 | m_Value=obj.m_Value
|
---|
16 | End Sub
|
---|
17 |
|
---|
18 | Function Operator() As Long
|
---|
19 | Return m_Value
|
---|
20 | End Function
|
---|
21 |
|
---|
22 | Function Operator == (Value As Long) As Boolean
|
---|
23 | If m_Value = Value Then
|
---|
24 | Return True
|
---|
25 | Else
|
---|
26 | Return False
|
---|
27 | End If
|
---|
28 | End Function
|
---|
29 |
|
---|
30 | Function Operator or (ByRef value As EnumBase) As EnumBase
|
---|
31 | Return New EnumBase(m_Value Or value.m_Value)
|
---|
32 | End Function
|
---|
33 |
|
---|
34 | Function Operator and (ByRef value As EnumBase) As EnumBase
|
---|
35 | Return New EnumBase(m_Value And value.m_Value)
|
---|
36 | End Function
|
---|
37 |
|
---|
38 | Function Operator not (ByRef value As EnumBase) As EnumBase
|
---|
39 | Return New EnumBase(Not m_Value)
|
---|
40 | End Function
|
---|
41 |
|
---|
42 | Function Operator xor (ByRef value As EnumBase) As EnumBase
|
---|
43 | Return New EnumBase(m_Value Xor value.m_Value)
|
---|
44 | End Function
|
---|
45 | End Class
|
---|
Note:
See
TracBrowser
for help on using the repository browser.