|
Last change
on this file since 499 was 497, checked in by イグトランス (egtra), 17 years ago |
|
インクルードガードとその他不要な前処理定義などの削除
|
|
File size:
882 bytes
|
| Rev | Line | |
|---|
| [11] | 1 | ' Classes/System/Drawing/CharacterRange.ab
|
|---|
| 2 |
|
|---|
| 3 | Class CharacterRange
|
|---|
| 4 | Public
|
|---|
| 5 | Sub CharacterRange(f As Long, l As Long)
|
|---|
| 6 | first = f
|
|---|
| 7 | length = l
|
|---|
| 8 | End Sub
|
|---|
| 9 |
|
|---|
| 10 | Sub CharacterRange()
|
|---|
| 11 | First = 0
|
|---|
| 12 | Length = 0
|
|---|
| 13 | End Sub
|
|---|
| 14 |
|
|---|
| 15 | Function First() As Long
|
|---|
| 16 | Return first
|
|---|
| 17 | End Function
|
|---|
| 18 |
|
|---|
| 19 | Sub First(f As Long)
|
|---|
| 20 | first = f
|
|---|
| 21 | End Sub
|
|---|
| 22 |
|
|---|
| 23 | Function Length() As Long
|
|---|
| [473] | 24 | Return length
|
|---|
| [11] | 25 | End Function
|
|---|
| 26 |
|
|---|
| 27 | Sub Length(l As Long)
|
|---|
| 28 | length = l
|
|---|
| 29 | End Sub
|
|---|
| 30 |
|
|---|
| [473] | 31 | Function Operator ==(c As CharacterRange) As Boolean
|
|---|
| [11] | 32 | Return Equals(c)
|
|---|
| 33 | End Function
|
|---|
| 34 |
|
|---|
| [473] | 35 | Function Operator <>(c As CharacterRange) As Boolean
|
|---|
| [11] | 36 | Return Not Equals(c)
|
|---|
| 37 | End Function
|
|---|
| 38 |
|
|---|
| [473] | 39 | Function Equals(c As CharacterRange) As Boolean
|
|---|
| [11] | 40 | Return first = c.first And length = c.length
|
|---|
| 41 | End Function
|
|---|
| 42 |
|
|---|
| [166] | 43 | Override Function GetHashCode() As Long
|
|---|
| 44 | Return first Xor length
|
|---|
| 45 | End Function
|
|---|
| 46 |
|
|---|
| [11] | 47 | Private
|
|---|
| 48 | first As Long
|
|---|
| 49 | length As Long
|
|---|
| 50 | End Class
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
