|
Last change
on this file since 338 was 338, checked in by dai, 18 years ago |
|
静的リンクライブラリ、デバッグ情報の内部形式をバイナリにした（コンパイル時間が短縮されました）。
デリゲートのベースを実装中（まだ動きません）
|
|
File size:
573 bytes
|
| Line | |
|---|
| 1 | Namespace System
|
|---|
| 2 |
|
|---|
| 3 | Class _SimpleDelegate
|
|---|
| 4 | Public
|
|---|
| 5 | object As Object
|
|---|
| 6 | methodPtr As VoidPtr
|
|---|
| 7 |
|
|---|
| 8 | Sub _SimpleDelegate( object As Object, methodPtr As VoidPtr )
|
|---|
| 9 | This.object = object
|
|---|
| 10 | This.methodPtr = methodPtr
|
|---|
| 11 | End Sub
|
|---|
| 12 | End Class
|
|---|
| 13 |
|
|---|
| 14 | Class DelegateBase
|
|---|
| 15 | Protected
|
|---|
| 16 | simpleDelegates As System.Collections.Generic.List<_SimpleDelegate>
|
|---|
| 17 |
|
|---|
| 18 | Public
|
|---|
| 19 | Sub DelegateBase()
|
|---|
| 20 | simpleDelegates = New System.Collections.Generic.List<_SimpleDelegate>()
|
|---|
| 21 | End Sub
|
|---|
| 22 | Sub Add( sd As System._SimpleDelegate )
|
|---|
| 23 | simpleDelegates.Add( sd )
|
|---|
| 24 | End Sub
|
|---|
| 25 | Public
|
|---|
| 26 | End Class
|
|---|
| 27 |
|
|---|
| 28 |
|
|---|
| 29 | End Namespace
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
