<< Clique para Mostrar o Sumário >>
BlinkOffValue |
Esta propriedade especifica o valor alternativo a ser assumido periodicamente pela propriedade quando a expressão da fonte resultar em Falso e a propriedade BlinkOff estiver configurada em Verdadeiro. Exemplo:
Sub BlinkOffValue_Click()
On Error Resume Next
Dim Value
If Application.ShowPickColor_
(Value, ForegroundColor, 400, 300) Then
Dim Bind
Set Bind = Screen.Item("Retangulo1").Links._
Item("ForegroundColor")
If Bind Is Nothing Then
MsgBox "Retangulo1 não tem associação."
Else
MsgBox "Retangulo1 está associado a '"& Bind.Source & "'"
MsgBox "Mudando BlinkOffValue de " &_
Bind.BlinkOffValue & " para " & Value
Bind.BlinkOffValue = Value
End If
ForegroundColor = Value
End If
End Sub