Blog Archive

About Me

A minha foto
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
2005-04-21
Utilizando o Código do post anterior com uma pequena alteração, podemos adicionar mais um pouco de código para tentar simular um blink entre o negro e o encarnado no conteúdo da Label:








O Código:

Option Explicit


Private Sub UserForm_Initialize()
    Dim dblTotal As Double
    Dim strTotal As String

    strTotal = Worksheets("Sheet1").Range("A7").Value
    dblTotal = Worksheets("Sheet1").Range("B7").Value
    Me.Label1.Caption = strTotal & " " & dblTotal

End Sub



Private Sub UserForm_Activate()
    Dim iCtr As Long
    For iCtr = 1 To 20
        Me.Label1.ForeColor = &HFF&
        Me.Repaint
        Call Sleep(100)
        Me.Label1.ForeColor = &H80000008
        Me.Repaint
        Call Sleep(100)
    Next iCtr
End Sub


ATENÇÃO - Num módulo à parte, adicionar o seguinte Código:

Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


O Código para o blink, foi adaptado do Código mostrado por Dave Peterson num Fórum de Discussão sobre Excel