[VB6] Grafico a barre e visualizzazione valori

[Massimo Moretti]

Vorrei visualizzare in un grafico a barre il valore su ogni barra, hoprovato ma non trovo soluzioni!!

[MdE2005]

Inserisci in run-time delle label..

[Massimo Moretti]

Nel Grafico MSChart1.RowCount varia da 2 a 15 dipende dai dati inseriti, in questo caso come faccio a ridimensionare le label

[multijet]

puoi provare a leggere il valore delle colonne che visualizzerai e con un ciclo di for rendi visibili le label

for I=2 to rowcount
label1(I).visible= true
label1(I).caption="...."
next i

[Massimo Moretti]

OGNI QUALVOLTA CHE IL CRAFICO SI RIDIMENSIONA (in base ai dati inseriti verranno visualizzate da 2 a 15 barre), VARIA LA POSIZIONE E L'ALTEZZA DELLE BARRE, COME FACCIO A SPOSTARE LE LABEL?

[MdE2005]

Postato da MassimoMoretti:
COME FACCIO A SPOSTARE LE LABEL?

Così:

label1.left = label1.left + 50
label1.top = label1.top - 20

In questo caso sposta verso la tua destra la label di 50 unità e sposta verso l'alto la label di 20 unità..

Per inciso: non importa che tu scriva con il maiuscolo, se ti vengono poste delle domande è perchè magari non viene capito molto bene il problema..

Ciao

[Massimo Moretti]

Devi scusarmi, ma non riesco a risolvere il mio problema, con VB6 non è possibile visualizzare il valore su ogni barra di un grafico?
Le barre del mio grafico, a seconda dei dati impostati, possono variare da 2 a 15 e pure l'altezza, se devo spostare le label, come faccio a sapere di quante unità devo spostarle?

Private Sub Cmd_Aggiorna_Graf_Click()
If txt_NUM_RIP < 3 Then
Form41.MSChart1.RowCount = 2
With Form41.MSChart1
.Column = 1
.row = 1
.data = Time_Km_1.Text
.Column = 1
.row = 2
.data = Time_Km_2.Text
End With
ElseIf txt_NUM_RIP < 4 Then
Form41.MSChart1.RowCount = 3
With Form41.MSChart1
.Column = 1
.row = 1
.data = Time_Km_1.Text
.Column = 1
.row = 2
.data = Time_Km_2.Text
.Column = 1
.row = 3
.data = Time_Km_3.Text
End With
.....
Else
Form41.MSChart1.RowCount = 15
With Form41.MSChart1
.Column = 1
.row = 1
.data = Time_Km_1.Text
.Column = 1
.row = 2
.data = Time_Km_2.Text
.Column = 1
.row = 3
.data = Time_Km_3.Text
.Column = 1
.row = 4
.data = Time_Km_4.Text
.Column = 1
.row = 5
.data = Time_Km_5.Text
.Column = 1
.row = 6
.data = Time_Km_6.Text
.Column = 1
.row = 7
.data = Time_Km_7.Text
.Column = 1
.row = 8
.data = Time_Km_8.Text
.Column = 1
.row = 9
.data = Time_Km_9.Text
.Column = 1
.row = 10
.data = Time_Km_10.Text
.Column = 1
.row = 11
.data = Time_Km_11.Text
.Column = 1
.row = 12
.data = Time_Km_12.Text
.Column = 1
.row = 13
.data = Time_Km_13.Text
.Column = 1
.row = 14
.data = Time_Km_14.Text
.Column = 1
.row = 15
.data = Time_Km_15.Text
End With
End If

End Sub

[MdE2005]

Non so se è possibile, comunque ti ricavi l'altezza di ogni singola colonna, e metti i label più vicini al margine alto dello schermo..puoi recuperare questo valore? Se si, posta come faresti..

ciao

[Massimo Moretti]

Come faccio a calcolare l'altezza della colonna grafica?

gli unici valori che posso recuperare prima della visualizzazione del grafico sono i seguenti:
-N° delle Barre del grafico
-Valore che incrementa l'altezza della barra

[LMondi]

Ciao Massimo,
non credo che si possa fare.
Però MSChart pone a disposizione PointSelected(Series As Integer, DataPoint As Integer, MouseFlags As Integer, Cancel As Integer)
che permette di visualizzare il valore di un particolare dato di una serie (segmento di colonna) dopo averlo selezionato. Il valore del dato viene mostrato nell' etichetta lblDatapoint.
Se ti serve il codice dillo che posto un esempio di un prog. già in uso.