|
Last change
on this file since 551 was 551, checked in by イグトランス (egtra), 16 years ago |
|
Buttonの追加。WM_COMMANDから子のClickイベントを発生させる仕組みの追加など。
|
|
File size:
457 bytes
|
| Rev | Line | |
|---|
| [545] | 1 | Public
|
|---|
| [551] | 2 | Sub AddQueryClose(h As FormClosingHandler)
|
|---|
| [545] | 3 | If IsNothing(queryClose) Then
|
|---|
| 4 | queryClose = h
|
|---|
| 5 | Else
|
|---|
| 6 | queryClose += h
|
|---|
| 7 | End If
|
|---|
| 8 | End Sub
|
|---|
| [551] | 9 | Sub RemoveQueryClose(h As FormClosingHandler)
|
|---|
| [545] | 10 | If Not IsNothing(queryClose) Then
|
|---|
| 11 | queryClose -= h
|
|---|
| 12 | End If
|
|---|
| 13 | End Sub
|
|---|
| [551] | 14 | Protected
|
|---|
| 15 | Sub OnQueryClose(e As FormClosingArgs)
|
|---|
| [545] | 16 | If Not IsNothing(queryClose) Then
|
|---|
| 17 | queryClose(This, e)
|
|---|
| 18 | End If
|
|---|
| 19 | End Sub
|
|---|
| 20 | Private
|
|---|
| [551] | 21 | queryClose As FormClosingHandler
|
|---|
| [545] | 22 |
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
