Download Tutorial Script E3

9.6.1.3 BlinkOn
Quando esta propriedade estiver configurada para True, a propriedade conectada
irá alternar periodicamente entre os valores da propriedade OnValue e BlinkOnValue,
caso a fonte retorne True. Exemplo:
Sub BlinkOn_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 BlinkOn de " & Bind._
BlinkOn & " para " & Value
Bind.BlinkOn = Value
End If
End Sub
9.6.1.4 BlinkOnValue
Especifica o valor alternativo a ser assumido periodicamente pela propriedade
quando a expressão da fonte resultar em True e a propriedade BlinkOn estiver
configurada para True. Exemplo:
Sub BlinkOnValue_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 BlinkOnValue de " &_
Bind.BlinkOnValue & " para " & Value
Bind.BlinkOnValue = Value
End If
ForegroundColor = Value
End If
End Sub
9.6.1.5 OffValue
Especifica o valor assumido pela propriedade quando a expressão da fonte resultar
em False. Exemplo:
Assoc iaç ões
287