none
chart avec vb2010 RRS feed

  • Discussion générale

  • bonjour

     j'avance un peu  dans mon étude d'autodidacte je découvre le chart(graphiques)

     j’ai fait un code où ill y pas d'erreurs mais le résultats est bizarre qui peut me dire où il y a une erreur merci d'avance

     voici le code

    Imports System.Windows.Forms.DataVisualization.Charting
    
    
    
    Public Class Form1
    
        Private Sub Form1_Activated(sender As Object, e As System.EventArgs) Handles Me.Activated
    
            'creer un chart
            Dim chart2 As New Chart
            'il ne contein rien
    
            ''creer la zone gra^phique
            Dim chartarea1 As New ChartArea()
    
            ''ajouter le chart area a la collection chartarea du chart
            chart2.ChartAreas.Add(chartarea1)
    
    
            ''creer deus series data 'contient data point)
            Dim series1 As New Series()
            Dim series2 As New Series()
    
    
            ''ajouter les points
            series1.Points.Add(38)
            series1.Points.Add(26)
            series1.Points.Add(32)
            series1.Points.Add(28)
            series1.Points.Add(45)
    
    
            ' ''ajouter les points
            series2.Points.Add(12)
            series2.Points.Add(43)
            series2.Points.Add(24)
            series2.Points.Add(12)
            series2.Points.Add(28)
    
    
            ''on indique d'afficher les series sur le chart area1
            'series1.ChartArea = "chartarea1"
            series2.ChartArea = "chartarea1"
    
    
            ''ajouter le controle chart
            chart2.Series.Add(series1)
            chart2.Series.Add(series2)
    
    
            'posiitionneer le controle chart
            chart2.Location = New System.Drawing.Point(15, 45)
    
            'dimension du chart
            chart2.Size = New System.Drawing.Size(360, 260)
    
            'ajouter le chart au form
            Me.Controls.Add(chart2)
    
    
        End Sub
    End Class
    

    je transmet la copie d’écran du résultat obtenu

    mercredi 9 septembre 2015 06:59

Toutes les réponses