[VB6] visualizzare valori con mschart

[mezzino1]

sono un utente base di vb6.
Dato un grafico mschart1 con 4 colonne, è possibile visualizzare il valore di una singola colonna al passaggio del mouse in una finestrella a lato del puntatore del mouse?

[LMondi]

Ciao mezzino1,
sì è possibile visualizzare il dato di una serie (colonna del grafico) in una Label. Ti riporto una tranche di codice di un prog. in uso, come esempio:

Private Sub MSChartD_PointSelected(Series As Integer, DataPoint As Integer, MouseFlags As Integer, Cancel As Integer)
'Permette di visualizzare il valore di un particolare dato di una serie,
'dopo averlo selezionato. Il valore del dato viene mostrato nella
'etichetta lblDataVal:

On Error GoTo ErrHandler
    
    ' Azzera la stringa:
    FrmLisDiff.lblDataVal.Caption = ""
    
    ' Colore Rosso o Bleu:
    If txtTot(0).Text > txtTot(1).Text Then
        lblDataVal.ForeColor = &HFF&
        Else
        lblDataVal.ForeColor = &HFF0000
    End If
    
    With FrmLisDiff.lblDataVal
        .BackStyle = 1
        .BorderStyle = 1
        .BackColor = &HC0FFFF
        .Visible = True
    End With
    
    FrmLisDiff.MSChartD.Column = Series
    FrmLisDiff.MSChartD.Row = Series
    FrmLisDiff.MSChartD.Row = DataPoint
    
    ' Variabile pubblica dblDimen nel modulo Graf:
    Select Case Series = 1 Or Series = 2 Or Series = 3
        Case Series = 1
            FrmLisDiff.lblDataVal.Caption = "Differenza: ..... - Prova" & " = " & " Euro " & Format((FrmLisDiff.MSChartD.Data * dblDimen), "#,##0") & "  pari al " & Format((txtTot(2).Text / txtTot(1).Text) * 100, "#,##0.00") & "%"
        Case Series = 2
            FrmLisDiff.lblDataVal.Caption = "Prova ...." & " = " & " Euro " & Format((FrmLisDiff.MSChartD.Data * dblDimen), "#,##0")
        Case Series = 3
            FrmLisDiff.lblDataVal.Caption = "Prova ...." & " = " & " Euro " & Format((FrmLisDiff.MSChartD.Data * dblDimen), "#,##0")
        End Select

ErrHandler:
If Err.Number <> 0 Then
    MsgBox "Errore: " & Err.Number & " " & Err.Description & "." & Chr(13) _
    & "Controllare che i dati per il" & Chr(13) _
    & "grafico siano presenti e riprovare.", vbCritical, "Confronto Prova ...."
    Err.Clear
    Exit Sub
End If

End Sub

Spero che l'esempio ti sia utile per risolvere il problema.