´òÃÃ
ÃÃ~ÃÃÃëÃë½Ãû¸öÃÃÃâ:
ÃÃ<<
VB.NETÃëÃÃ
¾Âµä>>ûÃéÃÃ,µÃà®Â¶Ã¾ÃõÃÃÃê<ÃÃü¼¼Ãõ>,ÃÃû¶ ôúÃëÃÃÃâÃùµÃ:
Public Class GraphicsCircle
Inherits GraphicsItem
Public Overrides Sub Draw(ByVal graphics As _
System.Drawing.Graphics)
'creat a new pen...
Dim brush As New SolidBrush(Me.Color)
'draw the circle
graphics.FillEllipse(brush, MeRectangle)
End Sub
End Class
Ãð´ÃÃÃéÃÃõµÃÃäÃë½øÃ¥µÃà ±ºò,
VB³öÃÃÃâÃùµÃ´ÃÃóÃáþ:
1.sub¡°Draw¡±²»ÃÃÃùÃ÷ê¡°Overrides ¡±£¬ÃòêÃü²»ÃÃô»ù class Ãõà sub¡£
2.¡°Color¡±²»Ãá°WroxPaint.GraphicsCircl e.GraphicsCircle¡±µÃ³Ãñ¡£
3.Ãû³Ã¡°MeRectangle¡±Ã´ÃùÃ÷¡£
ÃëÃÃÃõô½â¾ö~~ûûÃÃ