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!
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!