Rev | Line | |
---|
[51] | 1 | Class Object
|
---|
| 2 | Public
|
---|
| 3 |
|
---|
| 4 | ' 2つのオブジェクトが等しいかどうかを判断する
|
---|
| 5 | Virtual Function Equals( ByRef obj As Object ) As Boolean
|
---|
| 6 | If VarPtr( This ) = VarPtr( obj ) Then
|
---|
| 7 | Return True
|
---|
| 8 | Else
|
---|
| 9 | Return False
|
---|
| 10 | End If
|
---|
| 11 | End Function
|
---|
| 12 | Static Function Equals( ByRef objA As Object, ByRef objB As Object ) As Boolean
|
---|
| 13 | Return objA.Equals( objB )
|
---|
| 14 | End Function
|
---|
| 15 |
|
---|
| 16 | ' ハッシュコードを取得する
|
---|
| 17 | Virtual Function GetHashCode() As Long
|
---|
| 18 | ' TODO: 実装
|
---|
| 19 | End Function
|
---|
| 20 |
|
---|
| 21 | ' オブジェクトに関係する文字列を返す
|
---|
| 22 | Virtual Function ToString() As String
|
---|
| 23 | Return "Object"
|
---|
| 24 | End Function
|
---|
| 25 | End Class
|
---|
Note:
See
TracBrowser
for help on using the repository browser.