Problema al pasar el nombre de un form

[Fernando_net]

Hola a todos.

Veréis. Estoy encapsulando código y eliminando codigo redundante.

He creado un modulo que lo llaman 2 forms, ya que este modulo hará cosas que pueden afectar a estos dos forms pero, con un select case, selecciono el form que quiero que afecte.

Imaginad el siguiente ejemplo:

Formulario A (de nombre: guardar)
Formulario B (de nombre: eliminar)

El modulo se llama: escoge_form

Ahora llamo el modulo desde el formulario A y le paso su nombre

Código VB .NET:

private sub pasa_formularioA
     'voy al modulo y le paso el nombre del formulario
     escoge_form.escoge_form(1)
end sub
 

Lo mismo hago con el formulario B

Código VB .NET:

private sub pasa_formularioB
     'voy al modulo y le paso el caso que quiero
     escoge_form.escoge_form(2)
end sub
 

Entonces, el modulo tiene lo siguiente

Código VB .NET:

module escoge_form
     public sub escoge_form(byval caso as string)
          'declaramos para tener el nombre del formulario en una variable
          dim formulario as form
 
          'seleccionamos el nombre del formulario dependiendo del caso
          select case formulario
               case 1
                    formulario = formularioA.name
               case 2
                    formulario = formularioB.name
          end select
 
          'una vez con el nombre del formulario, hago un with para que afecte_
          '_a un formulario o otro
          with formulario
               .txt_observaciones = "Perfecto"
          end with
     end sub
end module
 

Pues claro, en el with falla, porque ".txt_observaciones" me marca error, ya que no forma parte. Cuando en verdad si que forma parte, lo que pasa es que el with no coge el nombre del form...

Tiene alguna solución este problema??

Muchas gracias

[Fernando_net]

Estoy cambiando un poco la estructura pero me sigue dando problemas.

Ahora lo que hago es pasarle el formulario, pero sigue igual:

Código VB .NET:

private sub pasa_formularioA
     'voy al modulo y le paso el nombre del formulario
     escoge_form.escoge_form(me)
end sub
 

Lo mismo hago con el formulario B

Código VB .NET:

private sub pasa_formularioB
     'voy al modulo y le paso el nombre del formulario
     escoge_form.escoge_form(me)
end sub
 

Entonces, el modulo tiene lo siguiente

Código VB .NET:

module escoge_form
     public sub escoge_form(byval formulario as form)
          formulario.name = "FormularioA"
 
          'una vez con el nombre del formulario, hago un with
          with formulario
               .txt_observaciones = "Perfecto"
          end with
     end sub
end module
 

Pues nada, me sigue dando error el ".txt_observaciones" diciendo que no es miembro de formulario.

Pero como no va a ser miembro si es el mismo nombre que tiene el formulario que lo contiene???

[Fernando_net]

Ahora lo que he hecho es declarar en el modulo un parametro public en el que le paso el formulario

Código VB .NET:

private sub pasa_formularioA
     'le paso el nombre del formulario
     escoge_form.formulario = me
 
     'hago la llamada al modulo
     escoge_form.escoge_form()
end sub
 

Y en el modulo pues la declaro Public como form

Código VB .NET:

module escoge_form
     public formulario as form
 
     public sub escoge_form(byval formulario as form)
          'como he pasado el formulario como public
          'debería tener el formulario en memoria
          'una vez con el formulario, hago un with
          with formulario
               .txt_observaciones = "Perfecto"
          end with
     end sub
end module
 

Pues nada, sigue sin funcionar...

[Fernando_net]

Sigo probando pero no lo consigo.... :(

[Dradi7]

pero si pruebas haciendo esto, tu error es que estas sobreescribiendo el parametro formulario es decir nunca va tomar el public pq lo has dicho q sea local en el procedimiento
la cual no se ha asignado nada

Código vb.net:

module escoge_form
     public formulario as form
 
     public sub escoge_form()
          'como he pasado el formulario como public
          'debería tener el formulario en memoria
          'una vez con el formulario, hago un with
          with formulario
               .txt_observaciones = "Perfecto"
          end with
     end sub
end module
 

[Fernando_net]

Iniciado por Dradi7

pero si pruebas haciendo esto, tu error es que estas sobreescribiendo el parametro formulario es decir nunca va tomar el public pq lo has dicho q sea local en el procedimiento
la cual no se ha asignado nada

Código vb.net:

module escoge_form
     public formulario as form
 
     public sub escoge_form()
          'como he pasado el formulario como public
          'debería tener el formulario en memoria
          'una vez con el formulario, hago un with
          with formulario
               .txt_observaciones = "Perfecto"
          end with
     end sub
end module
 

Como que no?? Lo asigno aquí:

Código VB .NET:

private sub pasa_formularioA
     'le paso el nombre del formulario
     escoge_form.formulario = me
 
     'hago la llamada al modulo
     escoge_form.escoge_form()
end sub
 

[Dradi7]

me estas interprentando mal lo q pasa es como te dije una cosa es q en tu modulo digas

public formulario as form

a q digas

public sub escoge_form(byval formulario as form)

ya q estas enviando al momento de hacer esto

escoge_form.formulario = me al parametro publico public formulario as form
pero como tu estas diciendo
public sub escoge_form(byval formulario as form)
dentro de este procedimiento formulario es igual a null porque no se le asigna nada
entonces al hacer with formulario estas tratando de decir with null

[Fernando_net]

Iniciado por Dradi7

me estas interprentando mal lo q pasa es como te dije una cosa es q en tu modulo digas

public formulario as form

a q digas

public sub escoge_form(byval formulario as form)

ya q estas enviando al momento de hacer esto

escoge_form.formulario = me al parametro publico public formulario as form
pero como tu estas diciendo
public sub escoge_form(byval formulario as form)
dentro de este procedimiento formulario es igual a null porque no se le asigna nada
entonces al hacer with formulario estas tratando de decir with null

Pero si te fijas, después no le paso como parámetro y me sigue dando error igual...

[Dradi7]

pero te dije q te guiaras segun mi codigo

Código vb.net:

module escoge_form
     public formulario as form
 
     public sub escoge_form()
          'como he pasado el formulario como public
          'debería tener el formulario en memoria
          'una vez con el formulario, hago un with
          with formulario
               .txt_observaciones = "Perfecto"
          end with
     end sub
end module
 

Código vb.net:

private sub pasa_formularioA
     'le paso el nombre del formulario
     escoge_form.formulario = me
 
     'hago la llamada al modulo
     escoge_form.escoge_form()
end sub
 

el error te daba porque estabas haciendo public sub escoge_form(formulario as form)

[Fernando_net]

Sigue sin funcionar :(

[Dradi7]

cual es tu codigo q has puesto completo???

ademas segun entendi tu quieres enviar a otro formulario un dato o no

[Fernando_net]

El codigo que uso completo puedes verlo en cualquiera de las 3 primeras respuestas, cualquier estructura me sirve.

A ver, lo que yo quiero pasar al modulo es el nombre del formulario que llama al módulo.

Si por ejemplo tengo un FormularioA y un FormularioB, y yo hago el llamamiento al modulo desde el formularioA, quiero que en el modulo, la variable formulario contenga FormularioA, para que me funcione el with

Ahora mismo, por mucho que le pase el formulario (mediante escoge_form.formulario = me), la variable formulario del modulo (que es del tipo form), pasa algo curioso:

Si hago un messagebox.show(formulario.name.tostring), me muestra FormularioA, es decir, que sabe que ha sido el formularioA quien ha sido.

Pero cuando hago el with formulario, por mucho que ponga el ".txt_observaciones", me marca error, diciendo que no forma parte.

Entonces.... en que quedamos? Si la variable formulario contiene FormularioA, porqué el With no lo entiende???

Aquí es donde está el problema. Si a mi el With me detectara que es FormularioA (o FormularioB según el caso), yo encantado, pero es que no hay manera :(

Saludos

[Dradi7]

Entonces tendras q usar TRYCAST, como mejorar tu codigo

Código vb.net:

module escoge_form
     public formulario as form
 
     public sub escoge_form()
          'como he pasado el formulario como public
          'debería tener el formulario en memoria
          'una vez con el formulario, hago un with
          if formulario isnot nothing then
             if formulario.name = "FormularioA" then
                with trycast(formulario,formularioA)
                        .txt_Observaciones.txt = "lo q quieras"
                end with
             end if
          else
               msgbox("No Asigno ninun Formulario",32,"Aviso")
          end if
     end sub
end module
 

[kisko84]

Código:

      private sub pasa_formularioA
     'voy al modulo y le paso el nombre del formulario
     escoge_form.escoge_form(me)
     end sub

para el caso del modulo algo asi

Código:

module escoge_form
     public sub escoge_form(byref  formulario  form)
  ' aqui lo que quieres hacer con el formulario 
 with formulario  
               .txt_observaciones = "Perfecto"

          end with
     end sub
end module

si lo que quieres es escribir codigo comun en los dos formulario esta seria una forma pasando el formulario como parametro por referencia no necesitas el select case, pero si las operaciones son especificas para cada formulario pues solo pones un if, a mi ver el error es que pasas como parametro el numero de formulario en la variable caso que es string pero lo que evaluas en el select case es una estancia nueva de un formulario, el cual nada tiene que ver con formluarioA o B, por lo que lo logico es que este formulario no contenga nada de controles ecepto asi mismo.
pero si necesitas crear dinamicamente el formulario uno o el dos
entonces necesitarias convertir la variable formulario del tipo form al tipo formularioA o B, pues son estos los que tienen los controles que utilizas en tu codigo.

[Fernando_net]

Hola amigos.

kisko84, he probado tu solución pero tampoco se soluciona.

Mirad, os ilustro para que veais el código a ver si lo podeis ver mejor que explicandolo de letra:

Esto es lo que paso desde el formulario



Y esto es el modulo, con el sub creado en que le paso por referencia el formulario que le paso



Siento los comentarios, están en catalán... :(

[Fernando_net]

He probado la solución de Dradi7 y con el Trycast funciona a la perfección!

No pongo el if porqué como lo pasaré solo por dos formularios, él ya sabrá que formulario es, no hay margen de error.

Ilustro:



Muchas gracias por todo!! :D

[Dradi7]

de nada estamos para ayudarnos

[Fernando_net]

Hola a todos.

Siento haber respondido tan tarde al tema pero hoy he estado haciendo pruebas.

Vereis, con el TryCast me coje el formulario pero no me coje el nombre.

Es decir, si escribo formulario.pregunta1_rdb1.checked, no me lo acepta porqué dice que no forma parte de formulario y me lanza la excepción MissingMemberException.

Supongo que es porqué entre el formulario y el modulo, los radiobuttons que tiene el formulario no son public, pero no veo la forma de hacer que lo sean.

Os paso el codigo juntamente con el error a ver si podeis localizar el error, que yo me estoy volviendo loco :(

Este es el formulario



Este es el modulo, que inspecciona los radiobuttons del formulario si están checked o no



Este es el error que sale

[Fernando_net]

Nadie? :(

Se entiende o hay algún problema?

[Fernando_net]

Hola amigos.

Siento la insistencia pero no se otra forma de continuar si no es repitiendo código (para el tema del With) y eso en cuestión de optimización queda fatal...

Gracias de antemano por la ayuda :)

[Fernando_net]

Hola a todos.

Ya he dado con la solución.

Hay que ir a propiedades y, en el campo modifier, que originalmente está en Friend, hay que pasarlo a Public

Un cordial saludo a todos :)