Rev | Line | |
---|
[1] | 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
|
---|
[201] | 8 |
|
---|
[1] | 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
|
---|
[131] | 17 |
|
---|
[1] | 18 | Function Operator() As Long
|
---|
| 19 | Return m_Value
|
---|
| 20 | End Function
|
---|
[26] | 21 |
|
---|
[201] | 22 | Function Operator == (Value As Long) As Boolean
|
---|
[26] | 23 | If m_Value = Value Then
|
---|
[201] | 24 | Return True
|
---|
[26] | 25 | Else
|
---|
[201] | 26 | Return False
|
---|
[26] | 27 | End If
|
---|
| 28 | End Function
|
---|
[131] | 29 |
|
---|
| 30 | Function Operator or (ByRef value As EnumBase) As EnumBase
|
---|
[201] | 31 | Return New EnumBase(m_Value Or value.m_Value)
|
---|
[131] | 32 | End Function
|
---|
| 33 |
|
---|
| 34 | Function Operator and (ByRef value As EnumBase) As EnumBase
|
---|
[201] | 35 | Return New EnumBase(m_Value And value.m_Value)
|
---|
[131] | 36 | End Function
|
---|
[201] | 37 |
|
---|
[131] | 38 | Function Operator not (ByRef value As EnumBase) As EnumBase
|
---|
[201] | 39 | Return New EnumBase(Not m_Value)
|
---|
[131] | 40 | End Function
|
---|
[201] | 41 |
|
---|
[131] | 42 | Function Operator xor (ByRef value As EnumBase) As EnumBase
|
---|
[201] | 43 | Return New EnumBase(m_Value Xor value.m_Value)
|
---|
[131] | 44 | End Function
|
---|
[201] | 45 | End Class
|
---|
Note:
See
TracBrowser
for help on using the repository browser.