LABEL

IRENKO 12/09/2006 17:06:40
#170989
Pessoal, preciso fazer um label piscar no VBA na cor vermelha, no VBA não tem o objeto Timer. Alguem tem uma dica, ideia ou exemplo?
LIONHEART 12/09/2006 17:11:08
#170990
dá pra usar API no VBA?
IRENKO 12/09/2006 17:12:35
#170991
Lion tenho este com API, so que não consigo colocar o label em vermelho.
LIONHEART 12/09/2006 17:23:40
#170994
Olha, nem adianta me passar pq eu nao manjo de VBA

O que eu posso te fazer é passar um exemplo em VB6 e vc converte pra VBA, ok?
IRENKO 12/09/2006 17:33:53
#171000
Outro problema a propriedade hWnd não existe no VBA. Iiiii...!!!Trapalhou tudo!!
USUARIO.EXCLUIDOS 12/09/2006 17:41:37
#171002
Cara, não manjo nada de VBA, tentei mas não consegui, mas bem, com APIs em VB vc pode fazer assim:

Primeiro crie um form com o nome Form1 obrigatoriamente, e nele ponha um Label (Label1) e cole o codigo:

Private Sub Form_Load()
SetTimer Me.hwnd, 0, 1000, AddressOf TimerProc
End Sub

Private Sub Form_Unload(Cancel As Integer)
KillTimer Me.hwnd, 0
End Sub


E num módulo vc põe o código:

Option Explicit

Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long

Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
If Form1.Label1.ForeColor = vbBlack Then
  Form1.Label1.ForeColor = vbRed
Else
  Form1.Label1.ForeColor = vbBlack
End If
End Sub


Bem, talvez consiga adaptar isso pra VBA, mas não sei como pegaria o hWnd...flw
MARCOSAV 12/09/2006 17:52:06
#171005
Mude isto...

Private Sub UserForm_Initialize()
Dim i, STime
ForeColors(1, 1) = BackColor 'ou coloque vbred aqui...
ForeColors(1, 2) = vbRed ' ou aqui...
End Sub


Qquer coisa, manda de volta...

Abraço
T+
Tópico encerrado , respostas não são mais permitidas
Voltar