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
|
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!!!
|
|
|
|
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
|
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
|
|
|