HORA SEM PISCAR
Colegas,
Pelo que sei existe algo aqui no VBMania sobre colocar um label e nele informar a hora, dentro de um timer, mas sem piscar o label.
Eu fiz algo simples, dentro do timer, mas o problema é que o label [Ô]pisca[Ô], Doevents não resolve.
Procurei aqui no VBMania mas não achei um tópico sobre isto, com alguma solução. No google não achei também. Mas se não me falha a memória existe algo, aqui mesmo no VBMania.
Algum colega sabe de um tópico ou algo que possa resolver o [Ô]pisca[Ô] do label?
Tudo de bom.
Pelo que sei existe algo aqui no VBMania sobre colocar um label e nele informar a hora, dentro de um timer, mas sem piscar o label.
Eu fiz algo simples, dentro do timer, mas o problema é que o label [Ô]pisca[Ô], Doevents não resolve.
Procurei aqui no VBMania mas não achei um tópico sobre isto, com alguma solução. No google não achei também. Mas se não me falha a memória existe algo, aqui mesmo no VBMania.
Algum colega sabe de um tópico ou algo que possa resolver o [Ô]pisca[Ô] do label?
Tudo de bom.
Você colocou o intervalo do seu controle timer para 1000 ?
Segue um exemplo...
Oi Jaba...
Sim, está com intervalo 1000.
Kutgu, vou testar seu exemplo e já dou retorno.
Grato a ambos.
Sim, está com intervalo 1000.
Kutgu, vou testar seu exemplo e já dou retorno.
Grato a ambos.
Kurtgu,
Funcionou beleza.
Mas eu cometi um erro. Um erro crasso.
Deixei o tópico em VB.net (de fato programo em .net), mas preciso de código em VB6 para um pequeno sistema herdado.
Fui apressado e como sempre lido com .Net, não me cobrei mais atenção ao criar o tópico. E logo depois de criado não tinha mais como mudar a linguagem e como já haviam respostas, seria desrespeitoso excluir ou até mesmo encerrar o tópico sem qualquer aviso.
Bem, isto é para me desculpar.
E aproveitando pedir a gentileza de, se possÃvel, indicarem algo em VB6.
Tudo de bom.
Funcionou beleza.
Mas eu cometi um erro. Um erro crasso.
Deixei o tópico em VB.net (de fato programo em .net), mas preciso de código em VB6 para um pequeno sistema herdado.
Fui apressado e como sempre lido com .Net, não me cobrei mais atenção ao criar o tópico. E logo depois de criado não tinha mais como mudar a linguagem e como já haviam respostas, seria desrespeitoso excluir ou até mesmo encerrar o tópico sem qualquer aviso.
Bem, isto é para me desculpar.
E aproveitando pedir a gentileza de, se possÃvel, indicarem algo em VB6.
Tudo de bom.
Bom, fiz esse código abaixo e não vi o label piscar; cheguei inclusive a mudar a cor do controle e também não piscou. Tem que ver ser o processamento que você está fazendo está ultrapassando 1 segundo, aà pode dar uma piscadinha mesmo.
OBS: Coloquei o Interval do Timer1 = 1000[c]
Private Sub Form_Load()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
DoEvents
Label1.Caption = Time
End Sub
OBS: Coloquei o Interval do Timer1 = 1000[c]
Então, Jaba...
Era exatamente isto que eu tinha feito.
Piscava bastante.
A diferença que tem do seu código para o meu é só a posição do DoEvents, que no seu está antes da atribuição da hora no caption do label e, no meu caso, após tal atribuição.
Coloquei o DoEvents antes, como seu caso, diminuiu um pouco as [Ô]piscadelas[Ô], mas não sumiu por completo.
Penso que possa ser em função de potencial do maquinário sendo utilizado.
Bem, colegas, vou encerrar o tópico, bastante agradecido ao Jaba e ao Kurtgu pela atenção.
Tudo de bom.
Era exatamente isto que eu tinha feito.
Piscava bastante.
A diferença que tem do seu código para o meu é só a posição do DoEvents, que no seu está antes da atribuição da hora no caption do label e, no meu caso, após tal atribuição.
Coloquei o DoEvents antes, como seu caso, diminuiu um pouco as [Ô]piscadelas[Ô], mas não sumiu por completo.
Penso que possa ser em função de potencial do maquinário sendo utilizado.
Bem, colegas, vou encerrar o tópico, bastante agradecido ao Jaba e ao Kurtgu pela atenção.
Tudo de bom.
Tópico encerrado , respostas não são mais permitidas