Ingresar array en ListBox de Visual Basic 6

Publicado el Jue 27 de Settember del 2018 a las 21:42

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
www.yalpublicidad.com