[resolvido] Capturar nomes de rótulos

[Leandro Barbosa]

Boa tarde a todos,

Preciso capturar os nomes dos rótulos por sobre os quais o mouse passa.
O que acontece: Quando movimento o mouse sobre os rótulos, o nome dos mesmos é carregado muitas vezes, quando coloco no Debug.Print aparece assim na janela de execução:

rtlProtocolo
rtlProtocolo
rtlProtocolo
rtlCodLogr
rtlCodLogr
rtlCodLogr
rtlTipoLogr
rtlTipoLogr
rtlTipoLogr
rtlNomeLogr
rtlNomeLogr
rtlNomeLogr

Até aí tudo certo, é o esperado
O que preciso é carregar uma váriavel com apenas uma ocorrência de cada vez, ex:

rtlProtocolo
rtlCodLogr
rtlTipoLogr
rtlNomeLogr

Ou seja, se o cursor continua no mesmo rótulo, carrega uma vez o nome, se muda de rótulo carrega o 'novo' nome.
Não é necessário avaliar nomes anteriores, o usuário poderá voltar a um rótulo já listado, ex:

rtlProtocolo
rtlCodLogr
rtlTipoLogr
rtlNomeLogr
rtlProtocolo
rtlCodLogr
rtlTipoLogr
rtlNomeLogr

Desde já agradeço.

[Leandro Barbosa]

Voltei! E admito, tive um lapso!
A solução é:

Código: Selecionar todos

Public Function MouseMove(rtl2 As Label)
If strNomeLabel <> rtl2.Name Then
    strNomeLabel = rtl2.Name
    Else
        If strNomeLabel = rtl2.Name Then
            Exit Function
        End If
End If
Debug.Print strNomeLabel
End Function


A variável strNomeLabel é Global, fora da função.

Código: Selecionar todos

Global strNomeLabel As String


Resultado:

rtlCodLogr
rtlTipoLogr
rtlNomeLogr
rtlNumImov
rtlNumLado
rtlDataExec
rtlNumLado
rtlNumImov
rtlNomeLogr
rtlTipoLogr
rtlCodLogr
rtlProtocolo
rtlCodLogr
rtlTipoLogr

Conselho: Se você estiver bêbado ou cansado não programe. Hoje estou cansado!