Sección de códigos , trucos y ejemplos para visual basic

365 - PopupMenu en ListView y TreeView usando el método HitTest

Contenido

Seleccionar Item en ListView
Seleccionar nodo en Treeview
Enlaces relacionados

Ejemplo para el ListView

Ejemplo para poder seleccionar un elemento con el botón derecho del mouse en un control Listview y en un treeview , por ejemplo para desplegar un menú popup o alguna otra acción, usando el método HitTest

El código fuente que permite seleccionar el elemento , está ubicado en el evento MouseDown del Listview, y al presionarlo, se usa el método HitTest, para devolver una referencia al item en cuestión

    Dim Item As ListItem
    ' referencia el elemento
    Set Item = ListView1.HitTest(x, y)
    

    ' Lo Selecciona
    Set ListView1.SelectedItem = Item

...y luego poder seleccionar el mismo, y poder desplegar un menú contextual por ejemplo

Ejemplo

Añadir un control Listview y crear un menú contextual o popup llamado MiMenuPopUp

Código fuente en el formulario

Option Explicit Private Sub ListView1_MouseDown(Button As Integer, _ Shift As Integer, _ x As Single, y As Single) 'variable para el item seleccionado Dim Item As ListItem ' verifica que se presionó el botón derecho If Button = vbRightButton Then ' HitTest devuelve la ferencia al item, a partir _ de las coordenadas del mouse Set Item = ListView1.HitTest(x, y) ' chequea que haya un item seleccionado If Not Item Is Nothing Then ' Selecciona el elemento Set ListView1.SelectedItem = Item '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Acá colocar el código para desplegar el menú popup. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' texto del elemento seleccionado Me.Caption = Item.Text ' despliega el menú PopupMenu MiMenuPopUp End If End If End Sub Private Sub Form_Load() Dim i As Integer Dim Item As ListItem ' agrega un encabezado de columna ListView1.ColumnHeaders.Add , , "Columna 1" ' vista de reporte ListView1.View = lvwReport ' Agrega algunos elementos For i = 0 To 100 ListView1.ListItems.Add , , "Elemento: " & i Next End Sub

Ejemplo con el Treeview

Formulario con el Treeview y el PopupMenu

El control Treeview también tiene este método " HitTest " , y la forma de usarlo es exactamente igual que en el caso anterior

Colocar un Treeview , y crear un PopUpMenu llamado MiMenuPopUp

Código fuente en el formulario

Option Explicit Private Sub treeview1_MouseDown(Button As Integer, _ Shift As Integer, _ x As Single, y As Single) 'variable hacer referencia al nodo Dim Nodo As Node ' verifica que se presionó el botón derecho del mouse If Button = vbRightButton Then ' HitTest devuelve la ferencia al Nodo a partir _ de las coordenadas del mouse Set Nodo = TreeView1.HitTest(x, y) ' chequea que haya un Nodo seleccionado If Not Nodo Is Nothing Then Nodo.Selected = True ' selecciona el nodo Me.Caption = Nodo.Text ' texto Me.PopupMenu mimenupopup ' despliega el menu End If End If End Sub Private Sub Form_Load() Dim Nodo As Node TreeView1.LineStyle = tvwRootLines ' Crea un nodo principal Set Nodo = TreeView1.Nodes.Add(, tvwFirst, "Root", "Root") ' agrega tres nodos hijos al nodo principal Set Nodo = TreeView1.Nodes.Add("Root", tvwChild, "Child1", " Nodo 1") Set Nodo = TreeView1.Nodes.Add("Root", tvwChild, "Child2", " Nodo 2") Set Nodo = TreeView1.Nodes.Add("Root", tvwChild, "Child3", " Nodo 3") ' expandir el nodo TreeView1.Nodes("Root").Expanded = True End Sub

Recursos vb 6.0 - Relacionados

Buscar en Recursos vb