다른창 띠위서 그래프 그리기(MSChart이용)

MS Chart 이용하여 그래프 그리기

도구상자에 chart 도구를 추가해야 함.

Public Class Form1

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

        Form2.Show()

        Form2.WindowState = FormWindowState.Normal

        Form2.BringToFront()

        With Form2.Chart1.Series(0)

            .Points.Clear()

            .Points.AddY(Val(TextBox1.Text))

            .Points.AddY(Val(TextBox10.Text))

            .Points.AddY(Val(TextBox15.Text))

            .Points.AddY(Val(TextBox20.Text))

            For i = 0 To .Points.Count - 1

                .Points(i).IsValueShownAsLabel = True

                .Points(0).Color = Color.Green ' 평균값 다른색으로

                .Points(0).AxisLabel = "평균"

                .Points(1).AxisLabel = "전달"

                .Points(2).AxisLabel = "전전달"

                .Points(3).AxisLabel = "전전전달"

            Next

            .Name = "음성통화량"

        End With

        Form2.Chart1.ChartAreas(0).AxisX.MajorGrid.Enabled = False ' x축 선 없애기

        Form2.Chart1.ChartAreas(0).AxisY.MajorGrid.Enabled = False ' y축 선 없애기

        With Form2.Chart2.Series(0)

            .Points.Clear()

            .Points.AddY(Val(TextBox4.Text))

            .Points.AddY(Val(TextBox7.Text))

            .Points.AddY(Val(TextBox12.Text))

            .Points.AddY(Val(TextBox17.Text))

            .Points(0).AxisLabel = "평균"

            .Points(1).AxisLabel = "전달"

            .Points(2).AxisLabel = "전전달"

            .Points(3).AxisLabel = "전전전달"

            .Name = "데이터사용"

        End With

        With Form2.Chart3.Series(0)

            .Points.Clear()

            .Points.AddY(Val(TextBox2.Text))

            .Points.AddY(Val(TextBox9.Text))

            .Points.AddY(Val(TextBox14.Text))

            .Points.AddY(Val(TextBox19.Text))

            .Points(0).AxisLabel = "평균"

            .Points(1).AxisLabel = "전달"

            .Points(2).AxisLabel = "전전달"

            .Points(3).AxisLabel = "전전전달"

            .Name = "문자"

        End With

        With Form2.Chart4.Series(0)

            .Points.Clear()

            .Points.AddY(Val(TextBox3.Text))

            .Points.AddY(100 - Val(TextBox3.Text))

            .Points(0).AxisLabel = "SKT비중" & TextBox3.Text & "%"

            .Points(1).AxisLabel = "타사비중" & 100 - (TextBox3.Text) & "%"

            '.Points(0).IsValueShownAsLabel = True

            '.Points(1).IsValueShownAsLabel = True

            .Name = "망내"

        End With

    End Sub

End Class

전체소스 참고

 그래프.zip

출처: http://byhwan.tistory.com/entry/다른창-띠위서-그래프-그리기?category=535198 [By Hwan]