![]() '(New SolidBrush(Color.FromArgb(100,, , )), rc) If pParent.HighLightMode = iHighliteMode.GlassAndBackGround Then Protected Overrides Sub OnPaintBackground(ByVal pevent As ) ' pe.Graphics.DrawEllipse(New Pen(pParent.SelectedColor, 2), irc) 'pe.Graphics.DrawEllipse(New Pen(pParent.SelectedColor, 1), irc1) Pe.Graphics.FillEllipse(New SolidBrush(Color.FromArgb(100,, , )), rc)ĭim br As New (rc1, Color.FromArgb(180, 255, 255, 255), Color.FromArgb(80, 255, 255, 255), )ĮlseIf pParent.HighLightMode = iHighliteMode.BackGroundOnly Thenĭim rc1 As New Rectangle(-2, -2, 100, 100)ĮlseIf pParent.HighLightMode = iHighliteMode.GlassOnly ThenĮlseIf pParent.HighLightMode = iHighliteMode.GlassAndBackGround Then If pParent.HighLightMode = iHighliteMode.GlassAndForeGround Then ![]() Paint Method: Protected Overrides Sub OnPaint(ByVal pe As ) Gp.AddEllipse(0, 0, Me.Width - 3, Me.Height - 3) Sub New(ByVal pnParent As ThumbControl, ByVal Path As String, Optional ByVal DataString As String = "") I am trying to paint a picture box as circle and this is my code: Private WithEvents pParent As ThumbControl
0 Comments
Leave a Reply. |