自定义控件--xp风格按钮（可设置文字颜色）

        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]  ...  下一页 >> 

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18