| ; DrawContainFocusButton(pevent.Graphics) 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] ... 下一页 >> |