LABEL PISCANTE

MICROSCHEME 04/06/2010 15:14:23
#343897
Seguinte:

eu tenho um form que percorre meu banco e carrega 7 flexgrid com dados de 7 tabelas diferentes

esse processo demora algum tempo, não muito, mas gostaria de implementar uma label piscante [Ô]Aguarde[Ô]
no timer tenho label1.visible = not label1.visible.

sem nenhum processo funciona, mas com o processo de varrer as tabelas e carregar as grades não pisca, só pisca apos findo o processo

se não tiver jeito, não tem problemas; mas nem com doevents a label pisca, então pergunto:
há alguma forma de fazer essa label piscar durante o processo de carregamento das grades?

. . .
JONESPARIS 04/06/2010 15:55:20
#343901
Amigo... enfrentei este mesmo problema estes dias, não sei se vai resolver com a opção do piscar, mas eu precisava chamar um form de aguarde... mas ele aparecia somente quando terminava o processo, que é o mesmo caso que o teu... eu resolvi assim:


frmAguarde.Show
DoEvents
executar comandos etc
Unload FrmAguarde

Ou seja, vc precisa usar o DoEvents para que ele execute o comando de chamar o form e depois executar os comandos desejados, no teu caso, carregar as tabelas...
acredito que o piscar tmb funcione..

espero ter te ajudado
SINKERTEC 04/06/2010 16:33:25
#343904


Cara

...se vc mudar o ponteiro do Mouse...e fazer esse aguarde aparecer ..já ajudará
JPAULO101 04/06/2010 16:35:23
#343906
Da uma olhada desse exemplo do Tecla.
MICROSCHEME 04/06/2010 19:06:36
#343916

Blz . . . gente

Agradeço a atenção dispensada pelos amigos, mas nenhum deu certo; esse tópico até não tem muita relevância no meu projeto,
só achei interessante se algo parecido funcionasse, mas mesmo as dicas dos amigos, so funcionam após as grids carregadas
e o interessante seria funcionar com as grids carregando.

De qualquer forma obrigado

Ah, o ponteiro do mouse já é mudado durante a execução de carregamento das grades, só achei interessante se possível
fosse algo mais chamativo.

Brigadão

vou deixar o tópico aberto mais um pouquinho e depois fecharei agradecendo as dicas, blz . . .
FILMAN 04/06/2010 19:22:09
#343919
Tenta chamar o form igual o nosso amigo JONESPARIS disse e após estiver completo UNLOAD frmLoading



Tenta ai e vê se da certo
FILMAN 04/06/2010 19:24:13
#343920
Lembresse que este projeto não é autoria minha tirei aqui do SITE
MICROSCHEME 04/06/2010 20:10:26
#343931

Não. não

também não dá certo. se carregar o form antes dos comando pra carregar as grids, não carrega as grids
se colocar os comando pra carregas as grids no outro form, acontece a mesma coisa, não rodas as ships durante
o processo

blz . . .

esse código é igual ao do tecla acima
FFCOUTO 04/06/2010 21:05:30
#343935 Resposta escolhida
Veja se a rotina abaixo te ajuda

Sub FlashText(FlashColor As OLE_COLOR)
   Dim i As Integer
   Dim dwStart As Single
   Dim lColor(1 To 2) As OLE_COLOR
   
   Const INT_FLASH = 3
   Const INT_PAUSE = 150
   
   lColor(1) = vbBlack
   lColor(2) = FlashColor
   
   dwStart = Timer
   Do While Timer < (dwStart + INT_FLASH)
      For i = 1 To 2
         DoEvents
         lblAviso.ForeColor = lColor(i)
         Sleep INT_PAUSE
      Next
   Loop
   lblAviso.ForeColor = lColor(2)
End Sub

Private Sub Timer1_Timer()
   Dim lCor As OLE_COLOR
   
   lblAviso.Caption = [Ô]A G U A R D E[Ô]
   lCor = vbRed  
   DoEvents
   FlashText lCor
End Sub


espero ter ajudado
MARCELO.TREZE 05/06/2010 09:56:29
#343943
colega posta o código que carrega os grids, e tentarei ajudar.
MICROSCHEME 05/06/2010 12:14:38
#343967
O código do amigo FFCouto funciona, mas a intermitência do piscar varia durante o carregamento das grades.
hora pisca rápido, hora pisca lento, hora não pisca, isso porque as grades, umas demoram mais outras menos
pra carregar.

Gostei da idéia, funciona, mas ainda tá faltando algo. obrigado assim mesmo, fico te devendo blz . . .

O marcelo pediu pra postar o código, está anexo

blz . . .
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar