Aunque el tema este solucionado queria hacer una recomendacion:
Hola
Perfecto creo que ya lo he entendido mejor
ahora haber que tal de esta manera:
Veis algun fallo importante en el codigo ? Public Final As String ' Esta variable la calcule en otra funcion, pero la necesito en varias funciones asique la declaro como publica
Sub leer_partido()
Dim MasNumeros(1 To 19) As String ' Tengo que usar String porque 18 lineas son numeros y 1 es alfanumerica
Dim i%
Dim nFic%
Dim inicial As Integer
inicial = 1
nFic = FreeFile
Open Final For Input As nFic
For i = 1 To 19
Input #nFic, MasNumeros(i)
Next
Close nFic
Contador1 = Val(Contador1) + Val(inicial) ' Necesito llevar la cuenta de cuantas veces se llama a esta funcion.
'Ahora voy volcando dato a dato del array en su correspondiente label
Label1.Caption = MasNumeros(1) & vbCrLf
Label2.Caption = MasNumeros(2) & vbCrLf
Label3.Caption = MasNumeros(3) & vbCrLf
Label4.Caption = MasNumeros(4) & vbCrLf
Label5.Caption = MasNumeros(5) & vbCrLf
Label6.Caption = MasNumeros(6) & vbCrLf
Label7.Caption = MasNumeros(7) & vbCrLf
Label8.Caption = MasNumeros(8) & vbCrLf
Label9.Caption = MasNumeros(9) & vbCrLf
Label10.Caption = MasNumeros(10) & vbCrLf
Label11.Caption = MasNumeros(11) & vbCrLf
Label12.Caption = MasNumeros(12) & vbCrLf
Label13.Caption = MasNumeros(13) & vbCrLf
Label14.Caption = MasNumeros(14) & vbCrLf
Label15.Caption = MasNumeros(15) & vbCrLf
Label16.Caption = MasNumeros(16) & vbCrLf
Label17.Caption = MasNumeros(17) & vbCrLf
Label18.Caption = MasNumeros(18) & vbCrLf
resultados.AddItem = MasNumeros(19) & vbCrLf ' Esto es un listbox y le meto datos alfanumericos ( una frase con numeros )
End Sub
Creo que se podria simplificar haciendo una
matriz de controles con los labels, ahorrarias mucho codigo, en una linea lo que haces en 18:
For x = 1 to 18 : Label1(x).Caption = MasNumeros(x) & vbCrLf : Next
Salu2!
Advertencia - mientras estabas escribiendo, una nueva respuesta fue publicada. Probablemente desees revisar tu mensaje.