ListoBox..

Hola fvomaster, ¿necesito seleccionar y eliminar todos los elementos de un ListBox, por favor, me ayudas?
Terramar
1

1 Respuesta

56.950 pts.
`Por favor, revisa el siguiente ejemplo que he creado..
Insertar un ListBox y dos Botones en un nuevo proyecto. Poner la propiedad MultiSelect del ListBox a "1 - Simple" y escribe 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
Espero que te sirva..
Un abrazo...
Fvomaster

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas