elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Eliminar Expand/Collapse del TreeView al hacer double click
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Eliminar Expand/Collapse del TreeView al hacer double click  (Leído 3,316 veces)
elmaro


Desconectado Desconectado

Mensajes: 301


Unas simples palabras...


Ver Perfil
Eliminar Expand/Collapse del TreeView al hacer double click
« en: 10 Enero 2011, 18:22 pm »

Bueno, quien no tuvo este problema? Querer hacer un doble click en un nodo y realizar una acción pero sin que el nodo se expanda?
Tuve este problema y en internet no hay ninguna solución. Entonces decidí postear la que se me ocurrió, que la verdad funciona muy bien y es muy sencilla.

Suponiendo que el treeview se llama tvTree y que ya tiene nodos agregados:

Código
  1. Public cancelAction As Boolean = True
  2.  
  3. Private Sub tvTree_BeforeExpand(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles tvTree.BeforeExpand
  4.       e.Cancel = cancelAction
  5. End Sub
  6.  
  7. Private Sub tvTree_BeforeCollapse(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles tvTree.BeforeCollapse
  8.        e.Cancel = cancelAction
  9. End Sub
  10.  
  11. Private Sub tvTree_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles tvTree.MouseDown
  12.  
  13. Dim node as Treenode = tvTree.GetNodeAt(e.X, e.Y)
  14.        If node.Bounds.IntersectsWith(New Rectangle(e.X, e.Y, e.X, e.Y)) Then
  15.                cancelAction = True
  16.        Else
  17. cancelAction = False
  18.        End If
  19.  
  20. End Sub

Espero les sirva.

Saludos!

#EDIT

Encontre una mejora para el codigo sitado arriba. Funciona mucho mejor y no tiene resultados indeseados. Todas las modificaciones son en tvTree_MouseDown
Se contempla si los nodos tienen imagenes o no.

Código
  1.        Dim node As TreeNode = TreeView1.GetNodeAt(e.X, e.Y) 'Obtengo el nodo donde hice click
  2.  
  3.        If node Is Nothing Then Exit Sub 'Si no hay nodo, salgo
  4.  
  5.        Dim imgWid As Integer = 16 'Ancho de imagen del nodo / imgWid = 0 si no tiene imagen
  6.        Dim rect As Rectangle = New Rectangle(node.Bounds.X - imgWid, node.Bounds.Y, node.Bounds.Width + imgWid, node.Bounds.Height)
  7.  
  8.        If rect.Contains(e.X, e.Y) Then
  9.            cancelAction = True
  10.        Else
  11.            cancelAction = False
  12.        End If

Otros saludos!




« Última modificación: 10 Enero 2011, 19:41 pm por elmaro » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Guia Como hacer para mover el mouse y hacer click
Programación Visual Basic
gmf_321 7 8,689 Último mensaje 4 Enero 2007, 18:39 pm
por Sancho.Mazorka
Manual Como hacer para mover el mouse y hacer click en vb
Programación Visual Basic
gmf_321 1 11,702 Último mensaje 24 Septiembre 2006, 17:41 pm
por Dahmer
Hacer click en un link con webbrowser
Programación Visual Basic
naderST 3 2,593 Último mensaje 10 Mayo 2008, 12:07 pm
por ~~
Hacer un simple click
Programación Visual Basic
Littl3 1 1,968 Último mensaje 29 Mayo 2009, 16:48 pm
por Dessa
Problema treeview al eliminar nodo hijo
Programación Visual Basic
elezekiel 0 2,775 Último mensaje 12 Noviembre 2014, 16:02 pm
por elezekiel
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines