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.
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
