ImportsSystemDrawing
ImportsSystemDrawingDrawingD
ImportsSystemCollections
ImportsSystemCollectionsGeneric
ImportsSystemComponentModel
ImportsSystemDrawingImaging
PublicClassSplitLine
SubNew()
此调用是Windows窗体设计器所必需的
InitializeComponent()
在InitializeComponent()调用之后添加任何初始化
SetStyle(ControlStylesAllPaintingInWmPaintTrue)
SetStyle(ControlStylesResizeRedrawTrue)
SetStyle(ControlStylesUserPaintTrue)
SetStyle(ControlStylesOptimizedDoubleBufferTrue)
EndSub
Dim_colorAsColor=ColorRed
_
PublicPropertyMyColor()AsColor
Get
Return_color
EndGet
Set(ByValvalueAsColor)
_color=value
EndSet
EndProperty
ProtectedOverridesSubOnPaint(ByValeAsSystemWindowsFormsPaintEventArgs)
MyBaseOnPaint(e)
DimbrAsNewSolidBrush(MyColor)
DimgAsGraphics=eGraphics
DimpathAsNewGraphicsPath
DimpathAsNewGraphicsPath
DimpathAsNewGraphicsPath
pathAddLine(NewPoint()NewPoint())
pathAddLine(NewPoint()NewPoint())
pathAddLine(NewPoint()NewPoint())
pathCloseAllFigures()
pathAddLine(NewPoint(MeWidth)NewPoint(MeWidth))
pathAddLine(NewPoint(MeWidth)NewPoint(MeWidth))
pathAddLine(NewPoint(MeWidth)NewPoint(MeWidth))
pathCloseAllFigures()
pathAddRectangle(NewRectangle(MeWidth))
pathCloseAllFigures()
DimpenAsNewPen(ColorBlack)
gFillPath(brpath)
gFillPath(brpath)
gFillPath(brpath)
DimreAsNewRegion(path)
reUnion(path)
reUnion(path)
MeRegion=re
EndSub
EndClass
