mostrar formulario (nombre de formulario en variable)

[acervantes]

tengo el siguiente procedimiento:

Código PHP:

  Private Sub abreform(n As Form) 
    n.Show 1
End Sub  
   

para hacer la llamada a este procedimiento:

Código PHP:

  .... 
abreform formulario1
....  
   

quiero que el objeto "formulario1" esté en una variable por decir xxx
algo así como esto:

Código PHP:

  xxx = "formulario1"  '----- aqui el error es un texto
abreform xxx         '----- o en todo caso, como uso la variable para que la tome como objeto y no variable. en visual fox pro se llama macrosustitucion y se usaria algo asi: abreform &xxx.    - o -   abreform (xxx)  
   

ojalá y me puedadn ayudar, gracias....

[rafapaskual]

Hola! Prueba a hacer algo así:

Dim xxx as form
set xxx=formulario1

Y mirate la colección forms que a lo mejor te puede ser de ayuda.

Un saludo!
Rafa.

[MANOLO MAD]

Hola,

Sub AbreForm(Formulario as String)
Dim F as Form
set F = Forms.Add(Formulario)
F.Show
End Sub

Aunque no lo he comprobado en el ide, debe funcionar.

Un saludo.

[acervantes]

devuelve como error:

Código PHP:

  Error '424' en tiempo de ejecución: 
Se requiere objeto  
   

pd:
estoy usando vb 6

[MANOLO MAD]

Hola,

Ese error te lo da por que el nombre de formulario no existe.

Ejemplo para utilizarlo:

Suponemos que tenemos un formulario cuya propiedad name es: frmPrincipal

AbreForm "frmPrincipal"

Un saludo.

[acervantes]

si existía, tenía otro error,

gracias, eres un genio man