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...
