|
Last change
on this file since 635 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.
