Ir para conteúdo
Fórum Script Brasil
  • 0

Controle Timer


mestre fyoda

Pergunta

não sei porque isso ocorre , mas quando eu executo o programa a figura do relogio inicialmente não parece nada e depois de um tempo a figura anda pra direita e depois de um tempo aparece a hora:minuto:segundo ao lado da figura , e o segundo fica sempre somando mais 1.

mas porque quando eu executo o programa o tempo demora para aperece e o segundo fica com um deley de 1s em relação da minha máquina ?E porque a figura anda ?

a toolbar tem 10 index , onde a index 1 e a 10 tem figura e o resto não tem nada !

Private Sub MDIForm_Load()

Login.Show

Set rs = cn.Execute(" SELECT * FROM Funcionario where cod_fun = '" & usuario & "' ")

'Inferior.Buttons(2).Caption = rs("nome")

End Sub

Private Sub Relogio_Timer()

Inferior.Buttons(10).Caption = CStr(Time())

End Sub

Private Sub Toolbar_Superior_ButtonClick(ByVal Button As MSComctlLib.Button)

    Select Case Button.Index

     

        Case 6

          Estatisca.Show

        Case 7

          Imprimir.Show

        Case 8

          Area_Restrita.Show

        Case 9

          Logoff.Show

        Case 10

          Unload Menu

          Unload Login

    End Select

End Sub

Private Sub Toolbar_Superior_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)

Select Case ButtonMenu.Index

    Case 1

       Fecha_Form

       Cadastro_Cliente.Show

   

    Case 2

       Cadastro_Funcionario.Show

End Select

End Sub

ta ai todo meu codigo .

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0

para o relogio não demorar pra aparecer, ponha 1 no interval dele. o q acontece, é q c você puser 1000 no interval (= 1 segundo) assim q o form abrir, ele vai esperar 1 segundo pra mostrar o timer. ponha 1 de inicio e no evento do timer c pode pode trocar o interval e por o tempo q c quiser.

Private Sub Relogio_Timer()
    Relogio.Interval = 1000
    Inferior.Buttons(10).Caption = CStr(Time())
End Sub

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...