FORMULARIO AGUARDE

JONESPARIS 11/03/2010 22:17:43
#336681
Boa Noite Amigos;

Estou querendo exibir um formulário solicitando que o usuário aguarde que uma determinada operação seja concluída, por exemplo uma sql, mas o problema é que somente depois que a sql é concluída é que aparece o tal do formulário aguarde aparece... estou usando o seguinte código.

If KeyAscii = 13 Then
frmAguarde.Show
PesquisaSql
End If

Alguém tem alguma sugestão?
EPISCOPAL 11/03/2010 22:40:47
#336682
If KeyAscii = 13 Then
frmAguarde.Show vbModal
End If

frmAguarde_Activate
PesquisaSql
end sub



no ultimo código de PesquisaSql ..... insira Unload frmAguarde !!!
JONESPARIS 11/03/2010 22:54:12
#336688
Incluí para abrir um form da seguinte forma:

frmAguarde.Show vbModal
frmColaboradores.Show
Unload frmAguarde

Teoricamente ele abre o frmAguarde, chama o formulário colaboradores e fecha o frmAguarde, mas ele fica com o frmaguarde e parece que trava.
DANIKULL 12/03/2010 08:04:42
#336706
JONESPARIS, bom dia.

Tenta fazer o seguinte. Há uma solução bem bacana para você, segue.

Coloque um Timer no frmAguarde com as seguintes proriedades:

Timer1.Enabled = False  [ô]Inicia com a contagem parada
Timer1.Interval = 500      [ô]Definindo o tempo de contagem em 0,5 segundo, ou 5 milisegundos

Define uma variável de contagem como Global, neste exemplo eu usei Cont

Option Explicit
Dim Cont As Integer


Dentro do Timer você faz a seguinte programação:

Private Sub Timer1_Timer()
    [ô]
    Cont = Cont + 1
    If Cont = 2 Then
        Timer1.Enabled = False
        Unload Me
        frmColaboradores.Show
    End If
    [ô]
End Sub


Agora vá no evendo Form_Activate e defina e habilite o Timer

Private Sub Form_Activate()
    [ô]
    Timer1.Enabled = True
    [ô]
End Sub


Veja se você consegue o efeito desejado..

Até mais...
JOAOBENEVIDES 12/03/2010 09:11:12
#336721
e o seguinte pegando na mesma linha eu preciso criar um aguarde dentro do mesmo forma - e o seguinte tenho 7 tabs criadas e dentro delas tenho mais duas eu queria saber como faco para nao pesar meu projeto eu coloquei o camando em cada tab quando clico nela a tab faz o camndo de preencher os combo box mais ai para ficar uma coisa mais amigaveis eu queria colocar um mensaguem tipo aguarde dados sendo carregado é possivel
DANIKULL 12/03/2010 12:40:33
#336771
JOAOBENEVIDES, boa tarde.

No seu caso, você deve usar um timer com DoEvents, coloca uma picutebox com visible=false, quando você iniciar o carregamento você trava os objetos em baixo, coloca esta picure na frente com ZOrder e e quando o combo terminar de ser preenchido você habilita os objetos do form, desabilita o timer e esconde a picturebox, ok??
Tópico encerrado , respostas não são mais permitidas
Voltar