Visual Basic: Crear un array de los datos de un ListBox en Visual Basic 6

Crear un array de los datos de un ListBox en Visual Basic 6

YAL PUBLICIDADWebmaster: Yuri Lizama
website: http://www.yalpublicidad.com

FORM1
Ingresamos un Control ListBox1 y CommandButton1 y pegamos el siguiente codigo en el form1

Option Explicit

Private Sub cmd1_Click()
Dim I       As Long
Dim xItems  As String

    For I = 0 To lst1.ListCount - 1
                xItems = xItems & lst1.List(I)
             
                If I <> (lst1.ListCount - 1) Then xItems = xItems & ","
    Next I
         
    MsgBox xItems

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