Last change
on this file since 338 was 338, checked in by dai, 17 years ago |
静的リンクライブラリ、デバッグ情報の内部形式をバイナリにした(コンパイル時間が短縮されました)。
デリゲートのベースを実装中(まだ動きません)
|
File size:
573 bytes
|
Rev | Line | |
---|
[338] | 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.