Else ''''一般情况下

            DrawNormalButton(pevent.Graphics)

        End If

        ''''写文本

        WriteText(pevent.Graphics)

    End Sub

    ''''鼠标按下的状态处理

    Private Sub my_OnMouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)

        my_mouseDown = True ''''鼠标按下

    End Sub

    ''''鼠标松开状态的处理

    Private Sub my_OnMouseUp(ByVal sender As Object, ByVal e As MouseEventArgs)

        my_mouseDown = False ''''鼠标松开

        ''''重新绘制控件时发生 Paint 事件。PaintEventArgs 指定绘制控件所用的 Graphics

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ...  下一页 >>