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