| Line | |
|---|
| 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.