CHAMAR FORMULARIO A PRTIR DE UM CONTROLE LISTVIEW

USUARIO.EXCLUIDOS 05/09/2007 20:00:05
#234362
boa noite amigos!

Gostaria de chamar um formulário quando eu clicasse em algum nó do controle listview... seria possivel?

Ex.:

Menu
|___Cadastro
|______Clientes


Quando eu clicar em cliente, chamar o formulario de cadastro de lientes... isso eh possivel?


Obrigado.
FUTURA 05/09/2007 21:16:28
#234368
sim, vc clica no item selecionado, e no keydown dele vc joga o comando para chamar o form, e ainda pode até traze-lo preenchido com os dados deste cliente.
USUARIO.EXCLUIDOS 06/09/2007 09:42:46
#234405
Sim, mas como faço isso? COmo chamo essa função?
Vlw!
USUARIO.EXCLUIDOS 06/09/2007 09:58:11
#234408 Resposta escolhida
Amigo pode fazer como a seguir o item.Text retorna o valor clicado entao no evento ItemClick vc pode chamar os form

Dim Item As ListItem

Private Sub Form_Load()
Set Item = ListView1.ListItems.Add(, , "Item 1")
Set Item = ListView1.ListItems.Add(, , "Item 2")
Set Item = ListView1.ListItems.Add(, , "Item 3")
End Sub


Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    MsgBox Item.Text
End Sub
USUARIO.EXCLUIDOS 06/09/2007 11:08:38
#234435
OpS! Peço desculpas, nao eh o controle LISTVIEW e sim o controle TREEVIEW...
teria como chamar formulario atraves do treeview ?

Vlw!
USUARIO.EXCLUIDOS 06/09/2007 11:19:32
#234440
Faz assim

Private Sub Form_Load()
Dim nodx As Node
'limpa qualquer nó criado
TreeView1.Nodes.Clear
Set nodx = TreeView1.Nodes.Add(, , "Root", "Nó Raiz")

'Criando um nó filho sob o nó raiz
Set nodx = TreeView1.Nodes.Add("Root", tvwChild, "Child1", "Nó Filho 1")

'Criando mais nós filhos
Set nodx = TreeView1.Nodes.Add("Root", tvwChild, "Child2", _
"Nó Filho 2")
Set nodx = TreeView1.Nodes.Add("Root", tvwChild, "Child3", _
"Nó Filho 3")
Set nodx = TreeView1.Nodes.Add("Root", tvwChild, "Child4", _
"Nó Filho 4")

'Criando dois nós filhos subordinado a ao primeiro nó filho da raiz
Set nodx = TreeView1.Nodes.Add("Child1", tvwChild, "Child1A", _
"Nó Filho 1-A")
Set nodx = TreeView1.Nodes.Add("Child1", tvwChild, "Child1B", _
"Nó Filho 1-B")
'Criando um laço para percorrer cada nó filho do nó raiz
Dim i As Long

'Define o nodx para o primeiro nó filho da raiz
Set nodx = TreeView1.Nodes("Root").Child

End Sub


Private Sub TreeView1_DblClick()
MsgBox TreeView1.SelectedItem
End Sub
USUARIO.EXCLUIDOS 06/09/2007 11:20:26
#234441
TREEVIEW !?!?!?

NINGUEM!??!
USUARIO.EXCLUIDOS 06/09/2007 11:24:55
#234444
Amigo o codigo que eu acabei de postar para vc e em treeviw nao e ?


Vc so precisa mudar isso para o seu e fazer select case

[c]Private Sub TreeView1_DblClick()
MsgBox TreeView1.SelectedItem 'Aki ele exibe o item selecionado e dependendo do item vc vai abrir um form nao e?
End Sub

[/c]
USUARIO.EXCLUIDOS 06/09/2007 11:25:25
#234445
Lando, nao ta dando certo... nao to conseguindo chamar um determinado formulario..

Menu
|___Cadastro
|______Clientes
|___Configurações

Ex. Nao consigo chamar somente o formulario de Clientes, ao clicar em clientes.


Pf me ajudem!
VLW!
USUARIO.EXCLUIDOS 06/09/2007 11:32:28
#234450
Leo,

Vc tem q fazer igual este exemplo de double click aki mas adicionando os seus forms e a sua estrtutura treeview

Private Sub TreeView1_DblClick()
Select Case TreeView1.SelectedItem
    Case "Clientes"
        frmCLientes.Show
    Case "Configuracoes"
        frmConfiguracoes.Show
    Case Else
        MsgBox ("Insira outros forms")
    
End Select

End Sub
USUARIO.EXCLUIDOS 06/09/2007 11:36:23
#234453
Blz cara... deu certo... brigadao!
Abraços.
Tópico encerrado , respostas não são mais permitidas
Voltar