BlinkOff

<< Clique para Mostrar o Sumário >>

 

BlinkOff

Booleano Quando esta propriedade estiver configurada para Verdadeiro, a propriedade conectada alterna periodicamente entre os valores das propriedades OffValue e BlinkOffValue, caso a fonte retorne Falso. O script a seguir contém um exemplo de uso desta propriedade.

Sub BlinkOff_Change()
  On Error Resume Next
  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 BlinkOff de " & _
      Bind.BlinkOff & " para " & Value
    Bind.BlinkOff = Value
  End If
End Sub

Esta página foi útil?