MENU EM TREEVIEW
Não consegui colocar menus em treeview com VB.NET.
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
If TreeView1.Nodes.Item(1).Index Then
My.Forms.frmCadContador.MdiParent = Me
My.Forms.frmCadContador.Show()
End If
End Sub
Não é esse o código certo e se alguém souber. Já procurei em vários sites e aqui e só acho de vb6.
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
If TreeView1.Nodes.Item(1).Index Then
My.Forms.frmCadContador.MdiParent = Me
My.Forms.frmCadContador.Show()
End If
End Sub
Não é esse o código certo e se alguém souber. Já procurei em vários sites e aqui e só acho de vb6.
explique melhor MARCOSARANTESJ o que você que fazer.
Menu como do tipo ContexMenu?
Menu como do tipo ContexMenu?
Já consegui. Se tiver outra maneira. Eu achei essa a melhor maneira, porque é com o case e fica bem pequeno o código. coloquei no evento Keydown para pressionar Enter, mas vou colocar também no click. Ele pega de acordo com o nome que está na Treeview, na propriedade text. Para colocar icones, adicione um controle ImageList e coloque as imagens nele. Botão direito em cima do controle ImageList e > Choose Images>clica no botão abaixo ADD e escolha os Ãcones. Cada Ãcone tem um Ãndice.Clique com o botão direito no TreeView > Edit Nodes e coloque os nós. ADD ROOT para adicionar um menu e ADD CHILD para adicionar um submenu. Para colocar o Ãcone escolhido no ImageList, do lado esquerdo vá em Behavior> ImageIndex > e escolha o Ãcone.
>>>Mas esplicado que isso só se eu fizer mesmo.<<<
Private Sub TreeView1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TreeView1.KeyDown
If e.KeyCode = Keys.Enter Then
If TreeView1.SelectedNode.Text = [Ô][Ô] Then
MsgBox([Ô]Nenhum Ãtem selecionado[Ô], MsgBoxStyle.Information, [Ô]Aviso[Ô])
Else
e.Handled = True
Select Case TreeView1.SelectedNode.Text
Case [Ô]Selecionar Empresa[Ô]
My.Forms.frmSelecionaEmpresa.MdiParent = Me
My.Forms.frmSelecionaEmpresa.Show()
Case [Ô]Cadastro de Usuários[Ô]
My.Forms.Cadastro_Usuarios.MdiParent = Me
My.Forms.Cadastro_Usuarios.Show()
Case [Ô]Exclusão de Usuários[Ô]
My.Forms.frmExcluiLogins.MdiParent = Me
My.Forms.frmExcluiLogins.Show()
Case [Ô]Logoff[Ô]
Me.Hide()
LoginForm1.Show()
Case [Ô]Contador[Ô]
My.Forms.frmCadContador.MdiParent = Me
My.Forms.frmCadContador.Show()
Case [Ô]Empresa[Ô]
My.Forms.frmCadEmpresas.MdiParent = Me
My.Forms.frmCadEmpresas.Show()
End Select
End If
End If
End Sub
>>>Mas esplicado que isso só se eu fizer mesmo.<<<
Private Sub TreeView1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TreeView1.KeyDown
If e.KeyCode = Keys.Enter Then
If TreeView1.SelectedNode.Text = [Ô][Ô] Then
MsgBox([Ô]Nenhum Ãtem selecionado[Ô], MsgBoxStyle.Information, [Ô]Aviso[Ô])
Else
e.Handled = True
Select Case TreeView1.SelectedNode.Text
Case [Ô]Selecionar Empresa[Ô]
My.Forms.frmSelecionaEmpresa.MdiParent = Me
My.Forms.frmSelecionaEmpresa.Show()
Case [Ô]Cadastro de Usuários[Ô]
My.Forms.Cadastro_Usuarios.MdiParent = Me
My.Forms.Cadastro_Usuarios.Show()
Case [Ô]Exclusão de Usuários[Ô]
My.Forms.frmExcluiLogins.MdiParent = Me
My.Forms.frmExcluiLogins.Show()
Case [Ô]Logoff[Ô]
Me.Hide()
LoginForm1.Show()
Case [Ô]Contador[Ô]
My.Forms.frmCadContador.MdiParent = Me
My.Forms.frmCadContador.Show()
Case [Ô]Empresa[Ô]
My.Forms.frmCadEmpresas.MdiParent = Me
My.Forms.frmCadEmpresas.Show()
End Select
End If
End If
End Sub
Tópico encerrado , respostas não são mais permitidas