Descrição:
Em uma aplicação, como determinar se um objeto possui link entre um XControl e alguns XObjects que funcionam como fonte?
Exemplo: Um objeto de tela possui as propriedades ‘fonte1’, ‘fonte2’, ‘fonte3’, que são do tipo objeto de servidor. Estes objetos podem estar associados a quaisquer número de fontes (3, 2, 1 ou 0). Como testar, via scripts, a existência destas fontes?
Solução:
Pode-se utilizar o seguinte script no evento desejado do XControl:
On error resume next
fonte1 = XControl1.Conexao.Pathname
If err.number = 0 then
MsgBox "Com conexão"
Else
MsgBox "Sem conexão"
End If
NOTA: Anexo a este artigo está uma aplicação exemplo que ilustra a solução descrita acima.
Anexos:
