DUVIDA AO ABRI UM FORM O OUTRO FECHA AUTOMATICO

OMAR2011 08/12/2012 22:41:50
#415673
Já que você é um iniciante pode usar HIDE para esconder seu formulário.
Quando se usa ele fica oculto e quando precisar de usá-lo novamente é
só abri-lo novamente e ele vem bem mais rápido.

Pode usar também

Form1.Show
Form2.Hide

Não esqueça,ele não esta fechado e sim oculto.
S2VODKAS2 08/12/2012 22:56:16
#415674
ainda nao funcionou.

tire 2 print para ver ser vcs conseguem entender melhor.
S2VODKAS2 08/12/2012 22:58:00
#415675
esse e o outro.
AUSTANDER 09/12/2012 03:41:44
#415677
Não intendi pra que vc colocou isso >>> Dim Form2 as New Form2
Pode me explicar pra que isso?

Vc pode fazer assim

Private Sub Form_Click()

If Form2.Visible = False Then

Form2.Show

Unload Form3

ElseIf Form3.Visible = False Then

Form3.Show

Unload Form2

End If

End Sub


Ou assim

Private Sub Command1_Click()

Form2.Show

Unload Form3

End Sub

Private Sub Command2_Click()

Form3.Show

Unload Form2

End Sub

Private Sub Command1_Click()

Form2.Show

Form3.Hide

End Sub

Private Sub Command2_Click()

Form3.Show

Form2.Hide

End Sub

Private Sub Command1_Click()

If Form2.Visible = False Then

Form2.Show

Unload Form3

ElseIf Form3.Visible = False Then

Form3.Show

Unload Form2

End If

End Sub
OMAR2011 09/12/2012 11:50:29
#415683
Verifica se é isto.
Valeu.
S2VODKAS2 09/12/2012 13:04:32
#415684
tipo eu coloqei Dim Form2 as New Form2. pq me ensinaram a fazer assim para abri outro form kkkkkkk

vou tentar sem. e do jeito que vc me ensino agora.

obrigado !!!!
MATHEUSDIAS 09/12/2012 14:09:03
#415685
Usa Formx.Hide
S2VODKAS2 09/12/2012 14:32:32
#415686
OMAR2011. vlw !!! ajudo muito mesmo !!!!

era isso mesmo que eu queria so que estava dando errado ( me ensinaram errado )

AUSTANDER eu tava declarando errado, pq mi ensinaram errado em outro forum ....

vlw galera !!!
S2VODKAS2 09/12/2012 17:29:14
#415690
galera como eu crio mais toggle folders ( pasta pra mim guarda forms ) pro meu projeto nao ficar com aquele monte de forme junto.
FEDERHEN 10/12/2012 08:05:09
#415701
TENTA ISSO...

Private Sub Command1_Click()
FecharForms
Form2.Show
End Sub

Private Sub Command2_Click()
FecharForms
Form3.Show
End Sub

Private Sub Command3_Click()
FecharForms
Form4.Show
End Sub

Private Sub FecharForms()
On Error Resume Next
Unload Form2
Unload Form3
Unload Form4
Unload Form5
On Error GoTo 0
End Sub
Página 2 de 2 [20 registro(s)]
Faça seu login para responder
Voltar