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?
codice:
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