Copiar lista de listbox al portapapeles

[Ciberdanny]

Hola, buena tarde.

Levo un buen rato buscando la forma de copiar el cotenido de un listbox al portapapeles y no he encontrado nada, encontre esto:

Clipboard.Clear
Clipboard.SetText List1.text

Pero esto solo me copia lo que esta seleccionado en el listbox no me copia toda la lista, habra alguna forma de copiar toda la lista?? no tengo subitems ni nada por el estilo, solo es la lista que me aparece, la quiero copiar al portapapeles....

de antemano gracias!

[erbuson]

Hola, como no creo que puedas hacerlo de una tacada, deberás hacer algo así:

Código vb:

Private Sub Command1_Click()
  Dim i As Integer, c As String
  For i = 0 To List1.ListCount - 1
    c = c & List1.List(i) & vbCrLf
  Next
  Clipboard.Clear
  Clipboard.SetText c
End Sub
 

Saludos

[Ciberdanny]

mmmmm ya ok... bueno... pues cada dia me doy cuenta de que solo se que no se nada!!

Como siempre, funciona perfecto muchas gracias amigo.







Saludos desde México DF.

[erbuson]

De nada, poco a poco se aprenden nuevos trucos, yo tampoco nací enseñado, mucho de lo que sé, de otros lo aprendí.

Saludos