Label Piscando

2024 - VBA & Macros

Post Recente por Fernando Fernandes 11 anos atrás

4 Posts

2 Usuários

0 Reactions

1,787 Visualizações

RSS

Laeoli

(@laeoli)

Posts: 85

Trusted Member

Topic starter

Saudações!
Sou novato em VBA e estou tentando fazer uma label piscar mas o código abaixo não incrementada nada. Por favor, solicito ajuda.
Private Sub CommandButton1_Click()

OptionButton1.Visible = True
OptionButton2.Visible = True
OptionButton3.Visible = True
OptionButton4.Visible = True
Label125.Visible = True
TimerActive = True

End Sub
Private Sub Timer()
If TimerActive Then
Label125.ForeColor = &H8000&

End If
Application.OnTime Now() + TimeValue("00:00:03"), "Timer"
End Sub

Postado : 29/10/2013 4:35 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa noite

Veja se consegue adaptar:

Option Explicit
Private Declare Function GetTickCount Lib "Kernel32" () As Long
Private Const Preto As Long = &H80000012
Private Const Vermelho As Long = &HFF&
Private Sub CommandButton1_Click()
Dim lngTime As Long
Dim i As Integer
For i = 1 To 20 'Numero de vezes que o label vai piscar
lngTime = GetTickCount
If Me.Label1.ForeColor = Preto Then
Me.Label1.ForeColor = Vermelho
Else
Me.Label1.ForeColor = Preto
End If
DoEvents
Do While GetTickCount - lngTime < 200 'Tempo de espera para proximo loop de 2 segundos
Loop
Next
End Sub

At.te

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 29/10/2013 6:53 pm

Laeoli

(@laeoli)

Posts: 85

Trusted Member

Topic starter

Boa nOite!

Obrigado pela ajuda!

Declarei o código no Módulo e deu o seguinte erro:
Erro de Compilação

"O código desse projeto deve ser atualizado para uso em sistemas 64 bits. Analise e atualize as instruções Declare e, em seguida, marque-as com atributo PtrSafe".

Laerte

Postado : 31/10/2013 5:14 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa nOite!

Declarei o código no Módulo e deu o seguinte erro:
Erro de Compilação

"O código desse projeto deve ser atualizado para uso em sistemas 64 bits. Analise e atualize as instruções Declare e, em seguida, marque-as com atributo PtrSafe".

at Laerte

Não tenho a V 64 bits para testar, então de uma olhada nos links abaixo se ajudam:
De 32 bits para 64bits
viewtopic.php?t=8770&p=46263

Erro no Modulo Public
viewtopic.php?f=10&t=7054

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 31/10/2013 6:26 pm