Trying to add Pie Graph to form with tabs...

jonestownIII

Newcomer
Joined
Dec 4, 2003
Messages
2
I want the pie graph on the fourth tab on my form but not sure how -- it's not showing up for me and don't know how to place it there...I've left the textboxes as TextBox5.Text, etc. for now...

Here's my code so far:

Dim intWFSignees As Integer
Dim intVTSignees As Integer
Dim intTotalSignees As Integer

If IsNumeric(TextBox5.Text) Then
intWFSignees = CInt(TextBox5.Text)
If IsNumeric(TextBox6.Text) Then
intVTSignees = CInt(TextBox6.Text)
intTotalSignees = intVTSignees + intWFSignees

'Create Pie Chart that will be displayed on recruiting results tab
Dim brushWFSignees As New SolidBrush(Color.Gold)
Dim brushVTSignees As New SolidBrush(Color.Maroon)

'Draw Chart
If intTotalSignees <> 0 Then
llbLegend.Visible = True

End If
Dim intEndWFSignees As Integer = CInt(intWFSignees / intTotalSignees * 360)
Me.CreateGraphics.FillPie(brushWFSignees, 160, 140, 100, 100, 0, intEndWFSignees)
Dim intEndVTSignees As Integer = CInt(intVTSignees / intTotalSignees * 360)
Me.CreateGraphics.FillPie(brushVTSignees, 160, 140, 100, 100, intEndWFSignees, intEndVTSignees)
End If
End If

Anyone know how I can place it inside the tab and get it to run right and show up?

Thanks a ton in advance for any help!
 
Back
Top