SOLICITANDO QUE O USUARIO AGUARDE
Pessoal, já tinha pedido isso antes aqui no fórum, mas ninguém conseguiu fazer...
Estou na tela principal do sistema, e preciso abrir a tela de cadastro de clientes, mas esta tela fica um pouquinho demorada para abrir, então gostaria de exibir um form para avisar ao usuário que é para ele esperar e não ficar clicando no Ãcone novamente....
teoricamente seria bem simples, fiz assim:
Private Sub Command1_Click()
frmAguarde.Show [ô] exibe ele que é bem leve
frmclientes.Show [ô] exibe o form de clientes que demora um pouco
Unload frmAguarde [ô] fecha o form aguarde
End Sub
porém, o form aguarde aparece só as bordas, como se tivesse travado!!!
sei que eu poderia criar um timer no form aguarde esperar ele abrir e depois chamar o frmclientes, mas aà seria muito trabalhoso fazer isso para todos os form do meu projeto.. não existe algo que eu chame o frmAguarde e ele seja exibido por completo antes de chamar o frmClientes????
parece simples, mas...
Estou na tela principal do sistema, e preciso abrir a tela de cadastro de clientes, mas esta tela fica um pouquinho demorada para abrir, então gostaria de exibir um form para avisar ao usuário que é para ele esperar e não ficar clicando no Ãcone novamente....
teoricamente seria bem simples, fiz assim:
Private Sub Command1_Click()
frmAguarde.Show [ô] exibe ele que é bem leve
frmclientes.Show [ô] exibe o form de clientes que demora um pouco
Unload frmAguarde [ô] fecha o form aguarde
End Sub
porém, o form aguarde aparece só as bordas, como se tivesse travado!!!
sei que eu poderia criar um timer no form aguarde esperar ele abrir e depois chamar o frmclientes, mas aà seria muito trabalhoso fazer isso para todos os form do meu projeto.. não existe algo que eu chame o frmAguarde e ele seja exibido por completo antes de chamar o frmClientes????
parece simples, mas...
RESOLVIDO!!!
SOLUÇÃO SE ALGUéM PRECISAR ALGUM DIA
Private Sub Command1_Click()
frmAguarde.Show [ô] exibe ele que é bem leve
DoEvents
frmclientes.Show [ô] exibe o form de clientes que demora um pouco
Unload frmAguarde [ô] fecha o form aguarde
End Sub
SOLUÇÃO SE ALGUéM PRECISAR ALGUM DIA
Private Sub Command1_Click()
frmAguarde.Show [ô] exibe ele que é bem leve
DoEvents
frmclientes.Show [ô] exibe o form de clientes que demora um pouco
Unload frmAguarde [ô] fecha o form aguarde
End Sub
Muito bem.
Mas não se esqueça que o FORM ainda está ativo e pode ser MOVIDO e o botão novamente clicado.
Se for possÃvel, coloque a aplicação sobre um FRAME e mude a propriedade ENABLED para FALSE enquanto a mensagem de AGUARDE (que estará em outro FRAME ou FORM) é exibida.
Mas não se esqueça que o FORM ainda está ativo e pode ser MOVIDO e o botão novamente clicado.
Se for possÃvel, coloque a aplicação sobre um FRAME e mude a propriedade ENABLED para FALSE enquanto a mensagem de AGUARDE (que estará em outro FRAME ou FORM) é exibida.
tenho a solução perfeita pra vc
logo na primeira linha do seu projeto
seja form_load ou SUB
cole isso
If App.PrevInstance Then
End
End If
seu usuario pode apertar mil vezes o icone la q sempre vai fexa o seguno projeto
logo na primeira linha do seu projeto
seja form_load ou SUB
cole isso
If App.PrevInstance Then
End
End If
seu usuario pode apertar mil vezes o icone la q sempre vai fexa o seguno projeto
Tópico encerrado , respostas não são mais permitidas