BlinkOffValue

<< Clique para Mostrar o Sumário >>

 

BlinkOffValue

Variant 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. O script a seguir contém um exemplo de uso desta propriedade.

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

Esta página foi útil?