none
problème de conception de grapique avec VB.net RRS feed

  • Discussion générale

  • j'ai créer un premier graphique sur un onglet ( un column chart basic mais en code pas avec l'outil de la boite a outil). Il fonctionne très bien et voici le code :

     Private Sub histo_Click(sender As Object, e As EventArgs) Handles histo.Click
    
            Dim i, j, k, l, m, n, o, p, q As Decimal
    
            ' traduction des valeur des textbox en décimal pour le graph
            Decimal.TryParse(promar.Text, i)
            Decimal.TryParse(prodyear.Text, j)
            Decimal.TryParse(addvalue.Text, k)
            Decimal.TryParse(ebe.Text, l)
            Decimal.TryParse(opeinc.Text, m)
            Decimal.TryParse(resfi.Text, n)
            Decimal.TryParse(resbeftax.Text, o)
            Decimal.TryParse(resex.Text, p)
            Decimal.TryParse(netinc.Text, q)
    
            'Créer un Chart
            Dim Chart2 As New Chart
            'Il ne contient rien
    
            ' Créer ChartArea (zone graphique)
            Dim ChartArea1 As New ChartArea()
    
            ' Ajouter le  Chart Area à la Collection ChartAreas du  Chart
            Chart2.ChartAreas.Add(ChartArea1)
    
            ' Créer deux  data series (qui contiendront les DataPoint)
            Dim series1 As New Series()
    
            ' Ajouter des points à la collections Points de la première series
            series1.Points.AddXY("Profit margin", i)
            series1.Points.AddXY("Production year", j)
            series1.Points.AddXY("Added value", k)
            series1.Points.AddXY("EBITDA", l)
            series1.Points.AddXY("Operating incomes", m)
            series1.Points.AddXY("Financial result", n)
            series1.Points.AddXY("Current result before taxes", o)
            series1.Points.AddXY("Extraordinary result", p)
            series1.Points.AddXY("Net income of the year", q)
    
            'On indique d'afficher ces Series sur le ChartArea1
            series1.ChartArea = "ChartArea1"
    
            ' Ajouter les series à la collection Series du chart
            Chart2.Series.Add(series1)
    
            ' Positionner le controle Chart
            Chart2.Location = New System.Drawing.Point(298, 22)
    
            ' Dimensionner le Chart
            Chart2.Size = New System.Drawing.Size(542, 454)
    
            ' Ajouter le chart à la form
            Me.onglet2.Controls.Add(Chart2)
    
        End Sub

    Mon problème c'est que j'ai voulu mettre un autre graph dans un autre onglet ( je veux un camembert mais j'ai pis le code que j'ai trouvé pour le type de graphe en commentaire) . Pour cela j'ai copié collé le code, changé les variables mais ce que j'obtiens c'est une grande croix rouge. Voici le code : 

    Private Sub cam_Click(sender As Object, e As EventArgs) Handles cam.Click
    
            Dim i1, j1, k1, l1, m1, n1, o1, p1, q1 As Decimal
    
            Decimal.TryParse(promar1.Text, i1)
            Decimal.TryParse(prodyear1.Text, j1)
            Decimal.TryParse(addvalue1.Text, k1)
            Decimal.TryParse(ebe1.Text, l1)
            Decimal.TryParse(opeinc1.Text, m1)
            Decimal.TryParse(resfi1.Text, n1)
            Decimal.TryParse(resbeftax1.Text, o1)
            Decimal.TryParse(resex1.Text, p1)
            Decimal.TryParse(netinc1.Text, q1)
    
            'Créer un Chart
            Dim Chart1 As New Chart
    
            ' Créer ChartArea (zone graphique)
            Dim ChartArea2 As New ChartArea()
    
            ' Ajouter le  Chart Area à la Collection ChartAreas du  Chart
            Chart1.ChartAreas.Add(ChartArea2)
    
            ' Créer deux  data series (qui contiendront les DataPoint)
            Dim series2 As New Series()
    
            ''Déclaration du type de chart
            'Dim seriescharttype1 As New SeriesChartType
            'seriescharttype1 = SeriesChartType.Pie
    
    
            ' Ajouter des points à la collections Points de la première series
            series2.Points.AddXY("Profit margin", i1)
            series2.Points.AddXY("Production year", j1)
            series2.Points.AddXY("Added value", k1)
            series2.Points.AddXY("EBITDA", l1)
            series2.Points.AddXY("Operating incomes", m1)
            series2.Points.AddXY("Financial result", n1)
            series2.Points.AddXY("Current result before taxes", o1)
            series2.Points.AddXY("Extraordinary result", p1)
            series2.Points.AddXY("Net income of the year", q1)
    
            'On indique d'afficher ces Series sur le ChartArea1
            series2.ChartArea = "ChartArea2"
    
            ' Ajouter les series à la collection Series du chart
            Chart1.Series.Add(series2)
    
            ' Positionner le controle Chart
            Chart1.Location = New System.Drawing.Point(298, 22)
    
            ' Dimensionner le Chart
            Chart1.Size = New System.Drawing.Size(542, 454)
    
            ' Ajouter le chart à la form
            Me.onglet3.Controls.Add(Chart1)
    
        End Sub

    Merci d'avance pour votre aide 

    • Type modifié Aurel Bera mardi 20 août 2013 13:04 Discussion
    lundi 12 août 2013 13:16

Toutes les réponses