DstLoValue

<< Clique para Mostrar o Sumário >>

 

DstLoValue

Número Esta propriedade especifica o valor mínimo atingido na propriedade. Exemplo:

Sub DstLoValue_ValueChange()
  On Error Resume Next
  Dim Bind
  Set Bind = Screen.Item("ScrollBar1").Links.Item("Value")
  Screen.Item("ScrollBar1").Min = Value
  If Bind Is Nothing Then
    MsgBox "ScrollBar1 não tem associação."
  Else
    MsgBox "ScrollBar1 está associado a '" & Bind.Source & "'"
    MsgBox "Mudando DstLoValue de " &_
      Bind.DstLoValue & " para " & Value
    Bind.DstLoValue = Value
  End If
End Sub

Esta página foi útil?