Ocultar Automaticamente Treeview
Publicado por Cristian (90 intervenciones) el 29/03/2019 13:16:24
Hola a todos... siguiendo con el treeview, necesito ocultarlo de forma automatica al pasar el mouse.
Gracias
Gracias
Valora esta pregunta
0
Private Sub MiTreeView_NodeMouseHover(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseHoverEventArgs) Handles MiTreeView.NodeMouseHover
If e.Node.IsExpanded Then
e.Node.Collapse()
Else
e.Node.Expand()
End If
End Sub
Private Sub Button1_Click(... ... ...
If MiTreeView.Visible Then
MiTreeView.Hide()
Else
MiTreeView.Show()
End If
' ............
Private Sub MiTreeView_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles MiTreeView.MouseEnter
MessageBox.Show("Hola")
End Sub
Private Sub MiTreeView_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles MiTreeView.MouseLeave
MessageBox.Show("Saludos")
End Sub
Dim WithEvents FSeg As New Form
Private Sub MiTreeView_NodeMouseHover(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseHoverEventArgs) Handles MiTreeView.NodeMouseHover
Select Case e.Node.Text
Case "FSegundarioA"
FSeg = FSegundarioA
Case "FSegundarioB"
FSeg = FSegundarioB
End Select
FSeg.Show()
MiTreeView.Hide()
End Sub
Private Sub FSeg_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles FSeg.FormClosed
MiTreeView.Show()
End Sub
Private Sub TreeMenu_NodeMouseHover
Select Case e.Node.Text
Case "Clientes"
frmClientes.MdiParent = Me
frmClientes.Show()
Case "Localidades"
frmLocalidades.MdiParent = Me
frmLocalidades.Show()
End Select
End Sub
Private Sub TreeMenu_MouseLeave(sender As Object, e As EventArgs) Handles TreeMenu.MouseLeave
TreeMenu.Width = 10
End Sub
Private Sub TreeMenu_MouseEnter(sender As Object, e As EventArgs) Handles TreeMenu.MouseEnter
TreeMenu.Width = 165
End Sub
Dim Ancho As Integer = 0
Private Sub MiTreeView_NodeMouseHover(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseHoverEventArgs) Handles MiTreeView.NodeMouseHover
Select Case e.Node.Text
' ... ... ...
If Ancho = 0 Then Ancho = MiTreeView.Width ' Es necesario de probar si 0, si no el TreeView siempre ocultado
End Sub
Private Sub MiTreeView_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles MiTreeView.MouseEnter
If Ancho > 0 Then MiTreeView.Width = Ancho
End Sub
Private Sub MiTreeView_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles MiTreeView.MouseLeave
If Ancho > 0 Then MiTreeView.Width = Ancho / 10 ' 10 es un ejemplo
End Sub