source: trunk/Include/Classes/ActiveBasic/Windows/UI/Forms/ControlEvent.sbp@ 473

Public
    /*!
    @brief PaintDCイベントハンドラを追加する
    */
    Sub AddPaintDC(h As PaintDCEventHandler)
        If IsNothing(paintDC) Then
            paintDC = New PaintDCEventHandler
        End If
        paintDC += h
    End Sub
    /*!
    @brief PaintDCイベントハンドラを削除する
    */
    Sub RemovePaintDC(h As PaintDCEventHandler)
        If Not IsNothing(paintDC) Then
            paintDC -= h
        End If
    End Sub
Protected
    /*!
    @brief ウィンドウの描画が必要なときに呼び出されます。
    */
    Virtual Sub OnPaintDC(e As PaintDCEventArgs)
        If Not IsNothing(paintDC) Then
            paintDC(This, e)
        End If
    End Sub
Private
    paintDC As PaintDCEventHandler

Public
    /*!
    @brief Clickイベントハンドラを追加する
    */
    Sub AddClick(h As EventHandler)
        If IsNothing(click) Then
            click = New EventHandler
        End If
        click += h
    End Sub
    /*!
    @brief Clickイベントハンドラを削除する
    */
    Sub RemoveClick(h As EventHandler)
        If Not IsNothing(click) Then
            click -= h
        End If
    End Sub
Protected
    /*!
    @brief クリックされたときに呼び出されます。
    */
    Virtual Sub OnClick(e As EventArgs)
        If Not IsNothing(click) Then
            click(This, e)
        End If
    End Sub
Private
    click As EventHandler

Public
    /*!
    @brief DoubleClickイベントハンドラを追加する
    */
    Sub AddDoubleClick(h As EventHandler)
        If IsNothing(doubleClick) Then
            doubleClick = New EventHandler
        End If
        doubleClick += h
    End Sub
    /*!
    @brief DoubleClickイベントハンドラを削除する
    */
    Sub RemoveDoubleClick(h As EventHandler)
        If Not IsNothing(doubleClick) Then
            doubleClick -= h
        End If
    End Sub
Protected
    /*!
    @brief ダブルクリックされたときに呼び出されます。
    */
    Virtual Sub OnDoubleClick(e As EventArgs)
        If Not IsNothing(doubleClick) Then
            doubleClick(This, e)
        End If
    End Sub
Private
    doubleClick As EventHandler

Public
    /*!
    @brief MouseDownイベントハンドラを追加する
    */
    Sub AddMouseDown(h As MouseEventHandler)
        If IsNothing(mouseDown) Then
            mouseDown = New MouseEventHandler
        End If
        mouseDown += h
    End Sub
    /*!
    @brief MouseDownイベントハンドラを削除する
    */
    Sub RemoveMouseDown(h As MouseEventHandler)
        If Not IsNothing(mouseDown) Then
            mouseDown -= h
        End If
    End Sub
Protected
    /*!
    @brief マウスボタンが押されたときに呼び出されます。
    */
    Virtual Sub OnMouseDown(e As MouseEventArgs)
        If Not IsNothing(mouseDown) Then
            mouseDown(This, e)
        End If
    End Sub
Private
    mouseDown As MouseEventHandler

Public
    /*!
    @brief MouseUpイベントハンドラを追加する
    */
    Sub AddMouseUp(h As MouseEventHandler)
        If IsNothing(mouseUp) Then
            mouseUp = New MouseEventHandler
        End If
        mouseUp += h
    End Sub
    /*!
    @brief MouseUpイベントハンドラを削除する
    */
    Sub RemoveMouseUp(h As MouseEventHandler)
        If Not IsNothing(mouseUp) Then
            mouseUp -= h
        End If
    End Sub
Protected
    /*!
    @brief マウスボタンが離されたときに呼び出されます。
    */
    Virtual Sub OnMouseUp(e As MouseEventArgs)
        If Not IsNothing(mouseUp) Then
            mouseUp(This, e)
        End If
    End Sub
Private
    mouseUp As MouseEventHandler