Height = 23
Width = 75
End Sub
Protected Overrides Sub OnPaint(ByVal pevent As System.Windows.Forms.PaintEventArgs)
''''pevent.ClipRectangle指在其中绘制的矩形,即使用父控件的背景色来画这个矩形按钮
pevent.Graphics.FillRectangle(New SolidBrush(Me.Parent.BackColor), pevent.ClipRectangle)
If (Enabled = False) Then
''''画不可用状态
DrawDisableButton(pevent.Graphics)
ElseIf (my_mouseDown) Then ''''画鼠标按下状态
DrawMouseDownButton(pevent.Graphics)
ElseIf (my_mouseHover) Then ''''画鼠标移动到其上状态
DrawMouseHoverButton(pevent.Graphics)
ElseIf (Focused) Then ''''有焦点,但鼠标未移动到其上
 
上一页 [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