KB-31793: Criando associações via script.

Descrição:

Como posso criar associações via script?

Solução:

Para isto deve-se utilizar o método CreateLink() do objeto em que se deseja criar a associação.

O comando completo é: CreateLink(Property, Source [,Type])

Onde:

Property: especifica o nome da propriedade para qual será criada a conexão.
Source: especifica o nome do objeto-origem da conexão.
Type (opcional): especifica o tipo de conexão a ser criada. Quando este parâmetro for omitido, será criada uma conexão simples.

E os tipos de conexões (campo Type) são:
0 – Conexão Simples
1 – Conexão Bidirecional
2 – Conexão Analógica
3 – Conexão Digital
4 – Conexão por Tabela
5 – Conexão Reversa
6 – Conexão Múltipla

Exemplo de script criando um link de conexão simples:


Source  = "Dados.Tag.Value" 'String fonte da associação
Set Obj = Screen.Item("Text1")
Set Bind = Obj.Links.CreateLink("Value", Source, 0) 'CreateLink (String da propriedade, String Fonte, 0)

Exemplo de script criando um link de conexão bidirecional:


Source = "Dados.Tag.Value" 'String fonte da associação
Set Obj = Screen.Item("Text1")
Set Bind = Obj.Links.CreateLink("Value", Source, 1) 'CreateLink (String da propriedade, String Fonte, 1)

Exemplo de script criando um link de conexão analógica:

Source = "Dados.Tag.Value" 'Inteiro fonte da associação
Set Obj = Screen.Item("Text1")
Set Bind = Obj.Links.CreateLink("Value", Source, 2) 'CreateLink (String da propriedade, String Fonte, 2)
Bind.SrcHiValue = 1 'Valor máximo na fonte
Bind.SrcLoValue = 0 'Valor mínimo na fonte
Bind.DstHiValue = 100 'Valor máximo na propriedade
Bind.DstLoValue = 0  'Valor mínimo na propriedade

Exemplo de script criando um link de conexão digital:


Source = "Dados.Tag.Value" 'Booleano fonte da associação
Set Obj = Screen.Item("Text1")
set Bind = obj.Links.CreateLink("Value", Source, 3) 'CreateLink (String da propriedade, String Fonte, 3)
Bind.OnValue = "Text ON"
Bind.OffValue = "Text OFF"

Exemplo de script criando um link de conexão por tabela:

Source = "Dados.Tag.Value" 'Inteiro fonte da associação
Set Obj = Screen.Item("Text1")
Set Bind = Obj.Links.CreateLink("ForegroundColor", Source, 4) 'CreateLink (String da propriedade, String Fonte, 4)
Bind.InsertRow()
Bind.Item(1).Value = RGB(255,0,0)
Bind.Item(1).Min = 0
Bind.Item(1).Max = 10

Exemplo de script criando um link de conexão reversa:

Source = "Dados.Tag.Value" 'String fonte da associação
Set Obj = Screen.Item("Text1")
Set Bind = Obj.Links.CreateLink("Value", Source, 5) 'CreateLink (String da propriedade, String Fonte, 5)

Exemplo de script criando um link de conexão múltipla:


Source = "Dados.Tag.Value" 'Inteiro fonte da associação
Tag1 = "Dados.Tag1.Value" 'Tag fonte da linha 1
Set Obj = Screen.Item("Text1")
Set Bind = Obj.Links.CreateLink("Value", Source, 6) 'CreateLink (String da propriedade, String Fonte, 6)
Bind.InsertRow()
Bind.Item(1).Source = Tag1
Bind.Item(1).Min = 0
Bind.Item(1).Max = 10
Este artigo foi útil? Was this post helpful?
Yes0
No1

Deixe seu Comentário

Seu endereço de e-mail não será publicado. Campos marcados com asterisco são obrigatórios *