Sobre arreglos
Hola:
Tengo una duda con respecto a los arreglos, en este caso de string, aunque pudieran ser otros.
Tengo el siguiente código por ejemplo:
Private Sub creaBarra()
Dim barra(3) As String
barra(0) = "Barra 1"
barra(1) = "Barra 2"
barra(2) = "Barra 3"
'Quiero llamar a una sub que reciba
' este arrglo
ShwBarra barra
End Sub
Public Sub ShwBarra(ParamArray BPpl() As Variant)
Dim i As Integer
For i = 0 To UBound(BPpl) - 1
MsgBox BPpl(i)
Next i
End Sub
Lo que sucede es que a ShwBarra el arreglo llega sin elementos, por lo que ni siquiera entra al FOR y no se que me esta ocurriendo.
Ademas quisiera saber si puedo pasar más de un arreglo a esta subritina, por ejemplo un arreglo de enteros como tendría que definirla.
Gracias
Tengo una duda con respecto a los arreglos, en este caso de string, aunque pudieran ser otros.
Tengo el siguiente código por ejemplo:
Private Sub creaBarra()
Dim barra(3) As String
barra(0) = "Barra 1"
barra(1) = "Barra 2"
barra(2) = "Barra 3"
'Quiero llamar a una sub que reciba
' este arrglo
ShwBarra barra
End Sub
Public Sub ShwBarra(ParamArray BPpl() As Variant)
Dim i As Integer
For i = 0 To UBound(BPpl) - 1
MsgBox BPpl(i)
Next i
End Sub
Lo que sucede es que a ShwBarra el arreglo llega sin elementos, por lo que ni siquiera entra al FOR y no se que me esta ocurriendo.
Ademas quisiera saber si puedo pasar más de un arreglo a esta subritina, por ejemplo un arreglo de enteros como tendría que definirla.
Gracias
2 Respuestas
Respuesta de yodelmis
1
Private Sub creaBarra()
Dim barra as new collection
barra(0) = "Barra 1"
barra(1) = "Barra 2"
barra(2) = "Barra 3"
'Quiero llamar a una sub que reciba
' este arrglo
ShwBarra barra
End Sub
Public Sub ShwBarra(x as collection)
Dim i As Integer
For i = 1 To x.count
MsgBox x(i)
Next i
End Sub
Dim barra as new collection
barra(0) = "Barra 1"
barra(1) = "Barra 2"
barra(2) = "Barra 3"
'Quiero llamar a una sub que reciba
' este arrglo
ShwBarra barra
End Sub
Public Sub ShwBarra(x as collection)
Dim i As Integer
For i = 1 To x.count
MsgBox x(i)
Next i
End Sub
Respuesta de xabi
1
Prueba con esto:
Private Sub creaBarra()
Dim barra(3) As Variant
barra(0) = "Barra 1"
barra(1) = "Barra 2"
barra(2) = "Barra 3"
'Quiero llamar a una sub que reciba
' este arrglo
ShwBarra barra
End Sub
Public Sub ShwBarra(BPpl() As Variant)
Dim i As Integer
For i = 0 To UBound(BPpl) - 1
MsgBox BPpl(i)
Next i
End Sub
Private Sub creaBarra()
Dim barra(3) As Variant
barra(0) = "Barra 1"
barra(1) = "Barra 2"
barra(2) = "Barra 3"
'Quiero llamar a una sub que reciba
' este arrglo
ShwBarra barra
End Sub
Public Sub ShwBarra(BPpl() As Variant)
Dim i As Integer
For i = 0 To UBound(BPpl) - 1
MsgBox BPpl(i)
Next i
End Sub