DEclarar aRReglo

[KorelTx]

Hola a Todos :

Como puedo declarar un arreglo en visual, y ademas pasarlo como parametro en una funcion.



Espero me puedan ayudar

"La historia no se lee, se escribe"

[atlantis]

La declaración de arrays es simple:

Dim nombre_arreglo(num_elementos) as typo

Ejemplo:

Dim arr(10) as integer

Para varias dimensiones:
Ejemplo

Dim x(10,5) as long

Por otro lado, como sabrás al pasar valores a una función se puede hacer de dos formas (Referencia y por Valor), veamos como se hace...

En la sub o la function que deseas escribir puedes recibir el array en una variable de tipo variant.... cheka esto:

Option Explicit
Private Sub Form_Load()
Dim c(10) As Integer
c(4) = 4
ImprimeArray c
MsgBox c(4)
End Sub

Private Sub ImprimeArray(a As Variant)
a(4) = 40
MsgBox a(4)
End Sub

Cuando lo ejecutes te daras cuenta que el valor se pasó por referencia... y no lo deseas entonces debes modificar la siguiente línea: Private Sub ImprimeArray(a As Variant)
por la siguiente:
Private Sub ImprimeArray(ByVal As Variant)

Fácil no?...

Funcionó... ???

Saludos.

[miki_78]

Hola.

Además de lo que te ha dicho atlantis que es totalmente correcto puedes poner lo siguiente:

Dim nombre_array() as typo

lo que te permite redimensionar el array si es necesario pasandole una variable.

;)