Seleccionar todo el contenido de un listbox

Necesito el código para seleccionar todo el contenido de un listbox, para poder copiar y pegarlo en cualquier otro programa. Tengo este código pero solo me da la opción de la ultima línea. Para Dante Amor

Private Sub CommandButton2_Click()
Dim f As Long
     For f = 0 To ListBox1.ListCount - 1
          ListBox1.Selected(f) = False
     Next f
End Sub

1 respuesta

Respuesta
2

H o  l a:

Con lo siguiente seleccionas todos los registros del listbox, pero no significa que los podrás copiar y pegar como si fuera un texto

Private Sub CommandButton2_Click()
    Dim f As Long
    ListBox1.MultiSelect = 1
    For f = 0 To ListBox1.ListCount - 1
        ListBox1.Selected(f) = True
    Next f
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas