GRID

USUARIO.EXCLUIDOS 02/08/2007 17:58:07
#229186
Pessoal,

Preciso que ao passar o mouse sobre uma célula do Grid ele exiba um "ControlTipText" e se posicionar o mouse sobre outra célula sem clicar ele exiba outro ControlTipText

Alguém pode me ajudar com isso?

Valew
USUARIO.EXCLUIDOS 02/08/2007 18:42:23
#229195 Resposta escolhida
Crie uma coluna no grid de tamanho zero(ColWidth(NumeroCol) = 0) e ao montar o grid coloque o texto que deseja aparecer nesta coluna.

Depois no evento mouse_move do seu grid coloque o exemplo abaixo:

Private Sub grd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    With grd
        If .Rows > 1 Then
            If .MouseRow <> 0 Then
                .ToolTipText = .TextMatrix(.MouseRow, 15) ' Onde o 15 seria o número da coluna escondida(Colwidth=0)
            End If
        End If
    End With

End Sub


ESPERO TER AJUDADO.
USUARIO.EXCLUIDOS 03/08/2007 09:42:13
#229267
Frau,

Claro que ajudou, mas eu preciso que por exemplo que para cada célula o texto seja diferente para uma determinada coluna. Por exemplo na coluna 0 para cada linha o text é um, não sei se entendeu?
USUARIO.EXCLUIDOS 06/08/2007 13:59:34
#229648
Ok, para fazer isto vc pode colocar varios textos em colunas escondidas e depois vc faz o teste se o mouse está na linha e coluna desejada conforme o fonte abaixo:

Private Sub grd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    With grd
        If .Rows > 1 Then
            If .MouseRow <> 0 and .MouseCol = 1 Then 'Testa se está na coluna 1
                .ToolTipText = .TextMatrix(.MouseRow, 15) ' Onde o 15 seria o número da coluna escondida(Colwidth=0)
            elseif .mouserow <> 0 and .MouseCol = 2 then 'Testa se está na coluna 2
                .ToolTipText = .TextMatrix(.MouseRow, 16)
            End If
        End If
    End With

End Sub


Faça os testes aí que vc vai conseguir...

Qualquer dúvida poste.
USUARIO.EXCLUIDOS 06/08/2007 14:21:04
#229652
Valew, mandou bem.
Tópico encerrado , respostas não são mais permitidas
Voltar