Discussion :

[minola]

bonjour;
J'ai réalisé une fonction qui fait l'affichage de statistique en pourcentage des paramètres (A,B et c par exemple) dans des textes box mais le problème que je veux le voir aussi sous forme de graphe ( lecture de contenu de chaque TextBox et le mettre dans cercle de stat ) mais je n'ai aucune idée sur l'utilisation de graphique dans le vb.6
ex
A = 20 %

B = 30 %

C = 50 %

Merci

[ucfoutu]

Bonjour,

Pour si peu et sans base de données (valeurs de textboxes), il te suffit d'une picturebox dans laquelle tu dessines en appliquant la méthode Line (voir ce mot dans ton aide en ligne) !....

Allez va...

Voici un exemple que je viens de te bâtir ...

Il est volontairement très grossier, pour que tu n'aies aucune difficulté à suivre.

A toi de comprendre, puis d'utiliser plus finement ce que tu auras compris....

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
Option Explicit
Private Sub Form_Activate()
  Picture1.ScaleMode = vbTwips
  Me.Move 0, 0, Screen.Width, Screen.Height
  Picture1.Move Me.Width / 4, Me.Height / 4, Me.Width / 4, Me.Height / 4
  Dim a As Integer, b As Integer, c As Integer, d As Integer
  Dim montabl, mescoul, toto As Integer, largeur As Integer, i As Integer
  a = 20
  b = 30
  c = 60
  d = 10
  montabl = Array(a, b, c, d)
  mescoul = Array(vbRed, vbBlue, vbGreen, vbYellow)
  toto = Picture1.Height / 100
  largeur = 300
  For i = 0 To UBound(montabl)
    Picture1.Line (i * largeur, Picture1.Height)-((i * largeur) + largeur, toto * (100 - montabl(i))), mescoul(i), BF
  Next
End Sub

[SfJ5Rpw8]

à voir :

Les bases du contrôle MSChart par Cécile Muno

[ucfoutu]

Bonjour Bbil,

Le contrôle MsChart est en effet ce qui vient en premier à l'esprit.

Mais Minola ne parait pas travailler avec une base de données mais de simples valeurs dans des textboxes ...

Edit : je viens de voir qu'il préfère un affichage en camembert (je suppose que c'est ce qu'il appelle "en cercle"). Il lui suffit alors d'utiliser la méthode circle en lieu et place de la méthode Line.

[SfJ5Rpw8]

Bonjour Bbil,

Le contrôle MsChart est en effet ce qui vient en premier à l'esprit.

Mais Minola ne parait pas travailler avec une base de données mais de simples valeurs dans des textboxes ...

Edit : je viens de voir qu'il préfère un affichage en camembert (je suppose que c'est ce qu'il appelle "en cercle"). Il lui suffit alors d'utiliser la méthode circle en lieu et place de la méthode Line.

....? qui à parlé de base de donnée ?

tu met un contrôle msChart sur une form ... (MSCHART1)
un groupe de contrôle de 3 textbox (Text1) puis :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command1_Click()
 Dim i As Integer
  With MSChart1
        .chartType = VtChChartType2dPie
        .RowCount = 1 ' Nbre de Camembert
        .ColumnCount = 3  'Nbre de "tranche" de camembert
    For i = 0 To 2
        .Column = i + 1
        .Data = Val(Text1(i))
    Next i
 End With
 
End Sub

[ucfoutu]

Oui, en effet.... (je suis allé trop vite).

(probablement dû à ma manie de rester totalement indépendant... surtout en pensant à Vista.... qui ne contient pas spontanément MsChart.Ocx ...)