Array Control
Publicado por Sebastian (2 intervenciones) el 09/04/2010 08:18:11
Hola
Recurro al foro nuevamente, ya que se dio una pronta respuesta a mi solicitud anterior. Lo que me gusto mucho =). y Muchas Gracias.
Necesito hacer un arreglo de controles, tengo 4 columnas de datos en un archivo de Bloc de Notas, al iniciar el programa, hago click en un boton de comando me lee las columnas de datos y en cada columna (4) me escribe la columna de datoa correspondiente.
Ahora lo que necesito es hacer un Array Control con las listBox....
Aqui el codigo que tengo (sin array control)
Private Sub cmdLeeArchivo_Click()
' Declaramos la variable que guarda los datos leidos
Dim strID As String
Dim intValor1, intValor2 As Integer
Dim sngValor3 As Single
' Abrir el archivo Taller4.txt
Open "E:\Visual Basic\Datos\Taller4.txt" For Input As #1
' Leemos los datos del archivo
Do While Not (EOF(1))
Input #1, strID, intValor1, intValor2, sngValor3
' Traspasa los valores de las textbox a las variables
lst1.AddItem strID
lst2.AddItem intValor1
lst3.AddItem intValor2
lst4.AddItem sngValor3
Loop
'Cerrar el archivo con el numero de manejador (handler) correspondiente
Close #1
End Sub
Saludos
Recurro al foro nuevamente, ya que se dio una pronta respuesta a mi solicitud anterior. Lo que me gusto mucho =). y Muchas Gracias.
Necesito hacer un arreglo de controles, tengo 4 columnas de datos en un archivo de Bloc de Notas, al iniciar el programa, hago click en un boton de comando me lee las columnas de datos y en cada columna (4) me escribe la columna de datoa correspondiente.
Ahora lo que necesito es hacer un Array Control con las listBox....
Aqui el codigo que tengo (sin array control)
Private Sub cmdLeeArchivo_Click()
' Declaramos la variable que guarda los datos leidos
Dim strID As String
Dim intValor1, intValor2 As Integer
Dim sngValor3 As Single
' Abrir el archivo Taller4.txt
Open "E:\Visual Basic\Datos\Taller4.txt" For Input As #1
' Leemos los datos del archivo
Do While Not (EOF(1))
Input #1, strID, intValor1, intValor2, sngValor3
' Traspasa los valores de las textbox a las variables
lst1.AddItem strID
lst2.AddItem intValor1
lst3.AddItem intValor2
lst4.AddItem sngValor3
Loop
'Cerrar el archivo con el numero de manejador (handler) correspondiente
Close #1
End Sub
Saludos
Valora esta pregunta


0