Verificar se Form já está aberto???


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Verificar se Form já está aberto???

ProgrammerMan

PRESIDENTE PRUDENTE
SP - BRASIL

Postada em 18/06/2004 16:24 hs

Olá a todos...

Tenho um problema, gostaria de saber como verificar se um Form em questão estah aberto...

Tenho o seguinte código:

      Select Case MenuItem
        Case 1
          frmClientes.Show
          frmClientes.SetFocus
        Case 2
          frmProdutos.Show
          frmProdutos.SetFocus
        Case 3
          frmServicos.Show
          frmServicos.SetFocus
        Case 4
          frmOS.Show
          frmOS.SetFocus
        Case 5
          frmNF.Show
          frmNF.SetFocus
        Case 6
          mnuSair_Click
      End Select

O problema acontece qdo por exemplo: ao abrir o form frmClientes e depois abrir o form frmProdutos, td fica normal, se eu clicar em qualquer um dos dois icones ele apenas volta para o form q eu cliquei, mas se eu abrir um, depois abrir outro, e logo após fechar o ultimo aberto e clicar no q foi aberto primeiro ele abri um novo form igual...

Alguem tem uma solução...

Desde jah agradeço qualquer ajuda...

Ateh mais...

_______________________________________________________________________

Se vc pensa q pode, ou se vc pensa q não pode, de qualquer forma vc está certo...

ProgrammerMan

ACG1504

PATOS DE MINAS
MG - BRASIL

Postada em 18/06/2004 16:36 hs

use o form principal como mdiform

ProgrammerMan

PRESIDENTE PRUDENTE
SP - BRASIL

Postada em 19/06/2004 14:33 hs

Valeu ACG1504 mas...

Isso jah acontece, o código q citei acima acontece no MDIForm...

Mesmo assim, valeu pela ajuda...

ateh mais...

_______________________________________________________________________

Se vc pensa q pode, ou se vc pensa q não pode, de qualquer forma vc está certo...

ProgrammerMan

Brexuega

VISEU
PT - PORTUGAL

Postada em 20/06/2004 20:57 hs

'*******************************************************
'                   IsFormActive
' Verifica se um determinado form está activo no
' momento.
'*******************************************************
Public Function IsFormActive(ByVal Frm As Form) As Boolean
If Screen.ActiveForm.Name = Frm.Name Then
    IsFormActive = True
Else
    IsFormActive = False
End If
End Function

Quando a Sua Dúvida For Esclarecida Encerre o Post

¥ ADS

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR