Hola a todos.
Tengo el siguiente codigo:
Dim vDatos() As String
Dim Item As ListItem
Dim i As Long
vDatos = Split(enlace.text, "http://")
For i = LBound(vDatos) To UBound(vDatos)
Set Item = lstListing.ListItems.Add(, , vDatos(i))
Next
El cual tengo un textbox donde pego enlaces, y los separa uno a uno para posteriormente añadirlos en orden en una listview, todo es correcto, pero cuando se añade todo a la listview, siempre me deja un espacio que es lo ultimo que añade, quedandose así:
(http://img64.imageshack.us/img64/7704/problemvb.jpg)
No tengo mucha idea de que sucede, alguien puede ayudarme?
Muchas gracias.
HOLA!!!
Fijate asi:
Dim vDatos() As String
Dim Item As ListItem
Dim i As Long
vDatos = Split(enlace.text, "http://")
For i = LBound(vDatos) To UBound(vDatos)
If vDatos(i)<>"" then
Set Item = lstListing.ListItems.Add(, , vDatos(i))
End If
Next
GRACIAS POR LEER!!!
Muchisimas gracias, funciona :)
Ahora me surge otro problema, supongo que será por el salto de linea, el textbox tiene multiline activado, y cuando inserto enlaces en multilinea en la listview aparecen así:
(http://img828.imageshack.us/img828/5585/papantatas.jpg)
Alguna idea de como solucionar esto?
Muchas gracias
Puede que así :
Dim sPath As String
sPath = "www.visual-coders.com.ar" & vbNewLine & vbNewLine
sPath = Replace$(sPath, vbNewLine, vbNullString)
Debug.Print sPath
DoEvents! :P
vDatos(i) = Replace$(vDatos(i), vbNewLine, "")
Advertencia - mientras estabas escribiendo, una nueva respuesta fue publicada. Probablemente desees revisar tu mensaje.
:¬¬ :¬¬