Buenas. tengo un problemita y espero puedan ayudarme.
MI problema es el siguiente..... tengo dos clases Class1 y Class2 definidas de esta forma.
Public Class Class1
Private _sNumero As String
' con su respectivo Get y Set
......
End Class
Public Class Class2
Public Function nuevo( ByVal arrayClass1 As Class1()) As Long
For i = 0 To UBound(arrayClass1) ' PREVIAMENTE DECLARO EL i
' arrayClass1(i) = New Class1()
MessageBox.Show(arrayClass1(i).numero)
Next
'El problema surge aca. si lo pongo asi como esta me dice algo como q no tengo instanciado arrayClass1(i)
' y si activo el "arrayClass1(i) = New Class1()" pasa normal. pero como que no captura el valor de la
'propiedad que deseo mostrar como que creara una nueva instancia y muestra un "vacio"
End Function
End Class
En un boton de un Win formulario tengo algo como esto
Private Sub Button2_Click( ... .) Handles Button2.Click
Dim eq As New Class2
Dim c As Class1() ' Este es el array q quiero llenar y enviar
Dim i As Integer
i = 0
ReDim c(i)
c(i) = New Class1
c(i).numero = "NUMERO 0"
i = 1
ReDim c(i)
c(i) = New Class1
c(i).numero = "NUMERO 1"
eq.nuevo(c)
' QUIERO MANDAR COMO PARAMETRO UN ARRAY DE LA CLASE Class1. HASTA ESTE PUNTO TODO ESTA PERFECTO.... EL LLENADO Y EL ENVIO. EL PROMEMA OCURRE CUANDO RECIBE EL ARRAY
End Sub
Mi pregunta es como poder Recorrer los valores de ese Array que envio como parametro
ya que me pide primero instanciarlo, cuando envio un solo objeto funciona bien. pero
el problema surge cuando envio como parametro el array. como puedo leer esos valores.
Gracias por sus respuestas.
|