Rev | Line | |
---|
[545] | 1 | Public
|
---|
| 2 | Sub AddQueryClose(h As FormClosingEventHandler)
|
---|
| 3 | If IsNothing(queryClose) Then
|
---|
| 4 | queryClose = h
|
---|
| 5 | Else
|
---|
| 6 | queryClose += h
|
---|
| 7 | End If
|
---|
| 8 | End Sub
|
---|
| 9 | Sub RemoveQueryClose(h As FormClosingEventHandler)
|
---|
| 10 | If Not IsNothing(queryClose) Then
|
---|
| 11 | queryClose -= h
|
---|
| 12 | End If
|
---|
| 13 | End Sub
|
---|
| 14 | Private
|
---|
| 15 | Sub OnQueryClose(e As FormClosingEventArgs)
|
---|
| 16 | If Not IsNothing(queryClose) Then
|
---|
| 17 | queryClose(This, e)
|
---|
| 18 | End If
|
---|
| 19 | End Sub
|
---|
| 20 | Private
|
---|
| 21 | queryClose As FormClosingEventHandler
|
---|
| 22 |
|
---|
Note:
See
TracBrowser
for help on using the repository browser.