Last change
on this file since 695 was 635, checked in by NoWest, 16 years ago |
名前空間への入れ忘れの修正と
ConsoleクラスのResetColorのバグへ対応。
正しい動作かご確認ください。
|
File size:
951 bytes
|
Rev | Line | |
---|
[11] | 1 | ' Classes/System/Drawing/CharacterRange.ab
|
---|
| 2 |
|
---|
[635] | 3 | Namespace System
|
---|
| 4 | Namespace Drawing
|
---|
| 5 |
|
---|
[11] | 6 | Class CharacterRange
|
---|
| 7 | Public
|
---|
| 8 | Sub CharacterRange(f As Long, l As Long)
|
---|
| 9 | first = f
|
---|
| 10 | length = l
|
---|
| 11 | End Sub
|
---|
| 12 |
|
---|
| 13 | Sub CharacterRange()
|
---|
| 14 | First = 0
|
---|
| 15 | Length = 0
|
---|
| 16 | End Sub
|
---|
| 17 |
|
---|
| 18 | Function First() As Long
|
---|
| 19 | Return first
|
---|
| 20 | End Function
|
---|
| 21 |
|
---|
| 22 | Sub First(f As Long)
|
---|
| 23 | first = f
|
---|
| 24 | End Sub
|
---|
| 25 |
|
---|
| 26 | Function Length() As Long
|
---|
[473] | 27 | Return length
|
---|
[11] | 28 | End Function
|
---|
| 29 |
|
---|
| 30 | Sub Length(l As Long)
|
---|
| 31 | length = l
|
---|
| 32 | End Sub
|
---|
| 33 |
|
---|
[473] | 34 | Function Operator ==(c As CharacterRange) As Boolean
|
---|
[11] | 35 | Return Equals(c)
|
---|
| 36 | End Function
|
---|
| 37 |
|
---|
[473] | 38 | Function Operator <>(c As CharacterRange) As Boolean
|
---|
[11] | 39 | Return Not Equals(c)
|
---|
| 40 | End Function
|
---|
| 41 |
|
---|
[473] | 42 | Function Equals(c As CharacterRange) As Boolean
|
---|
[11] | 43 | Return first = c.first And length = c.length
|
---|
| 44 | End Function
|
---|
| 45 |
|
---|
[166] | 46 | Override Function GetHashCode() As Long
|
---|
| 47 | Return first Xor length
|
---|
| 48 | End Function
|
---|
| 49 |
|
---|
[11] | 50 | Private
|
---|
| 51 | first As Long
|
---|
| 52 | length As Long
|
---|
| 53 | End Class
|
---|
[635] | 54 |
|
---|
| 55 | End Namespace
|
---|
| 56 | End Namespace
|
---|
Note:
See
TracBrowser
for help on using the repository browser.