Pasando a una función una Structure por valor (ByVal)

[Isdiar]

Buenas tardes,

me gustaría saber por qué me da error cuando a una función de VB .NET le paso por valor (ByVal) una estructura (Structure).

La función es ésta:

Public Sub setFamiliares(ByVal numFam as Integer, ByVal fam1 As Modulo_Estructuras.datosFamiliares, ByVal fam2 As Modulo_Estructuras.datosFamiliares)
numFamilias = numFam

If (numFamilias = 1) Then
familia1 = fam1
setIconoFamiliares(True)

ElseIf (numFamilias = 2) Then
familia1.cod_us = fam1.cod_us
familia1.comentario_fm = fam1.comentario_fm
familia2.cod_us = fam2.cod_us
familia2.comentario_fm = fam2.comentario_fm
setIconoFamiliares(True)

Else
familia1.cod_us = ""
familia2.comentario_fm = ""
setIconoFamiliares(False)

End If

End Sub

Y la estructura es esta:

Structure datosFamiliares
<VBFixedString(7)> Dim cod_us As String
<VBFixedString(1000)> Dim comentario_fm As String

End Structure

Dicha estructura está almacenada en el fichero "Modulo_Estructuras.vb"

El error lo da en la declaración de la función:

Public Sub setFamiliares(ByVal numFam, ByVal fam1 As Modulo_Estructuras.datosFamiliares, ByVal fam2 As Modulo_Estructuras.datosFamiliares)

Y me dice:

'fam1' no puede exponer el tipo 'Modulo_Estructuras.datosFamiliares' fuera del proyecto a través de class 'Form_Acciones_Nuevo_Usuario'

'fam2' no puede exponer el tipo 'Modulo_Estructuras.datosFamiliares' fuera del proyecto a través de class 'Form_Acciones_Nuevo_Usuario'

"Form_Acciones_Nuevo_Usuario" es el formulario donde se encuentra la función "setFamiliares"

¿Qué podría ser? ¿Por qué peta?

[meula]

Hola,
La estructura debe estar declarada dentro de una clase. En ese caso seguro que funciona.
Por cierto, no recuerdo si las estructuras permiten declarar el ambito public/private, supongo que si, prueba también que sea public.

saludos.

[Isdiar]

Gracias meula,

he cambiado la declaración del módulo por una clase pública y ya se va el problema...

Sin embargo, sigo con un problema que ya tenía antes de postear el que me acabas de solucionar: no me guarda la información que recibe la función en la structure... Sabrías un posible por qué?

Muchas gracias! Un saludo!

[meula]

Hola,
Explica algo más ya que no te acabo de entender.

[Isdiar]

Sí, a ver... La cuestión es que me gustaría saber cómo puedo pasar información de un formulario a otro sin tener que crear módulos donde almacenar todas las variables.

Actualmente estoy intentando acceder desde un formulario a la variable de otro formulario distinto y guardar información en dicha variable. El problema es que en realidad no se está guardando dicho valor...

Alguna solución? Gracias!

[meula]

Hola,
En el constructor del formulario, pásale la estructura por parámetro.

[Isdiar]

No tengo ningún constructor de formulario (creo)...
Existen constructores de formulario en VB.NET?

[meula]

Sí,
Por defecto no aparece, el código es este

public sub new()

InicialiteComponent()
end sub

Al instanciar un form, por defecto estas llamando a este constructor

Puedes hacer otro

public sub new(byRef|byVal NombreVariable as TIPO)

InicialiteComponent()

' TU CODIGO
end sub