textbox y listbox
tengo un problema, no se como puedo añadir la informacion que tengo en un text a un listbox, es decir, tengo esto en el text
c:/misdocumentos/audiTT/foto1.jpeg (VBCRLF)
c:/misdocumentos/audiTT/foto2.jpeg (VBCRLF)
c:/misdocumentos/audiTT/foto3.jpeg
como puedo añadirlo al list1
c:/misdocumentos/audiTT/foto1.jpeg (VBCRLF)
c:/misdocumentos/audiTT/foto2.jpeg (VBCRLF)
c:/misdocumentos/audiTT/foto3.jpeg
como puedo añadirlo al list1
Si quieres que cada linea sea un elemento de la lista trocea la cadena de caracteres buscando el retorno de carro y repite el proceso additem
Si simplemente pongo list1.additem text1.text me aparece algo asi:
c:/misdocumentos/audiTT/foto1.jpegIIc:/misdocumentos/audiTT/foto2.jpegIIc:/misdocumentos/audiTT/foto3.jpeg y necesito que me lo coloque uno por uno, necesitaria coger desde el principio hasta el primer intro(vbcrlf) y añadirlo al list, coger desde el primer intro hasta el segundo y añadirlo y asi sucesivamente, pero no se como, ese es mi problema. gracias de antemano.
c:/misdocumentos/audiTT/foto1.jpegIIc:/misdocumentos/audiTT/foto2.jpegIIc:/misdocumentos/audiTT/foto3.jpeg y necesito que me lo coloque uno por uno, necesitaria coger desde el principio hasta el primer intro(vbcrlf) y añadirlo al list, coger desde el primer intro hasta el segundo y añadirlo y asi sucesivamente, pero no se como, ese es mi problema. gracias de antemano.
Puedes partir la cadena con la función Split y añadir
luego cada parte con un bucle. Por ejemplo:
Dim aux() As String, i As Integer
aux = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(aux)
List1.AddItem aux(i)
Next i
luego cada parte con un bucle. Por ejemplo:
Dim aux() As String, i As Integer
aux = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(aux)
List1.AddItem aux(i)
Next i
