- Timestamp:
- Jul 13, 2008, 1:47:20 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Forms/ControlEvent.sbp
r542 r544 1 2 1 Public 3 2 Sub AddPaintDC(h As PaintDCEventHandler) … … 23 22 24 23 Public 25 Sub AddClick(h As System.EventHandler)26 If IsNothing(click) Then27 click = h28 Else29 click += h30 End If31 End Sub32 Sub RemoveClick(h As System.EventHandler)33 If Not IsNothing(click) Then34 click -= h35 End If36 End Sub37 Private38 Sub OnClick(e As System.EventArgs)39 If Not IsNothing(click) Then40 click(This, e)41 End If42 End Sub43 Private44 click As System.EventHandler45 46 Public47 Sub AddDoubleClick(h As System.EventHandler)48 If IsNothing(doubleClick) Then49 doubleClick = h50 Else51 doubleClick += h52 End If53 End Sub54 Sub RemoveDoubleClick(h As System.EventHandler)55 If Not IsNothing(doubleClick) Then56 doubleClick -= h57 End If58 End Sub59 Private60 Sub OnDoubleClick(e As System.EventArgs)61 If Not IsNothing(doubleClick) Then62 doubleClick(This, e)63 End If64 End Sub65 Private66 doubleClick As System.EventHandler67 68 Public69 24 Sub AddMouseEnter(h As MouseEventHandler) 70 25 If IsNothing(mouseEnter) Then … … 285 240 Private 286 241 keyUp As KeyEventHandler 287 /*288 Public289 Sub AddKeyPress(h As KeyPressEventHandler)290 If IsNothing(keyPress) Then291 keyPress = h292 Else293 keyPress += h294 End If295 End Sub296 Sub RemoveKeyPress(h As KeyPressEventHandler)297 If Not IsNothing(keyPress) Then298 keyPress -= h299 End If300 End Sub301 Private302 Sub OnKeyPress(e As KeyPressEventArgs)303 If Not IsNothing(keyPress) Then304 keyPress(This, e)305 End If306 End Sub307 Private308 keyPress As KeyPressEventHandler309 242 310 243 Public … … 329 262 Private 330 263 create As CreateEventHandler 331 */ 264
Note:
See TracChangeset
for help on using the changeset viewer.