RemoveLink

<< Clique para Mostrar o Sumário >>

 

RemoveLink

RemoveLink(Property)

Este método remove uma Associação com a propriedade especificada por Property, caso exista. Caso não exista Associação com a propriedade especificada, este método não tem efeito. O script a seguir contém um exemplo de uso deste método.

Sub CommandButton2_Click()
  On Error Resume Next
  Dim Bind
  Set Bind = Screen.Item("ScrollBar1").Links.Item("Value")
  If Bind Is Nothing Then
    ' Se a conexão não existe
    MsgBox "ScrollBar1 não está conectado."
  Else
    MsgBox "ScrollBar1 está ligado à " & Bind.Source & "."
    MsgBox "Removendo o link."
    Screen.Item("ScrollBar1").Links.RemoveLink("Value")
  End If
End Sub

Esta página foi útil?