COMMANDBUTTON

IRENKO 05/07/2007 14:10:02
#224833

Existe maneira de fazer o caption de um CommandButton piscar? Tem algum exemplo? Fico grato.

USUARIO.EXCLUIDOS 05/07/2007 14:32:27
#224838 Resposta escolhida

Coloque um objeto timer com interval de 1000 e nele coloque:

Private Sub Timer1_Timer()

  dim i as integer

  Command1.Caption = ""
  For i = 1 To 2000000: Next
  Command1.Caption = "teste"

End Sub

USUARIO.EXCLUIDOS 05/07/2007 14:36:19
#224839

Esqueci de um detalhe, mude o i as integer para i as double.

IRENKO 05/07/2007 15:06:56
#224851

Valeu!

Tópico encerrado , respostas não são mais permitidas

Voltar