MENSAGEM ENQUANTO REALIZA ROTINA

ERLANMG 13/07/2011 18:59:00
#379074
Caros colegas,

Como faço para colocar uma mensagem ( msgbox ou um form com mensagem tipo aguarde... ou com progressbar) enquanto o sistema executa uma rotina tipo loop.

Por exemplo:


[txt-color=#e80000]AQUI EXIBIR A MENSAGEM[/txt-color]

rs1.MoveFirst
[Ô]While rs1.EOF = False


rs1.MoveNext
Wend


[txt-color=#e80000]E AQUI SUMIRIA A MENSAGEM[/txt-color]


Desde já agradeço a atenção dispensada.
MARCELO.TREZE 13/07/2011 22:54:07
#379095
vc praticamente tem a resposta já

veja um exemplo bem simples de como fazer

coloque em qualquer posição do form um label com no caption escreva [Ô]aguarde...[Ô] e mude a propriedade visible = false

e no seu código

label1.visible = true

rs1.MoveFirst
[Ô]While rs1.EOF = False


rs1.MoveNext
Wend

label1.visible = false
EDERMIR 14/07/2011 09:03:51
#379111
Eu faço da segunte forma:

Crio FRAMES no FORM1 para as diversas operações de minha aplicação.
Crio um FRAME com a mensagem AGUARDE no FORM1.
Com o frame visível da aplicação (os demais estão VISIBLE=FALSE), mostro o frame com a mensagem AGUARDE e mudo a propriedade ENABLED do frame visível para FALSE. Desta forma impede que alguma opção seja utilizada pelo [Ô]cabra[Ô] operador.

Veja bem, isto é OUTRA FORMA de fazer.
KERPLUNK 14/07/2011 10:18:46
#379123 Resposta escolhida
Durante o loop, não esquece de colocar o [Ô]DoEvents[Ô] senão não vai atualizar a tela nem a mensagem
Tópico encerrado , respostas não são mais permitidas
Voltar