Declarar variables en tiempo de ejecución
Hola, como estais?Quisiera que me resolvierais una duda que tengo. ¿Se pueden declarar variables en tiempo de ejecución? y si se puede ¿como?
Os agradezco vuestra ayuda.
Os agradezco vuestra ayuda.
Bueno... exactamente lo que dices no se puede, pero pero puedes usar matrices de variables dinamicas... mira el ejemplo... puedes copealo en el evento clik de algun CommanButton o en cualquier parte... aqui como ejemplo esta en el evento Load del Form...
'En este ejemplo se utiliza la instrucción ReDim para asignar y
'reasignar espacio de almacenamiento para variables de matrices dinámicas.
'Se supone que Option Base es 1.
Private Sub Form_Load()
Dim MiMatriz() As Integer ' Declara una matriz dinámica.
ReDim MiMatriz(5) ' Asigna 5 elementos.
For i = 1 To 5 ' Bucle 5 veces.
MiMatriz(i) = i * 3 ' Inicializa la matriz.
MsgBox "MiMatriz(" & i & ") = " & MiMatriz(i)
Next i
ReDim MiMatriz(10) ' Cambia el tamaño de la matriz a 10 elementos pero borra los valores anteriores
For i = 1 To 10 ' Bucle 10 veces.
MiMatriz(i) = i * 2 ' Inicializa la matriz.
MsgBox "MiMatriz(" & i & ") = " & MiMatriz(i)
Next i
ReDim Preserve MiMatriz(15) ' Cambia el tamaño a 15 elementos, pero no borra elementos anteriores
For i = 1 To 15 ' Bucle 15 veces.
MsgBox "MiMatriz(" & i & ") = " & MiMatriz(i)
Next i
End Sub
Bueno... ahi esta... (Codigo probado en VB5)... Espero allas captado la idea...
'En este ejemplo se utiliza la instrucción ReDim para asignar y
'reasignar espacio de almacenamiento para variables de matrices dinámicas.
'Se supone que Option Base es 1.
Private Sub Form_Load()
Dim MiMatriz() As Integer ' Declara una matriz dinámica.
ReDim MiMatriz(5) ' Asigna 5 elementos.
For i = 1 To 5 ' Bucle 5 veces.
MiMatriz(i) = i * 3 ' Inicializa la matriz.
MsgBox "MiMatriz(" & i & ") = " & MiMatriz(i)
Next i
ReDim MiMatriz(10) ' Cambia el tamaño de la matriz a 10 elementos pero borra los valores anteriores
For i = 1 To 10 ' Bucle 10 veces.
MiMatriz(i) = i * 2 ' Inicializa la matriz.
MsgBox "MiMatriz(" & i & ") = " & MiMatriz(i)
Next i
ReDim Preserve MiMatriz(15) ' Cambia el tamaño a 15 elementos, pero no borra elementos anteriores
For i = 1 To 15 ' Bucle 15 veces.
MsgBox "MiMatriz(" & i & ") = " & MiMatriz(i)
Next i
End Sub
Bueno... ahi esta... (Codigo probado en VB5)... Espero allas captado la idea...
