[VB6] Tooltip di una MSHFlexGrid a seconda della colonna

[jimmypage]

Salve a tutti
ho una MSHFlexGrid e vorrei visualizzare tooltip diverse a seconda della colonna su cui sono in quel momento.
Come posso fare?

Io per ora ho fatto così

Private Sub hfgGriglia_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
    Dim gap
    Dim gapRig
    Dim bEsciSub
    Dim sVecchiaTool
    
    bEsciSub = False
    With hfgGriglia
        If Not sVecchiaTool = "" Then Exit Sub
        For j = 1 To .Cols - 1
            gap = j - 1
            If 0 < X And .ColPos(1) > X Then Exit Sub
            If .ColPos(gap) < X And .ColPos(j) > X And .RowPos(0) <= Y And 240 > Y Then
                Select Case .TextMatrix(0, gap)
                    Case "O"
                        If Not .ToolTipText = "Imposta il messaggio come 'Non letto/letto'" Then .ToolTipText = "Imposta il messaggio come 'Non letto/letto'"
                    Case "Preso da"
                        If Not .ToolTipText = "Ordina l'elenco per nominativo di chi ha registrato il messaggio" Then .ToolTipText = "Ordina l'elenco per nominativo di chi ha registrato il messaggio"
                    Case "Data"
                        If Not .ToolTipText = "Ordina l'elenco per data" Then .ToolTipText = "Ordina l'elenco per data"
                    Case "Ora"
                        If Not .ToolTipText = "Ordina l'elenco per ora" Then .ToolTipText = "Ordina l'elenco per ora"
                    Case "Ti ha cercato"
                        If Not .ToolTipText = "Ordina l'elenco per nome di chi ha chiamato" Then .ToolTipText = "Ordina l'elenco per nome di chi ha chiamato"
                    Case "Nota"
                        If Not .ToolTipText = "Ordina l'elenco per nota" Then .ToolTipText = "Ordina l'elenco per nota"
                End Select
                sVecchiaTool = .ToolTipText
                bEsciSub = False
                Exit For
            Else
                If j = lColonnaNotifica Then .ToolTipText = "Imposta il messaggio come 'Non letto/letto'"
                bEsciSub = True
            End If
        Next j
        
        If bEsciSub Then
            .ToolTipText = ""
            bEsciSub = False
        End If
        
    End With

End Sub

e funziona abbastanza bene. L'unico problema è che la tooltip fa un effetto continuo tipo refresh, molto fastidioso e vorrei eliminarlo.

Grazie in anticipo

[oregon]

Hai fatto in quel modo ... e quindi? Non funziona?

P.S. C'e' il forum apposito per VB ...

[LeleFT]

Originariamente inviato da oregon
P.S. C'e' il forum apposito per VB ...

Quoto e sposto.


Ciao.

[jimmypage]

Sono il solito sbadato, pensavo di averlo messo in quel forum, scusate

Comunque, funziona ma mi fa quell'effetto fastidioso tipo refresh che ho detto. Volevo sapere se c'è un modo migliore per visualizzare queste tooltip oppure è normale che faccia così

grazie