Autor Tema: Saber Q Formulario Llamo (Leído 1984 veces)

hrc968 · « **en:** Martes 28 de Noviembre de 2006, 05:36 »

existe alguna forma de saber q formulario llamo a otro formulario ,es decir tengo form1 q llama a form2 , pero tambien tengo el form3 q tambien puede llamar al form2.
o lo tengo q hacer yo manualmente con algun procedimiento ?
ojala me ayuden por q estoy medio ahorcado

mamex

Pues lo que haría yo es poner una variable pública en el form 2, tipo string, por decir llamada padre. Y cuando llamo al form2, a la variable padre, le asigno el nombre del formulario que lo llamó. Entonces, en la variable padre ya tienes el nombre de su padre.

Código: Text

 
'Codigo en el form2
public padre as string
 
'Codigo en el form1
form2.padre = &#34;form1&#34;
form2.show
 
'Codigo en el form3
form2.padre = &#34;form3&#34;
form2.show

RadicalEd

Otra puede ser crear una rutina pública en un .bas y lo que haces es llamarla desde todo formulario en el que quieras abrir el form2

luciano2

Otra forma, para no handar declarando variables, es utilziar la propiedad Tag

saludos

---------------------

Recursos vb

hrc968

gracias por la rtas, habia intentado hacerlo por esos lados
ahora como uso la prop tag ?

Mollense

No creo que puedas usar la propiedad tag porque me parece que la ventana debe estar abierta para poder modificar su valor.

A ver si esto te orienta:

F_Tanori

Cita de: "RadicalEd"

Otra puede ser crear una rutina pública en un .bas y lo que haces es llamarla desde todo formulario en el que quieras abrir el form2

eso es lo que tambien se me viene a la mente

ej.

Modulo

Código: Text

 
Option Explicit
 
Function AbrirVentana(ByRef frm As Form, Optional Modal As Boolean = False, Optional Propietario As Form) As String
Dim Resultado
    If Modal Then
        If IsMissing(Propietario) Then
            frm.Show vbModal, Propietario
            Resultado = Propietario.Name
        Else
            frm.Show vbModal
            Resultado = &#34;&#34;
        End If
    Else
        frm.Show
        Resultado = &#34;&#34;
    End If
    
AbrirVentana = Resultado
End Function
 
 

en un Form

Código: Text

 
Option Explicit
 
Private Sub Command1_Click()
 Dim NombreFormPropietario As String
    NombreFormPropietario = AbrirVentana(Form2,,Me)
    
    If Len(NombreFormPropietario) &#62; 0 Then
        MsgBox NombreFormPropietario
    End If
End Sub
 

Saludos

SoloCodigo

Autor Tema: Saber Q Formulario Llamo (Leído 1984 veces)

hrc968

Saber Q Formulario Llamo

mamex

Re: Saber Q Formulario Llamo

RadicalEd

Re: Saber Q Formulario Llamo

luciano2

Re: Saber Q Formulario Llamo

hrc968

Re: Saber Q Formulario Llamo

Mollense

Re: Saber Q Formulario Llamo

F_Tanori

Re: Saber Q Formulario Llamo