Discussion :

[malinots]

bonjours, voila je suis un débutant et je veux realiser a partir de donneé recuperé d'un péripherique exterieur un tableau sur excel et un graphique ,(tout ceci en vb.net), la parti recuperation de donné dans excel est faite, et marche bien, le problème et pour faire un graphique je ne sais pas comment procéder (graphique excel) donner moi les grande lignes s'il vous plait merci d'avance.

ps: si kelkun et intéresser par la parti d'avan me faire un signe (recuperation de donné dans excel)

[ricil78]

Si le graphique dans ton fichier excel s'appuie sur les données que tu as récupérées, je serais tenté de te dire de reconstruire ton graph mais en .net dans une Form.

Regarde en dessous c'est un bout de code que tu trouves dans les Snippet.


Ce bout de code te permet de dessiner un graph dans une form

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
' Shows how to call the DrawPieChart method
Public Sub DrawPieChartHelper()
    Dim percents() As Integer = {10, 20, 70}
    Dim colors() As Color = {Color.Red, Color.CadetBlue, Color.Khaki}
    Dim graphics As Graphics = Me.CreateGraphics
    Dim location As Point = New Point(10, 10)
    Dim size As Size = New Size(150, 150)
    DrawPieChart(percents, colors, graphics, location, size)
End Sub
 
 
' Draws a pie chart.
Public Sub DrawPieChart(ByVal percents() As Integer, ByVal colors() As Color, _
ByVal surface As Graphics, ByVal location As Point, ByVal pieSize As Size)
    ' Check if sections add up to 100.
    Dim sum As Integer = 0
    For Each percent As Integer In percents
        sum += percent
    Next
 
    If sum <> 100 Then
        Throw New ArgumentException("Percentages do not add up to 100.")
    End If
 
    If percents.Length <> colors.Length Then
        Throw New ArgumentException("There must be the same number of percents and colors.")
    End If
 
    Dim percentTotal As Integer = 0
    For percent As Integer = 0 To percents.Length() - 1
        surface.FillPie( _
            New SolidBrush(colors(percent)), _
            New Rectangle(location, pieSize), CType(percentTotal * 360 / 100, Single), CType(percents(percent) * 360 / 100, Single))
        percentTotal += percents(percent)
    Next
    Return
End Sub

[malinots]

merci ricil78, je vais regarder ca
si d'autre idée les mettre sur le forum merci

[malinots]

en faits je galere a comprendre ton code

[ricil78]

la j'suis en vacance loin de chez moi (Courage à ceux qui bossent)
je rentre dans 1 semaine, je dois avoir un projet d'exemple.
Je regarderai et si je le trouve je te l'envoie.

Sinon j'ai pensé un truc, si c'est juste pour présenter un graphique.
Tu fais un rapport cristal dans lequel tu fais un graphique.
Du coup tu as plus qu'a envoyé les données au rapport


courage

[Deepin]

il y a un exemple la
ftp://ftp2.developpez.be/developps/d...e/OfficeVb.pdf