source: trunk/Include/system/enum.sbp@ 362

Last change on this file since 362 was 288, checked in by dai, 17 years ago

いくつかタイプミスを修正。
エラーになるコードを排除、
enumクラスのビット演算メソッドをコメントアウト(仕様未確定なため)。

File size: 1.2 KB
Line 
1Class EnumBase
2Protected
3 value As Long
4 lpszName As LPTSTR
5Public
6 Sub EnumBase(value As Long,lpszName As LPTSTR)
7 This.value = value
8 This.lpszName = lpszName
9 End Sub
10
11 Sub ~EnumBase()
12 End Sub
13
14 Override Function ToString() As String
15 Return New String( lpszName )
16 End Function
17
18 Sub Copy(obj As EnumBase)
19 This.value = obj.value
20 This.lpszName = obj.lpszName
21 End Sub
22
23 Function Operator() As Long
24 Return This.value
25 End Function
26
27 Function Operator == (value As Long) As Boolean
28 If This.value = value Then
29 Return True
30 Else
31 Return False
32 End If
33 End Function
34
35 Function Operator == (enumBase As EnumBase) As Boolean
36 If This.value = enumBase.value Then
37 Return True
38 Else
39 Return False
40 End If
41 End Function
42/*
43 Function Operator or (enumBase As EnumBase) As EnumBase
44 Return New EnumBase(This.value Or enumBase.value)
45 End Function
46
47 Function Operator and (enumBase As EnumBase) As EnumBase
48 Return New EnumBase(This.value And enumBase.value)
49 End Function
50
51 Function Operator xor (enumBase As EnumBase) As EnumBase
52 Return New EnumBase(This.value Xor enumBase.value)
53 End Function
54*/
55End Class
Note: See TracBrowser for help on using the repository browser.