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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Urgente Como identificar se uma form esta ativada
justus
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 19/06/2007 18:14 hs         
Por favar se alguem poder me dizer como eu faço para descobrir se uma form esta ativada.
sem usar o visible nem o enabled
por que os dois abrem o formulario para perguntar
 
agradeço desde jah
   
KoRn
Pontos: 2843
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 19/06/2007 18:23 hs            
nao entendi direito a sua pergunta mas vc quer dixar sempre um forma na frente do outro ?
 

Jesus Cristo é O Senhor!!!
   
justus
SÃO PAULO
SP - BRASIL
Postada em 19/06/2007 18:25 hs         
nao é isso
eu quero poder identificar se o form esta ativado ou desativado...
um modo facil seria o visible mas infelismente nao funciona no projeto em que estou trabalhando!
     
LCRamos
Pontos: 2843
GOIANIA
GO - BRASIL
ENUNCIADA !
Postada em 19/06/2007 19:23 hs            
Será que é isto?
Dim iFORM As Integer
Dim sNAME As String
Function FORMULARIOATIVO()
 iFORM = 0
 For iFORM = (Forms.Count - 1) To 0 Step -1
  sNAME =  Forms(iFORM).Name
  If sNAME = "NOMEDOFORMULÁRIO" Then
    MsgBox "ATIVO"
  End If
 Next iFORM
End Function
 
vlu//
   
JSFF
SÃO PAULO
SP - BRASIL
Postada em 20/06/2007 10:19 hs            
Bom dia, amigos.
 
O problema pode ser solucionado dessa maneira:
 
If (Screen.ActiveForm.Name = "NOME_DO_FORM") Then
        '--- Procedimento a ser tomado ---
End If
 
 
JSFF
 
     
Daniel da Silva
não registrado
ENUNCIADA !
Postada em 20/06/2007 19:37 hs   
Ué ja experimentou declarar um global num modulo tipo
global wform1 as interger
no load do formulario voce coloque
wform1=1
e no
unload me coloque
wform1=0
 
e para verificar use
if wform1=1 then
msgbox "esta ativo"
else
msgbox "esta desativo"
end if
 
   
Página(s): 1/1     1 | 


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página
 
 Home
 Artigos
 Cadastro
 Visual Basic
 Visual Basic .Net
 ASP
 ActiveX
 Apostilas
 Fóruns
 Utilitários
 Parceiros
 Hospedagem