TREEVIEW COM CHECKBOX
sim, uma boa,....
mas como mudo a cor e faço o duplo clique carregar
cada node é um relatorio
please
aproveitando... vc usa muito o progressbar
gostaria de ao selecionar o relatorio inicar o progressbar e ao abrir o relatorio encerrar o progressbar
grato
mas como mudo a cor e faço o duplo clique carregar
cada node é um relatorio
please
aproveitando... vc usa muito o progressbar
gostaria de ao selecionar o relatorio inicar o progressbar e ao abrir o relatorio encerrar o progressbar
grato
Bom, para colocar os checkboxes nos nodes, basta colocar a propriedade [Ô]Checkboxes[Ô] como true. No evento [Ô]NodeCheck[Ô] faça o que quiser fazer:
Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
If Node.Key = [Ô]Clientes[Ô] And Node.Checked = True Then
MsgBox [Ô]Exibir relatório de clinetes[Ô]
End If
End Sub
Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
If Node.Key = [Ô]Clientes[Ô] And Node.Checked = True Then
MsgBox [Ô]Exibir relatório de clinetes[Ô]
End If
End Sub
Pra complementar, como tenho quase certeza que vc vai querer somente um nó [Ô]checado[Ô] por vez, é assim:
If Node.Checked = True Then
For Each no In TreeView1.Nodes
no.Checked = False
Next
End If
If Node.Checked = True Then
For Each no In TreeView1.Nodes
no.Checked = False
Next
End If
amigo me desculpa...
esta dando erro : ............As MSComctlLib.Node)
outra questão... vou seguir o seu conselho da mudança de cor.... é perfeito...
como eu faço para mudar a cor do node ao dar um duplo clique e depois aparecer a mensagem?
grato e me desculpa te incomdar...
esta dando erro : ............As MSComctlLib.Node)
outra questão... vou seguir o seu conselho da mudança de cor.... é perfeito...
como eu faço para mudar a cor do node ao dar um duplo clique e depois aparecer a mensagem?
grato e me desculpa te incomdar...
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Node.ForeColor = vbRed
End Sub
Node.ForeColor = vbRed
End Sub
legal
muito obrigado mesmo...
mas ainda esta dando erro
Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
muito obrigado mesmo...
mas ainda esta dando erro
Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
1 - Duplo clique no Treeview no seu form em modo de desenvolvimento, isso vai abrir o código.
2 - No código, na parte direita em cima, tem uma combo, com todos os eventos do objeto que vc deu duplo clique, escolha o [Ô]NodeCheck[Ô], isso vai automaticamente criar uma procedure pro evento, usando a assinatura do objeto que vc está usando, que com certeza difere do meu.
2 - No código, na parte direita em cima, tem uma combo, com todos os eventos do objeto que vc deu duplo clique, escolha o [Ô]NodeCheck[Ô], isso vai automaticamente criar uma procedure pro evento, usando a assinatura do objeto que vc está usando, que com certeza difere do meu.
estou usando o vs 2008 - não tem esta opção
kkk
kkk
Ah bom!
Private Sub treeView1_NodeMouseDoubleClick(sender As Object, e As TreeNodeMouseClickEventArgs)
e.Node.ForeColor = Color.Red
End Sub
Private Sub treeView1_NodeMouseDoubleClick(sender As Object, e As TreeNodeMouseClickEventArgs)
e.Node.ForeColor = Color.Red
End Sub
TENTEI FAZER ASSIM:
If E.Node = [Ô]Clientes[Ô] And E.Node.Checked = True Then
MsgBox [Ô]Exibir relatório de clinetes[Ô]
e.Node.ForeColor = Color.Red
END IF
ESTA DANDO ERRO
If E.Node = [Ô]Clientes[Ô] And E.Node.Checked = True Then
MsgBox [Ô]Exibir relatório de clinetes[Ô]
e.Node.ForeColor = Color.Red
END IF
ESTA DANDO ERRO
Tópico encerrado , respostas não são mais permitidas