TREEVIEW
Pessoal, qual o evento mais ideal para usarmos no Click de um TREEVIEW??
Tipo, eu usei o evento NODECLICK, e fiz de um jeito que eu tenho certeza que tem jeitos melhores:
Será q num tem um commando melhor?? Tipo, ao usar esse, quando o usuário vem "andando" com o teclado, cada vez que um nó pega o foco, ele já ativa o evento CLICK, o que não é legal, a gente percebe, por exemplo, no Windows Explorer, que ao se mover com o teclado, nada acontece, só se deixar por certo tempo.
Alguém poderia me ajudar???
valew!!!
Tipo, eu usei o evento NODECLICK, e fiz de um jeito que eu tenho certeza que tem jeitos melhores:
if node = 1 then
'faça meus commandos
elseif node = 2 then
'faça meus commandos
.
.
.
Será q num tem um commando melhor?? Tipo, ao usar esse, quando o usuário vem "andando" com o teclado, cada vez que um nó pega o foco, ele já ativa o evento CLICK, o que não é legal, a gente percebe, por exemplo, no Windows Explorer, que ao se mover com o teclado, nada acontece, só se deixar por certo tempo.
Alguém poderia me ajudar???
valew!!!
Você poderia armazenar o node corrente no evento NodeClick e fazer todo o tratamento de código no evento MouseUp.
Exemplo;
Na seção geral do Form:
Private NodeCorrente As MSComctlLib.Node
Private NodeClicado As Boolean
No evento Load do form:
Set NodeCorrente = Nothing
NodeClicado = False
No Evento NodeClick da treeview:
Set NodeCorrente = Node
NodeClicado = True
No Evento MouseUp da treeview:
If NodeClicado = False Then
Exit Sub
Else
' Inserir todo o código de tratamento
if NodeCorrente.Index = 1 then
'faça meus commandos
elseif NodeCorrente.Index = 2 then
'faça meus commandos
End If
NodeClicado = False
End If
Exemplo;
Na seção geral do Form:
Private NodeCorrente As MSComctlLib.Node
Private NodeClicado As Boolean
No evento Load do form:
Set NodeCorrente = Nothing
NodeClicado = False
No Evento NodeClick da treeview:
Set NodeCorrente = Node
NodeClicado = True
No Evento MouseUp da treeview:
If NodeClicado = False Then
Exit Sub
Else
' Inserir todo o código de tratamento
if NodeCorrente.Index = 1 then
'faça meus commandos
elseif NodeCorrente.Index = 2 then
'faça meus commandos
End If
NodeClicado = False
End If
Tópico encerrado , respostas não são mais permitidas