USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Passar quem está chamando o form!
William
não registrado
Postada em 19/05/2006 12:31 hs   
Boa tarde pessoal!

Estou precisando de uma ajuda. Estou precisando saber qual form está carregando/chamando o  outro. Por exemplo:

Tenho o Form1 e o Form2. Quando clico no botão do Form1 para executar "Form2.show" gostaria de saber quando o Form2 abrir que foi o Form1 que o chamou. Já usei a instrução "Form2.show vbmodal, Me" acredito que seja assim, mas não sei recuperar o nome do form que o chamou quando o form2 o abre.

Espero que tenha sido claro. Obrigado pela ajuda!

William.
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 19/05/2006 13:16 hs            
Acho q o jeito mais fácil seria criar uma procedure e passar como parâmetros o form q está chamando e guardar numa variável global... mas eu tentaria fazer uma classe pra isso, usando um método para chamar o form e usar as propriedades pra saber qual o form q chamou mas agora não tenho como fazer isso aqui no trampo...
 
Se precisar qdo chegar em casa faço e explico pra vc...
 
t+
     
Daniel
Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 19/05/2006 13:45 hs            
DEclare uma variável Public ou Global exemplo:
 
Public Fomulario As String
 
No formulário na hora da chamada basta armazenar o nome do formulário exemplo:
Private Sub Bt_Chamar_Click()
    Formulario=form1
    form2.show
end sub

dsmn
   
LCRamos
Pontos: 2843
GOIANIA
GO - BRASIL
Postada em 20/05/2006 11:04 hs            
Voce declara a variavel publica como Global, mas faça assim
Public sMYFORM As Form
 
No Formulário
Set sMYFORM = Me
 
No formulário chamado
Dim sNOME As String
sNOME = sMYFORM.Name
 
Depois voce pode usar a mesma variável neste formulário, alterando o nome
Set sMYFORM = Me
 
Pronto para o próximo chamado voce terá o nome do formulário atual.
 
vlu//
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2026   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página