- Timestamp:
- Jul 13, 2008, 2:29:17 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Forms/ControlEvent.sbp
r473 r542 1 Public 2 /*! 3 @brief PaintDCイベントハンドラを追加する 4 */ 1 2 Public 5 3 Sub AddPaintDC(h As PaintDCEventHandler) 6 4 If IsNothing(paintDC) Then 7 paintDC = New PaintDCEventHandler 8 End If 9 paintDC += h 10 End Sub 11 /*! 12 @brief PaintDCイベントハンドラを削除する 13 */ 5 paintDC = h 6 Else 7 paintDC += h 8 End If 9 End Sub 14 10 Sub RemovePaintDC(h As PaintDCEventHandler) 15 11 If Not IsNothing(paintDC) Then … … 17 13 End If 18 14 End Sub 19 Protected 20 /*! 21 @brief ウィンドウの描画が必要なときに呼び出されます。 22 */ 23 Virtual Sub OnPaintDC(e As PaintDCEventArgs) 15 Private 16 Sub OnPaintDC(e As PaintDCEventArgs) 24 17 If Not IsNothing(paintDC) Then 25 18 paintDC(This, e) … … 30 23 31 24 Public 32 /*! 33 @brief Clickイベントハンドラを追加する 34 */ 35 Sub AddClick(h As EventHandler) 25 Sub AddClick(h As System.EventHandler) 36 26 If IsNothing(click) Then 37 click = New EventHandler 38 End If 39 click += h 40 End Sub 41 /*! 42 @brief Clickイベントハンドラを削除する 43 */ 44 Sub RemoveClick(h As EventHandler) 27 click = h 28 Else 29 click += h 30 End If 31 End Sub 32 Sub RemoveClick(h As System.EventHandler) 45 33 If Not IsNothing(click) Then 46 34 click -= h 47 35 End If 48 36 End Sub 49 Protected 50 /*! 51 @brief クリックされたときに呼び出されます。 52 */ 53 Virtual Sub OnClick(e As EventArgs) 37 Private 38 Sub OnClick(e As System.EventArgs) 54 39 If Not IsNothing(click) Then 55 40 click(This, e) … … 57 42 End Sub 58 43 Private 59 click As EventHandler 60 61 Public 62 /*! 63 @brief DoubleClickイベントハンドラを追加する 64 */ 65 Sub AddDoubleClick(h As EventHandler) 44 click As System.EventHandler 45 46 Public 47 Sub AddDoubleClick(h As System.EventHandler) 66 48 If IsNothing(doubleClick) Then 67 doubleClick = New EventHandler 68 End If 69 doubleClick += h 70 End Sub 71 /*! 72 @brief DoubleClickイベントハンドラを削除する 73 */ 74 Sub RemoveDoubleClick(h As EventHandler) 49 doubleClick = h 50 Else 51 doubleClick += h 52 End If 53 End Sub 54 Sub RemoveDoubleClick(h As System.EventHandler) 75 55 If Not IsNothing(doubleClick) Then 76 56 doubleClick -= h 77 57 End If 78 58 End Sub 79 Protected 80 /*! 81 @brief ダブルクリックされたときに呼び出されます。 82 */ 83 Virtual Sub OnDoubleClick(e As EventArgs) 59 Private 60 Sub OnDoubleClick(e As System.EventArgs) 84 61 If Not IsNothing(doubleClick) Then 85 62 doubleClick(This, e) … … 87 64 End Sub 88 65 Private 89 doubleClick As EventHandler 90 91 Public 92 /*! 93 @brief MouseDownイベントハンドラを追加する 94 */ 66 doubleClick As System.EventHandler 67 68 Public 69 Sub AddMouseEnter(h As MouseEventHandler) 70 If IsNothing(mouseEnter) Then 71 mouseEnter = h 72 Else 73 mouseEnter += h 74 End If 75 End Sub 76 Sub RemoveMouseEnter(h As MouseEventHandler) 77 If Not IsNothing(mouseEnter) Then 78 mouseEnter -= h 79 End If 80 End Sub 81 Private 82 Sub OnMouseEnter(e As MouseEventArgs) 83 If Not IsNothing(mouseEnter) Then 84 mouseEnter(This, e) 85 End If 86 End Sub 87 Private 88 mouseEnter As MouseEventHandler 89 90 Public 91 Sub AddMouseMove(h As MouseEventHandler) 92 If IsNothing(mouseMove) Then 93 mouseMove = h 94 Else 95 mouseMove += h 96 End If 97 End Sub 98 Sub RemoveMouseMove(h As MouseEventHandler) 99 If Not IsNothing(mouseMove) Then 100 mouseMove -= h 101 End If 102 End Sub 103 Private 104 Sub OnMouseMove(e As MouseEventArgs) 105 If Not IsNothing(mouseMove) Then 106 mouseMove(This, e) 107 End If 108 End Sub 109 Private 110 mouseMove As MouseEventHandler 111 112 Public 113 Sub AddMouseHover(h As MouseEventHandler) 114 If IsNothing(mouseHover) Then 115 mouseHover = h 116 Else 117 mouseHover += h 118 End If 119 End Sub 120 Sub RemoveMouseHover(h As MouseEventHandler) 121 If Not IsNothing(mouseHover) Then 122 mouseHover -= h 123 End If 124 End Sub 125 Private 126 Sub OnMouseHover(e As MouseEventArgs) 127 If Not IsNothing(mouseHover) Then 128 mouseHover(This, e) 129 End If 130 End Sub 131 Private 132 mouseHover As MouseEventHandler 133 134 Public 135 Sub AddMouseLeave(h As MouseEventHandler) 136 If IsNothing(mouseLeave) Then 137 mouseLeave = h 138 Else 139 mouseLeave += h 140 End If 141 End Sub 142 Sub RemoveMouseLeave(h As MouseEventHandler) 143 If Not IsNothing(mouseLeave) Then 144 mouseLeave -= h 145 End If 146 End Sub 147 Private 148 Sub OnMouseLeave(e As MouseEventArgs) 149 If Not IsNothing(mouseLeave) Then 150 mouseLeave(This, e) 151 End If 152 End Sub 153 Private 154 mouseLeave As MouseEventHandler 155 156 Public 95 157 Sub AddMouseDown(h As MouseEventHandler) 96 158 If IsNothing(mouseDown) Then 97 mouseDown = New MouseEventHandler 98 End If 99 mouseDown += h 100 End Sub 101 /*! 102 @brief MouseDownイベントハンドラを削除する 103 */ 159 mouseDown = h 160 Else 161 mouseDown += h 162 End If 163 End Sub 104 164 Sub RemoveMouseDown(h As MouseEventHandler) 105 165 If Not IsNothing(mouseDown) Then … … 107 167 End If 108 168 End Sub 109 Protected 110 /*! 111 @brief マウスボタンが押されたときに呼び出されます。 112 */ 113 Virtual Sub OnMouseDown(e As MouseEventArgs) 169 Private 170 Sub OnMouseDown(e As MouseEventArgs) 114 171 If Not IsNothing(mouseDown) Then 115 172 mouseDown(This, e) … … 120 177 121 178 Public 122 /*! 123 @brief MouseUpイベントハンドラを追加する 124 */ 179 Sub AddMouseClick(h As MouseEventHandler) 180 If IsNothing(mouseClick) Then 181 mouseClick = h 182 Else 183 mouseClick += h 184 End If 185 End Sub 186 Sub RemoveMouseClick(h As MouseEventHandler) 187 If Not IsNothing(mouseClick) Then 188 mouseClick -= h 189 End If 190 End Sub 191 Private 192 Sub OnMouseClick(e As MouseEventArgs) 193 If Not IsNothing(mouseClick) Then 194 mouseClick(This, e) 195 End If 196 End Sub 197 Private 198 mouseClick As MouseEventHandler 199 200 Public 201 Sub AddMouseDoubleClick(h As MouseEventHandler) 202 If IsNothing(mouseDoubleClick) Then 203 mouseDoubleClick = h 204 Else 205 mouseDoubleClick += h 206 End If 207 End Sub 208 Sub RemoveMouseDoubleClick(h As MouseEventHandler) 209 If Not IsNothing(mouseDoubleClick) Then 210 mouseDoubleClick -= h 211 End If 212 End Sub 213 Private 214 Sub OnMouseDoubleClick(e As MouseEventArgs) 215 If Not IsNothing(mouseDoubleClick) Then 216 mouseDoubleClick(This, e) 217 End If 218 End Sub 219 Private 220 mouseDoubleClick As MouseEventHandler 221 222 Public 125 223 Sub AddMouseUp(h As MouseEventHandler) 126 224 If IsNothing(mouseUp) Then 127 mouseUp = New MouseEventHandler 128 End If 129 mouseUp += h 130 End Sub 131 /*! 132 @brief MouseUpイベントハンドラを削除する 133 */ 225 mouseUp = h 226 Else 227 mouseUp += h 228 End If 229 End Sub 134 230 Sub RemoveMouseUp(h As MouseEventHandler) 135 231 If Not IsNothing(mouseUp) Then … … 137 233 End If 138 234 End Sub 139 Protected 140 /*! 141 @brief マウスボタンが離されたときに呼び出されます。 142 */ 143 Virtual Sub OnMouseUp(e As MouseEventArgs) 235 Private 236 Sub OnMouseUp(e As MouseEventArgs) 144 237 If Not IsNothing(mouseUp) Then 145 238 mouseUp(This, e) … … 149 242 mouseUp As MouseEventHandler 150 243 244 Public 245 Sub AddKeyDown(h As KeyEventHandler) 246 If IsNothing(keyDown) Then 247 keyDown = h 248 Else 249 keyDown += h 250 End If 251 End Sub 252 Sub RemoveKeyDown(h As KeyEventHandler) 253 If Not IsNothing(keyDown) Then 254 keyDown -= h 255 End If 256 End Sub 257 Private 258 Sub OnKeyDown(e As KeyEventArgs) 259 If Not IsNothing(keyDown) Then 260 keyDown(This, e) 261 End If 262 End Sub 263 Private 264 keyDown As KeyEventHandler 265 266 Public 267 Sub AddKeyUp(h As KeyEventHandler) 268 If IsNothing(keyUp) Then 269 keyUp = h 270 Else 271 keyUp += h 272 End If 273 End Sub 274 Sub RemoveKeyUp(h As KeyEventHandler) 275 If Not IsNothing(keyUp) Then 276 keyUp -= h 277 End If 278 End Sub 279 Private 280 Sub OnKeyUp(e As KeyEventArgs) 281 If Not IsNothing(keyUp) Then 282 keyUp(This, e) 283 End If 284 End Sub 285 Private 286 keyUp As KeyEventHandler 287 /* 288 Public 289 Sub AddKeyPress(h As KeyPressEventHandler) 290 If IsNothing(keyPress) Then 291 keyPress = h 292 Else 293 keyPress += h 294 End If 295 End Sub 296 Sub RemoveKeyPress(h As KeyPressEventHandler) 297 If Not IsNothing(keyPress) Then 298 keyPress -= h 299 End If 300 End Sub 301 Private 302 Sub OnKeyPress(e As KeyPressEventArgs) 303 If Not IsNothing(keyPress) Then 304 keyPress(This, e) 305 End If 306 End Sub 307 Private 308 keyPress As KeyPressEventHandler 309 310 Public 311 Sub AddCreate(h As CreateEventHandler) 312 If IsNothing(create) Then 313 create = h 314 Else 315 create += h 316 End If 317 End Sub 318 Sub RemoveCreate(h As CreateEventHandler) 319 If Not IsNothing(create) Then 320 create -= h 321 End If 322 End Sub 323 Private 324 Sub OnCreate(e As CreateEventArgs) 325 If Not IsNothing(create) Then 326 create(This, e) 327 End If 328 End Sub 329 Private 330 create As CreateEventHandler 331 */
Note:
See TracChangeset
for help on using the changeset viewer.
