Preciso fazer conexão Bidirecional por Script

#1

Como fazer conexão bidirecional por script? Estou usando caixa de selecao dentro da listbox

"Sub ListBox1_OnStartRunning()
Const fmListStyleOption = 1

Const fmMultiSelectSingle = 0
Const fmMultiSelectMulti = 1
Const fmMultiSelectExtended = 2
Me.Clear()

' Exibe botoes de opcao ou caixas de selecao.
Me.ListStyle = fmListStyleOption

' Define multiplas selecoes.
Me.MultiSelect = fmMultiSelectMulti
"

--------------------------------------------------------------------------------’
Sub ListBox1_Change()
Set tag = Application.GetObject(“Rota.Rota”)

If Screen.Item(“ComboBox1”).ListIndex = 0 Then
tag.value = 1
MsgBox “Rota 1 Selecionada”

End If

—Só consigo mandar o sinal pro Demo simulador

#2

Boa tarde @Flaavio,

Pelo seu post não dá pra ter a menor idéia do que deseja fazer.

De qualquer forma segue literatura sobre criação de links em runtime.

#3

Usei o Script:

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

Deu certo e comunicou, mas apenas com a CheckBox1

Eu queria usar o script bidirecional dentro da ListBox, minhas opções dentro da Listbox possuem Caixa de marcação

“(script de caixa de marcacao)”
"Const fmListStyleOption = 1

Const fmMultiSelectSingle = 0
Const fmMultiSelectMulti = 1
Const fmMultiSelectExtended = 2
Me.Clear()

’ Exibe botoes de opcao ou caixas de selecao.
Me.ListStyle = fmListStyleOption

’ Define multiplas selecoes.
Me.MultiSelect = fmMultiSelectMulti"

Quero colocar o script de bidirecional pra marcar a opção e mandar o sinal