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

34 - Eliminar elementos chequeados o seleccionados de un ListView, listbox, grid ...

Contenido

Eliminar elementos seleccionados de un Listview
Eliminar elementos seleccionados de un ListBox
Eliminar selección o rango en un grid (Flexgrid o Microsoft Hierarchical Flexgrid )
Enlaces relacionados

Eliminar elementos seleccionados de un Listview

Ejemplo que muestra una forma de como eliminar todos los elementos que están chequedos en un control ListView., es decir con la propiedad Checked en true

Controles

Un control ListView con la propiedad ChekBoxes en True
Un command1 para eliminar los elementos chequeados

Código fuente en el formulario

Option Explicit '*************************************************************************** '* Name : Eliminar elementos Checkeados en un Listview '* Nota : Colocar la propiedad Checkboxes del Listview _ en True '*************************************************************************** Private Sub Eliminar_ListView_Check(ListView As ListView) Dim i As Integer On Error Resume Next 'Recorremos toda la lista For i = 1 To ListView.ListItems.Count 'si el elemento está chequeado If ListView1.ListItems.Item(i).Checked = True Then ' .. Lo eliminamos ListView1.ListItems.Remove (i) ' Restamos uno a i para que ya que _ eliminamos 1 elemento de la lista i = i - 1 'Si i es igual a la cantidad salimos del For If i = ListView1.ListItems.Count Then Exit For End If End If Next On Error GoTo 0 End Sub Private Sub Command1_Click() Call Eliminar_ListView_Check(ListView1) End Sub Private Sub Form_Load() Dim i As Integer ' variable de tipo ListItem Dim elemento As ListItem ' Mostrar items con checkbox ListView1.Checkboxes = True 'Agregamos 10 elementos al control ListView For i = 1 To 10 Set elemento = ListView1.ListItems.Add(, , " Item " & i) Next Command1.Caption = " Eliminar Items " End Sub

Eliminar elementos seleccionados de un ListBox

Esta simple rutina es igual pero para usarla con un control ListBox

Colocar un control List1 y establecerle la propiedad Style en 1.
Añadir un Command Button

Option Explicit ' Nota: Establecer la propiedad "Style" del listbox en Checked ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Eliminar_ListBox_Check(ListBox As ListBox) Dim i As Integer With ListBox 'Recorremos toda la lista For i = 0 To ListBox.ListCount - 1 'Si i es igual a la cantidad salimos del For If i = .ListCount Or .ListCount = 0 Then Exit For Debug.Print .List(i) ' Verificar el item si está marcado If ListBox.Selected(i) = True Then ' .. Lo eliminamos .RemoveItem (i) ' Restamos uno a i para verificar el siguiente If .ListCount > 0 Then i = i - 1 End If Next End With End Sub Private Sub Command1_Click() Call Eliminar_ListBox_Check(List1) End Sub Private Sub Form_Load() Dim i As Integer With List1 For i = 0 To 9 .AddItem "Item " & i Next End With Command1.Caption = " Eliminar Items del listbox " End Sub

Eliminar rango en Grid

Este ejemplo utiliza las propiedades Row y RowSel para averiguar el rango de selección de datos de un grid de tipo flexgrid. Luego en un bucle, al presionar la tecla Delete, se eliminan las filas o celdas seleccionadas.

Controles

Un Flexgrid
Un botón ( Command1 ) para eliminar la selección
Un botón ( Command2 ) para agregar items y datos

Código fuente en el form

Option Explicit ' --------------------------------------------------------------------------------- ' \\ -- Descripción : Eliminar rango ( filas seleccionadas ) de un Flexgrid ' -- Autor : Luciano Lodola -- http://www.recursosvisualbasic.com.ar/ ' --------------------------------------------------------------------------------- Private Sub Command1_Click() ' -- Forzar el KeyDown enviando la tecla delete como parámetro Call MSFlexGrid1_KeyDown(vbKeyDelete, 0) End Sub Private Sub Command2_Click() ' -- Cargar grilla con valores Call Fill_Grid End Sub Private Sub Form_Load() MsgBox "Mantener la tecla Shift presionada para seleccionar un rango de filas." & _ " Luego presionar el botón Supr para eliminar las celdas. O utilizar los botones", vbInformation ' \\ -- Configurar la grilla With MSFlexGrid1 .FixedCols = 0 .AllowUserResizing = flexResizeColumns .SelectionMode = flexSelectionByRow End With Command1.Caption = "Eliminar rango" Command2.Caption = "Cargar items" End Sub ' ---------------------------------------------------------------------------- '\\ -- Función para cargar datos en la grilla ' ---------------------------------------------------------------------------- Private Sub Fill_Grid() With MSFlexGrid1 ' -- Borrar todo .Clear ' -- Agregar cabecera .FormatString = "Columna 1|Columna2" .Rows = 1 ' -- Agregar items a la grilla Dim i As Integer For i = 0 To 20 .AddItem "Item " & CStr(i) & vbTab & "Valor" Next End With End Sub ' --------------------------------------------------------------------------------- ' \\ -- Eliminar filas y celdas de la grilla al presionar la tecla delete ' --------------------------------------------------------------------------------- Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer) On Error GoTo error_Handler ' -- Comprobar la tecla ( que sea la Delete ) If KeyCode = 46 Then With MSFlexGrid1 ' -- desabilitar el repintado del control _ '( por si hay muchos datos seleccionados) Me.MousePointer = vbHourglass .Redraw = False ' -- Eliminar el rango Dim i As Integer ' -- Cuando el grid solo tiene la cabecera y una sola fila If .Rows = 2 Then .Rows = 1 ' -- Cuando Se elecciona desde arriba hacia abajo ElseIf .Row <= .RowSel Then For i = .Row To .RowSel .RemoveItem .Row Next ' -- cuando se elecciona desde abajo hacia arriba Else For i = .RowSel To .Row .RemoveItem .RowSel Next End If ' -- Quitar la selección del rango anterior .RowSel = .Row ' -- volver a activar el redraw .Redraw = True Me.MousePointer = vbDefault End With End If Exit Sub error_Handler: If Err.Number = 30015 Then Resume Next Me.MousePointer = 0 End Sub

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb