Visual Basic array en ListBox de Visual Basic 6

Ingresar array en ListBox de Visual Basic 6


Modulo 1


Option Explicit

Public Function AddListBox(Lista As ListBox, xDatos As String, Optional ClearList As Boolean = False)
Dim xVector() As String
Dim I As Integer
 
    xDatos = Replace(xDatos, " ", "")
    xVector = Split(xDatos, ",")
 
    If ClearList Then Lista.Clear
 
    'Agrega el vector ordenado al ListBox
    For I = LBound(xVector) To UBound(xVector)
        Lista.AddItem xVector(I)
    Next

End Function

Form1

Ingresar un ListBox y CommandButton

Option Explicit

Private Sub CommandButton1_Click()
Dim xDatos As String
 
    xDatos = "Dato1, Dato2, Dato3"

    Call AddListBox(ListBox1, xDatos, True)
End Sub

Yal Publicidad
Yuri Lizama A.
website:
http://www.yalpublicidad.com/


ENLACES RELACIONADOS

Ingresar array en ListBox de Visual Basic 6

Creando Cronómetro en Visual Basic 6