BlinkOff

<< Click to Display Table of Contents >>

 

BlinkOff

Boolean When this property is set to True, the connected property alternates periodically between values of OffValue and BlinkOffValue properties, in case the source returns False. The next script contains an example of using this property.

Sub BlinkOff_Change()
  On Error Resume Next
  Dim Bind
  Set Bind = Screen.Item("Rectangle1")._
    Links.Item("ForegroundColor")
  If Bind Is Nothing Then
    MsgBox "Rectangle1 has no link."
  Else
    MsgBox "Rectangle1 is linked to " & Bind.Source & "'"
    MsgBox "Changing BlinkOff from " &_
      Bind.BlinkOff & " to " & Value
    Bind.BlinkOff = Value
  End If
End Sub

Was this page useful?