Quater Cirlce

[Question]

Is there a way to display 4 quarter circles (half a semi circle) in
different colors? Is there a way to make quarter circle radiobutton?

[Mythran]

<Qu******@aol.comwrote in message
news:ol********************************@4ax.com...

Is there a way to display 4 quarter circles (half a semi circle) in
different colors? Is there a way to make quarter circle radiobutton?

Not sure if this is what you meant, but I'll post it just in case...

Create a new form and add the following:

Private mPen1 As Pen
Private mPen2 As Pen
Private mPen3 As Pen
Private mPen4 As Pen
Private mPenWidth As Integer
Private mBackBuffer As Bitmap
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
If mBackBuffer Is Nothing
mBackBuffer = _
New Bitmap(Me.ClientSize.Width, Me.ClientSize.Height)
End If

Dim canvas As Graphics = Graphics.FromImage(mBackBuffer)

' Draw the background.
canvas.Clear(Me.BackColor)

Dim rect As Rectangle = Me.ClientRectangle

' Draw the top-left quarter-circle.
canvas.DrawArc(mPen1, rect, 180, 90)

' Draw the top-right quarter-circle.
canvas.DrawArc(mPen2, rect, 270, 90)

' Draw the bottom-right quarter-circle.
canvas.DrawArc(mPen3, rect, 0, 90)

' Draw the bottom-left quarter-circle.
canvas.DrawArc(mPen4, rect, 90, 90)

' Cleanup.
canvas.Dispose()

' Copy the back buffer to the screen.
e.Graphics.DrawImageUnscaled(mBackBuffer, 0, 0)
End Sub

Protected Overrides Sub OnPaintBackground( _
ByVal pevent As System.Windows.Forms.PaintEventArgs _
)
' Don't paint the background.
End Sub

Protected Overrides Sub OnResize(ByVal e As System.EventArgs)
Me.Invalidate()
If Not mBackBuffer Is Nothing
mBackBuffer.Dispose()
mBackBuffer = Nothing
End If

MyBase.OnResize(e)
End Sub

Private Sub Form_Load( _
ByVal sender As Object, _
ByVal e As System.EventArgs _
) Handles MyBase.Load
mPenWidth = 5
mPen1 = New Pen(Color.Red, mPenWidth)
mPen2 = New Pen(Color.Blue, mPenWidth)
mPen3 = New Pen(Color.Green, mPenWidth)
mPen4 = New Pen(Color.Yellow, mPenWidth)
End Sub

This will draw a full circle on the form, each quarter circle is a different
color and are each drawn separately...this also follows powell's
double-buffering example as well for a smoother drawing experience :)

HTH,
Mythran

[Question]

Definitely a start...Thanks I would like the quarters solid not as
arc. Any ideas?

On Wed, 24 Jan 2007 11:09:58 -0800, "Mythran" <ki********@hotmail.com>
wrote:

>Private mPen1 As Pen
Private mPen2 As Pen
Private mPen3 As Pen
Private mPen4 As Pen
Private mPenWidth As Integer
Private mBackBuffer As Bitmap
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
If mBackBuffer Is Nothing
mBackBuffer = _
New Bitmap(Me.ClientSize.Width, Me.ClientSize.Height)
End If

Dim canvas As Graphics = Graphics.FromImage(mBackBuffer)

' Draw the background.
canvas.Clear(Me.BackColor)

Dim rect As Rectangle = Me.ClientRectangle

' Draw the top-left quarter-circle.
canvas.DrawArc(mPen1, rect, 180, 90)

' Draw the top-right quarter-circle.
canvas.DrawArc(mPen2, rect, 270, 90)

' Draw the bottom-right quarter-circle.
canvas.DrawArc(mPen3, rect, 0, 90)

' Draw the bottom-left quarter-circle.
canvas.DrawArc(mPen4, rect, 90, 90)

' Cleanup.
canvas.Dispose()

' Copy the back buffer to the screen.
e.Graphics.DrawImageUnscaled(mBackBuffer, 0, 0)
End Sub

Protected Overrides Sub OnPaintBackground( _
ByVal pevent As System.Windows.Forms.PaintEventArgs _
)
' Don't paint the background.
End Sub

Protected Overrides Sub OnResize(ByVal e As System.EventArgs)
Me.Invalidate()
If Not mBackBuffer Is Nothing
mBackBuffer.Dispose()
mBackBuffer = Nothing
End If

MyBase.OnResize(e)
End Sub

Private Sub Form_Load( _
ByVal sender As Object, _
ByVal e As System.EventArgs _
) Handles MyBase.Load
mPenWidth = 5
mPen1 = New Pen(Color.Red, mPenWidth)
mPen2 = New Pen(Color.Blue, mPenWidth)
mPen3 = New Pen(Color.Green, mPenWidth)
mPen4 = New Pen(Color.Yellow, mPenWidth)
End Sub

[Andrew Morton]

On Wed, 24 Jan 2007 11:09:58 -0800, "Mythran" <ki********@hotmail.com>

wrote:

<snip>

> Dim canvas As Graphics = Graphics.FromImage(mBackBuffer)

<snip>

> ' Draw the top-left quarter-circle.
canvas.DrawArc(mPen1, rect, 180, 90)

Qu******@aol.com wrote:

Definitely a start...Thanks I would like the quarters solid not as
arc. Any ideas?

I would have thought you would have gone straight to the search in VS.NET
help, looked up DrawArc, found the Graphics.DrawArc method in the results
pane (you're looking for things in the .NET framework Location) and
double-clicked it, then clicked the "Sync Contents" button (looks like a
blue left-right arrow in the Web toolbar) and looked at the other methods in
the Graphics section, where you would have found the DrawPie method.

HTH

Andrew

[Question]

I did. I used the draw arc but again it was hollow. I tired to
increase the width of of the pen but it created a funny shape Then I
tired to create a loop that would keep making the arc smaller and
that created smaller pies but I could not postion the correctly so
that the filled the hole so i am stuck

On Thu, 25 Jan 2007 10:43:16 -0000, "Andrew Morton"
<ak*@in-press.co.uk.invalidwrote:

>On Wed, 24 Jan 2007 11:09:58 -0800, "Mythran" <ki********@hotmail.com>
wrote:

<snip>

>> Dim canvas As Graphics = Graphics.FromImage(mBackBuffer)

<snip>

>> ' Draw the top-left quarter-circle.
canvas.DrawArc(mPen1, rect, 180, 90)

Qu******@aol.com wrote:

>Definitely a start...Thanks I would like the quarters solid not as
arc. Any ideas?

I would have thought you would have gone straight to the search in VS.NET
help, looked up DrawArc, found the Graphics.DrawArc method in the results
pane (you're looking for things in the .NET framework Location) and
double-clicked it, then clicked the "Sync Contents" button (looks like a
blue left-right arrow in the Web toolbar) and looked at the other methods in
the Graphics section, where you would have found the DrawPie method.

HTH

Andrew

[Question]

In previous post I meant to say drawpie not drawarc

On Thu, 25 Jan 2007 10:43:16 -0000, "Andrew Morton"
<ak*@in-press.co.uk.invalidwrote:

>On Wed, 24 Jan 2007 11:09:58 -0800, "Mythran" <ki********@hotmail.com>
wrote:

<snip>

>> Dim canvas As Graphics = Graphics.FromImage(mBackBuffer)

<snip>

>> ' Draw the top-left quarter-circle.
canvas.DrawArc(mPen1, rect, 180, 90)

Qu******@aol.com wrote:

>Definitely a start...Thanks I would like the quarters solid not as
arc. Any ideas?

I would have thought you would have gone straight to the search in VS.NET
help, looked up DrawArc, found the Graphics.DrawArc method in the results
pane (you're looking for things in the .NET framework Location) and
double-clicked it, then clicked the "Sync Contents" button (looks like a
blue left-right arrow in the Web toolbar) and looked at the other methods in
the Graphics section, where you would have found the DrawPie method.

HTH

Andrew

[Andrew Morton]

Qu******@aol.com wrote:

In previous post I meant to say drawpie not drawarc

Pah! Why do MS think that a pie should be empty? What point is there in an
empty pie? :-)
I see the help does not have Filling.AppleAndBlackberry or anything similar.

Did you look further down in the help (like I should have ;-) and find
FillPie?

Find the line:
canvas.DrawPie(mPen1, rect, 180, 90)

and after it put in:
canvas.FillPie(Brushes.Red, rect, 180, 90)

to see it work.

Andrew

[Question]

Thanks

And who said the only diumb question was the one NOT asked
On Thu, 25 Jan 2007 11:52:15 -0000, "Andrew Morton"
<ak*@in-press.co.uk.invalidwrote:

>canvas.FillPie(Brushes.Red, rect, 180, 90)

[Question]

One last question (Probably also dumb)

How to I clear the pie chart so that I cann replace it with an updated
pie chart

(BTW I am a Newbie)

On Thu, 25 Jan 2007 11:52:15 -0000, "Andrew Morton"
<ak*@in-press.co.uk.invalidwrote:

>Qu******@aol.com wrote:

>In previous post I meant to say drawpie not drawarc

Pah! Why do MS think that a pie should be empty? What point is there in an
empty pie? :-)
I see the help does not have Filling.AppleAndBlackberry or anything similar.

Did you look further down in the help (like I should have ;-) and find
FillPie?

Find the line:
canvas.DrawPie(mPen1, rect, 180, 90)

and after it put in:
canvas.FillPie(Brushes.Red, rect, 180, 90)

to see it work.

Andrew

[Andrew Morton]

Qu******@aol.com wrote:

How to I clear the pie chart so that I cann replace it with an updated
pie chart

Are you working with Mythran's example or do you have some other code
producing the pie chart?

If the former, then I think you would want a different place to put the
image, like a..., ooh, let me look in the Toolbox window.... ah: PictureBox.
I /think/ the OnPaint event happens automatically when Windows decides the
window needs to be re-drawn.

(BTW I am a Newbie)

And what makes you think I /really/ know what I'm going on about? ;-) Just
about all my VB.NET has been as ASP.NET, so I haven't had to learn/worry
about forms other than for making little utilities with simple buttons and
text for the UI.

I'm sure someone in this ng will have good suggestions for a beginning
VB.NET book (hint, hint! to anyone else reading this :-).

Andrew

[Question]

Option Strict Off
Option Explicit On
Friend Class Form1
Inherits System.Windows.Forms.Form
Private mBrush1 As Brush
Private mBrush2 As Brush
Private mBrush3 As Brush
Private mBrush4 As Brush
Private Sub Form_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Load
mBrush1 = Brushes.Red
mBrush2 = Brushes.Blue
mBrush3 = Brushes.Green
mBrush4 = Brushes.Yellow
PictureBox1.BackColor = Color.Transparent
AddHandler PictureBox1.Paint, AddressOf Me.pictureBox1_Paint
Me.Controls.Add(PictureBox1)
End Sub
Private Sub pictureBox1_Paint(ByVal sender As Object, ByVal e As
System.Windows.Forms.PaintEventArgs)
Dim g As Graphics = e.Graphics
g.Clear(Me.BackColor)
Dim rect As Rectangle
rect.Size = PictureBox1.Size
g.FillPie(mBrush1, rect, 45, 90)
g.FillPie(mBrush2, rect, 135, 90)
g.FillPie(mBrush3, rect, 225, 90)
g.FillPie(mBrush4, rect, 315, 90)
End Sub 'pictureBox1_Paint
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button1.Click
PictureBox1.Dispose()
End Sub
End Class

The dispose command clears it but then I cannot redraw it in
picturebox1
On Thu, 25 Jan 2007 13:15:53 -0000, "Andrew Morton"
<ak*@in-press.co.uk.invalidwrote:

>Qu******@aol.com wrote:

>How to I clear the pie chart so that I cann replace it with an updated
pie chart

Are you working with Mythran's example or do you have some other code
producing the pie chart?

If the former, then I think you would want a different place to put the
image, like a..., ooh, let me look in the Toolbox window.... ah: PictureBox.
I /think/ the OnPaint event happens automatically when Windows decides the
window needs to be re-drawn.

>(BTW I am a Newbie)

And what makes you think I /really/ know what I'm going on about? ;-) Just
about all my VB.NET has been as ASP.NET, so I haven't had to learn/worry
about forms other than for making little utilities with simple buttons and
text for the UI.

I'm sure someone in this ng will have good suggestions for a beginning
VB.NET book (hint, hint! to anyone else reading this :-).

Andrew

[rowe_newsgroups]

Option Strict Off

ACK! Why is this turned off? I don't see any latebinding in your code,
so you definately should turn this on. I realize it's annoying, and
narrowing conversions won't cause problems in a lot of projects, but it
is a super good idea to always leave Option Strict On, particularly
when you're just starting out.

Thanks,

Seth Rowe
On Jan 25, 8:38 am, [e-mail] wrote:

Option Strict Off
Option Explicit On
Friend Class Form1
Inherits System.Windows.Forms.Form
Private mBrush1 As Brush
Private mBrush2 As Brush
Private mBrush3 As Brush
Private mBrush4 As Brush

Private Sub Form_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Load
mBrush1 = Brushes.Red
mBrush2 = Brushes.Blue
mBrush3 = Brushes.Green
mBrush4 = Brushes.Yellow
PictureBox1.BackColor = Color.Transparent
AddHandler PictureBox1.Paint, AddressOf Me.pictureBox1_Paint
Me.Controls.Add(PictureBox1)
End Sub

Private Sub pictureBox1_Paint(ByVal sender As Object, ByVal e As
System.Windows.Forms.PaintEventArgs)
Dim g As Graphics = e.Graphics
g.Clear(Me.BackColor)
Dim rect As Rectangle
rect.Size = PictureBox1.Size
g.FillPie(mBrush1, rect, 45, 90)
g.FillPie(mBrush2, rect, 135, 90)
g.FillPie(mBrush3, rect, 225, 90)
g.FillPie(mBrush4, rect, 315, 90)
End Sub 'pictureBox1_Paint

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button1.Click
PictureBox1.Dispose()
End Sub
End Class

The dispose command clears it but then I cannot redraw it in
picturebox1

On Thu, 25 Jan 2007 13:15:53 -0000, "Andrew Morton"

<[e-mail]:

[e-mail] wrote:

How to I clear the pie chart so that I cann replace it with an updated
pie chart

Are you working with Mythran's example or do you have some other code
producing the pie chart?

If the former, then I think you would want a different place to put the
image, like a..., ooh, let me look in the Toolbox window.... ah: PictureBox.
I /think/ the OnPaint event happens automatically when Windows decides the
window needs to be re-drawn.

(BTW I am a Newbie)

And what makes you think I /really/ know what I'm going on about? ;-) Just
about all my VB.NET has been as ASP.NET, so I haven't had to learn/worry
about forms other than for making little utilities with simple buttons and
text for the UI.

I'm sure someone in this ng will have good suggestions for a beginning
VB.NET book (hint, hint! to anyone else reading this :-).

Andrew

[rowe_newsgroups]

Oh, forgot to answer the question :-)

I believe using
PictureBox1.CreateGraphics().Clear(PictureBox1.Bac kColor) instead of
..Dispose() will do the trick.

Thanks,

Seth Rowe
On Jan 25, 8:38 am, [e-mail] wrote:

Option Strict Off
Option Explicit On
Friend Class Form1
Inherits System.Windows.Forms.Form
Private mBrush1 As Brush
Private mBrush2 As Brush
Private mBrush3 As Brush
Private mBrush4 As Brush

Private Sub Form_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Load
mBrush1 = Brushes.Red
mBrush2 = Brushes.Blue
mBrush3 = Brushes.Green
mBrush4 = Brushes.Yellow
PictureBox1.BackColor = Color.Transparent
AddHandler PictureBox1.Paint, AddressOf Me.pictureBox1_Paint
Me.Controls.Add(PictureBox1)
End Sub

Private Sub pictureBox1_Paint(ByVal sender As Object, ByVal e As
System.Windows.Forms.PaintEventArgs)
Dim g As Graphics = e.Graphics
g.Clear(Me.BackColor)
Dim rect As Rectangle
rect.Size = PictureBox1.Size
g.FillPie(mBrush1, rect, 45, 90)
g.FillPie(mBrush2, rect, 135, 90)
g.FillPie(mBrush3, rect, 225, 90)
g.FillPie(mBrush4, rect, 315, 90)
End Sub 'pictureBox1_Paint

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button1.Click
PictureBox1.Dispose()
End Sub
End Class

The dispose command clears it but then I cannot redraw it in
picturebox1

On Thu, 25 Jan 2007 13:15:53 -0000, "Andrew Morton"

<[e-mail]:

[e-mail] wrote:

How to I clear the pie chart so that I cann replace it with an updated
pie chart

Are you working with Mythran's example or do you have some other code
producing the pie chart?

If the former, then I think you would want a different place to put the
image, like a..., ooh, let me look in the Toolbox window.... ah: PictureBox.
I /think/ the OnPaint event happens automatically when Windows decides the
window needs to be re-drawn.

(BTW I am a Newbie)

And what makes you think I /really/ know what I'm going on about? ;-) Just
about all my VB.NET has been as ASP.NET, so I haven't had to learn/worry
about forms other than for making little utilities with simple buttons and
text for the UI.

I'm sure someone in this ng will have good suggestions for a beginning
VB.NET book (hint, hint! to anyone else reading this :-).

Andrew

[rowe_newsgroups]

I'm sure someone in this ng will have good suggestions for a beginning

VB.NET book (hint, hint! to anyone else reading this :-).

Although I've never read it, Tim Patrick (a contributer here) has a
book called "Start-to-Finish Visual Basic 2005" you might check out. Do
you (the OP) have experience in any other programming language or are
you a complete newbie to vb.net?

Thanks,

Seth Rowe
On Jan 25, 8:15 am, "Andrew Morton" <[e-mail]>
wrote:

[e-mail] wrote:

How to I clear the pie chart so that I cann replace it with an updated
pie chartAre you working with Mythran's example or do you have some other code

producing the pie chart?

If the former, then I think you would want a different place to put the
image, like a..., ooh, let me look in the Toolbox window.... ah: PictureBox.
I /think/ the OnPaint event happens automatically when Windows decides the
window needs to be re-drawn.

(BTW I am a Newbie)And what makes you think I /really/ know what I'm going on about? ;-) Just

about all my VB.NET has been as ASP.NET, so I haven't had to learn/worry
about forms other than for making little utilities with simple buttons and
text for the UI.

I'm sure someone in this ng will have good suggestions for a beginning
VB.NET book (hint, hint! to anyone else reading this :-).

Andrew

[Andrew Morton]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles Button1.Click
PictureBox1.Dispose()
End Sub
End Class

The dispose command clears it but then I cannot redraw it in
picturebox1

http://www.bobpowell.net/picturebox.htm

Andrew

[Andrew Morton]

Andrew Morton wrote:

> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Button1.Click
PictureBox1.Dispose()
End Sub
End Class

The dispose command clears it but then I cannot redraw it in
picturebox1

http://www.bobpowell.net/picturebox.htm

The important part being, I think, the Invalidate() command which tells it
it needs to paint it again.
In VB.NET format:-

'-----------------------------------------------------------
Option Strict On

Public Class Form1
Inherits System.Windows.Forms.Form

'<snip web form designer stuff>

Private mBrush1 As Brush
Private mBrush2 As Brush
Private mBrush3 As Brush
Private mBrush4 As Brush
Private offset As Single

Private Sub init()
mBrush1 = Brushes.Red
mBrush2 = Brushes.Blue
mBrush3 = Brushes.Green
mBrush4 = Brushes.Yellow
PictureBox1.BackColor = Color.Transparent
Me.Controls.Add(PictureBox1)
offset = 0.0
End Sub

Protected Sub pictureBox1_Paint(ByVal sender As Object, ByVal e As
System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim rect As Rectangle
rect.Size = PictureBox1.Size
e.Graphics.FillPie(mBrush1, rect, 45 + offset, 90)
e.Graphics.FillPie(mBrush2, rect, 135 + offset, 90)
e.Graphics.FillPie(mBrush3, rect, 225 + offset, 90)
e.Graphics.FillPie(mBrush4, rect, 315 + offset, 90)
End Sub 'pictureBox1_Paint

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
offset += 30
Me.PictureBox1.Invalidate()
End Sub

Private Sub Form_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Handles MyBase.Load
init()
End Sub

End Class
'-----------------------------------------------------------

Andrew

[Andrew Morton]

These two lines should be deleted as the form designer should have put them
in its section:-

PictureBox1.BackColor = Color.Transparent
Me.Controls.Add(PictureBox1)

And to get rid of the jaggies:-

Protected Sub pictureBox1_Paint(ByVal sender As Object, ByVal e As
System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim rect As Rectangle
rect.Size = PictureBox1.Size

e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias

e.Graphics.FillPie(mBrush1, rect, 45 + offset, 90)
e.Graphics.FillPie(mBrush2, rect, 135 + offset, 90)
e.Graphics.FillPie(mBrush3, rect, 225 + offset, 90)
e.Graphics.FillPie(mBrush4, rect, 315 + offset, 90)
End Sub 'pictureBox1_Paint

Andrew

[Question]

THANKS TO BOTH OF YOU. I have done some vb 6 but am trying to learn
vb.net.

Just as an aside I have five VB.net books here that are dog-eared
from looking at. Quite often when people post it is simply because
they do NOT know where to start so what all you guys do is simply
GREAT!!!
On 25 Jan 2007 06:25:21 -0800, "rowe_newsgroups"
<ro********@yahoo.comwrote:

>I'm sure someone in this ng will have good suggestions for a beginning
VB.NET book (hint, hint! to anyone else reading this :-).

Although I've never read it, Tim Patrick (a contributer here) has a
book called "Start-to-Finish Visual Basic 2005" you might check out. Do
you (the OP) have experience in any other programming language or are
you a complete newbie to vb.net?

Thanks,

Seth Rowe
On Jan 25, 8:15 am, "Andrew Morton" <[e-mail]>
wrote:

>[e-mail] wrote:

How to I clear the pie chart so that I cann replace it with an updated
pie chartAre you working with Mythran's example or do you have some other code

producing the pie chart?

If the former, then I think you would want a different place to put the
image, like a..., ooh, let me look in the Toolbox window.... ah: PictureBox.
I /think/ the OnPaint event happens automatically when Windows decides the
window needs to be re-drawn.

(BTW I am a Newbie)And what makes you think I /really/ know what I'm going on about? ;-) Just

about all my VB.NET has been as ASP.NET, so I haven't had to learn/worry
about forms other than for making little utilities with simple buttons and
text for the UI.

I'm sure someone in this ng will have good suggestions for a beginning
VB.NET book (hint, hint! to anyone else reading this :-).

Andrew