读书人

使用pen绘制直线后【怎么还原】

发布时间: 2012-03-17 19:06:28 作者: rapoo

使用pen绘制直线后【如何还原】
Public Sub BorderColor(ByRef _Control As Control, ByVal _Color As Color, Optional ByVal PenWidth As Single = 2.0)
Dim g As Graphics = Form1.CreateGraphics
Dim pen As New Pen(_Color, PenWidth)
g.DrawRectangle(pen, New Rectangle(_Control.Location, _Control.Size))
pen.Dispose()
g = Nothing
End Sub
我用这个过程改变了文本框的边框,但是不能还原了。
我试过取原文本框边框的颜色再画上去后 变粗了,也试过设置 Pen(_Color, 粗细参数也不行)

请教如何擦去绘制的直线呢?
或者说文本框边框颜色还原~

[解决办法]
取消就是不再调用这个BorderColor方法,比如在Form1中:
RemoveHandler Me.Paint, AddressOf Form1_Paint ' 取消触发该方法的事件,比如Paint事件,第二个参数是事件的处理方法
Me.Invalidate() '重画界面

读书人网 >VB Dotnet

热点推荐