DUVIDAS COM CONDICAO DE FORM CARREGADO
Tenho uma dúvida, que é mais ou menos assim: no form_load do form2 queria fazer uma condição "se o form1 estiver carregado (load) para transmitir uma mensagem dizendo que vai ser fechado e em seguida fecha o form1...me digam como fazer por favor
muito agradecido pela atenção
muito agradecido pela atenção
espera um poko...to fazendo aki ;)
pronto!!!
ai usa assim :
private sub form2_load()
if(formisloaded(form1)=true)then
msgbox "O Form1 vai ser fechado agora":end
end if
end sub
Citação:
Public Function FormIsLoaded(stFrmName As String) As Boolean
Dim frmTmp As Form
Dim blLoaded As Boolean
blLoaded = False
stFrmName = UCase$(stFrmName)
For Each frmTmp In Forms
If (UCase$(frmTmp.Name) = stFrmName) Then
blLoaded = True
Exit For
End If
Next
FormIsLoaded = blLoaded
End Function
ai usa assim :
private sub form2_load()
if(formisloaded(form1)=true)then
msgbox "O Form1 vai ser fechado agora":end
end if
end sub
Uma outra forma é vc fazer assim, crie uma caixa de texto e deixe invÃsivel ao usuário, dentro dessa caixa de texto deixe a propriedade Text a letra "N" que siginifica que o form não está aberto como padrão, qdo o form1 carregar Form_Load mude o Text dessa caixa de texto para "S" significando que o form está aberto.
Depois qdo abrir o form2 que é o que vc quer vc faz assim:
If Form1.CaixaTexto.Text = "S" Then
MsgBox ("O Form1 será fechado")
Unload Form1
End if
Form1 --> Nome do form que está a caixa de texto
CaixaTexto --> A caixa de texto que vc usou para colocar as letras "N" ou "S"
Acho que funciona se vc criar uma Variável pública para fazer isso, é que qdo tentei usar uma variável pública em outra situação para fazer algo parecido não consegui mudar o valor dela e verificar o que tem dentro dela.
Espero ter ajudado.
Sem mais.
Depois qdo abrir o form2 que é o que vc quer vc faz assim:
If Form1.CaixaTexto.Text = "S" Then
MsgBox ("O Form1 será fechado")
Unload Form1
End if
Form1 --> Nome do form que está a caixa de texto
CaixaTexto --> A caixa de texto que vc usou para colocar as letras "N" ou "S"
Acho que funciona se vc criar uma Variável pública para fazer isso, é que qdo tentei usar uma variável pública em outra situação para fazer algo parecido não consegui mudar o valor dela e verificar o que tem dentro dela.
Espero ter ajudado.
Sem mais.
Mais Simples Ainda
Crie uma Variavel Global
No Modulo
ex:
Public EstadoForm1 as Boolean
Quando Carregar o form1
Private Sub Form1_Load()
EstadoForm1 =true
End Sub
Agora o Seguinte
Private Sub Form2_Load()
IF EstadoForm1 = true then
Msgbox "O Fom1 vai ser Fexhado Agora" : Unload Form1
End IF
End Sub
Espero ter Ajudado
Visite www.DreamSoftware.cjb.net
Crie uma Variavel Global
No Modulo
ex:
Public EstadoForm1 as Boolean
Quando Carregar o form1
Private Sub Form1_Load()
EstadoForm1 =true
End Sub
Agora o Seguinte
Private Sub Form2_Load()
IF EstadoForm1 = true then
Msgbox "O Fom1 vai ser Fexhado Agora" : Unload Form1
End IF
End Sub
Espero ter Ajudado
Visite www.DreamSoftware.cjb.net
é o que eu disse
rsrsrsrs
rsrsrsrs
é o que eu disse
rsrsrsrs
rsrsrsrs
eh q o meu nao precisa criar variavel nem nada...funciona pra todos de uma soh vez ;)
Tópico encerrado , respostas não são mais permitidas