blog/ingresar-array-en-listbox-de-visual-basic-6
Por Yal Publicidad
Publicado el Jue 27 de Settember del 2018 a las 21:42
Ingresar array en ListBox de Visual Basic 6
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
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