[resolvido] Capturar nomes de rótulos

Moderador: Avelino Sampaio

Avatar do usuário
Leandro Barbosa
Mensagens: 13
Registrado em: 13 Ago 2015, 12:03

[resolvido] Capturar nomes de rótulos

Mensagempor Leandro Barbosa » 25 Jan 2018, 17:33

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.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Leandro Barbosa
Mensagens: 13
Registrado em: 13 Ago 2015, 12:03

Re: Capturar nomes de rótulos

Mensagempor Leandro Barbosa » 25 Jan 2018, 18:12

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! :lol:


Voltar para “Módulos VBA”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 4 visitantes