Last change
on this file since 574 was 559, checked in by イグトランス (egtra), 16 years ago |
UI_Sampleの追加。イベントのコメントアウト解除。Form.abからテスト部分を除去。Application.DoEventsを実装。MakeControlEventHandlerを静的メンバのイベント対応へ。WindowsExceptionの追加。
|
File size:
441 bytes
|
Rev | Line | |
---|
[551] | 1 | Public
|
---|
[559] | 2 | Static Sub AddThreadExit(h As Handler)
|
---|
[551] | 3 | If IsNothing(threadExit) Then
|
---|
| 4 | threadExit = h
|
---|
| 5 | Else
|
---|
| 6 | threadExit += h
|
---|
| 7 | End If
|
---|
| 8 | End Sub
|
---|
[559] | 9 | Static Sub RemoveThreadExit(h As Handler)
|
---|
[551] | 10 | If Not IsNothing(threadExit) Then
|
---|
| 11 | threadExit -= h
|
---|
| 12 | End If
|
---|
| 13 | End Sub
|
---|
| 14 | Protected
|
---|
[559] | 15 | Static Sub OnThreadExit(e As Args)
|
---|
[551] | 16 | If Not IsNothing(threadExit) Then
|
---|
| 17 | threadExit(This, e)
|
---|
| 18 | End If
|
---|
| 19 | End Sub
|
---|
| 20 | Private
|
---|
[559] | 21 | Static threadExit As Handler
|
---|
[551] | 22 |
|
---|
Note:
See
TracBrowser
for help on using the repository browser.