Problema con arreglos en ListBox
Publicado por rotsen (1 intervención) el 16/10/2008 18:41:18
Tengo un arreglo con el que obtiene el software que se encuentra instalado en la PC de la siguiente manera....
Dim SW As ArrayList = New ArrayList
Dim searcherSW As New ManagementObjectSearcher("rootCIMV2", "SELECT * FROM Win32_Product")
For Each queryObj As ManagementObject In searcherSW.Get()
SW.Add(queryObj("Caption"))
Next
Ahora..necesito pasar esos datos a un ListBox...
por el momento he hecho esto:
For x = 0 To SW.Count
While x <= SW.Count
List1.Items.Add(SW.Item(0))
x = x + 1
End While
Next
pero siempre me agrega un solo datos y lo repite x Veces
Que debo hacer ??
Dim SW As ArrayList = New ArrayList
Dim searcherSW As New ManagementObjectSearcher("rootCIMV2", "SELECT * FROM Win32_Product")
For Each queryObj As ManagementObject In searcherSW.Get()
SW.Add(queryObj("Caption"))
Next
Ahora..necesito pasar esos datos a un ListBox...
por el momento he hecho esto:
For x = 0 To SW.Count
While x <= SW.Count
List1.Items.Add(SW.Item(0))
x = x + 1
End While
Next
pero siempre me agrega un solo datos y lo repite x Veces
Que debo hacer ??
Valora esta pregunta
0
