Seleccionar y Eliminar todos los elementos de un ListBox

Insertar un ListBox y dos Botón en un nuevo proyecto. Poner la propiedad MultiSelect del ListBox a “1 – Simple” y escriba el siguiente código:

Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
             ByVal wParam As Long, ByVal lParam As Long) As Long

Private Sub Form_Load()
    List1.AddItem "Texto 1"
    List1.AddItem "Texto 2"
    List1.AddItem "Texto 3"
    List1.AddItem "Texto 4"
    List1.AddItem "Texto 5"
    List1.AddItem "Texto 6"
    List1.AddItem "Texto 7"
End Sub

Private Sub Command1_Click()
    'Seleccion de todo el contenido
    Dim Resp As Long
    Resp = SendMessageLong(List1.hwnd, &H185&, True, -1)
End Sub

Private Sub Command2_Click()
    'Eliminacion de todos los elementos seleccionados
    Dim Resp As Long
    Resp = SendMessageLong(List1.hwnd, &H185&, False, -1)
End Sub
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s