Dim pe As PaintEventArgs = New PaintEventArgs(CreateGraphics(), ClientRectangle)

        OnPaint(pe)

    End Sub

    ''''鼠标进入

    Private Sub my_OnMouseEnter(ByVal sender As Object, ByVal e As EventArgs)

        my_mouseHover = True ''''鼠标移动到其上

        ''''

        Dim pe As PaintEventArgs = New PaintEventArgs(CreateGraphics(), ClientRectangle)

        OnPaint(pe)

    End Sub

    ''''鼠标移动开

    Private Sub my_OnMouseLeave(ByVal sender As Object, ByVal e As EventArgs)

        my_mouseHover = False ''''鼠标移动开

        ''''

        Dim pe As PaintEventArgs = New PaintEventArgs(CreateGraphics(), ClientRectangle)

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