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.
[resolvido] Capturar nomes de rótulos
Moderador: Avelino Sampaio
- Leandro Barbosa
- Mensagens: 13
- Registrado em: 13 Ago 2015, 12:03
- Leandro Barbosa
- Mensagens: 13
- Registrado em: 13 Ago 2015, 12:03
Re: Capturar nomes de rótulos
Voltei! E admito, tive um lapso!
A solução é:
A variável strNomeLabel é Global, fora da função.
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!
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!

Quem está online
Usuários neste fórum: Nenhum usuário registrado e 1 visitante