Alterar propriedades de um objeto dinamicamente

#1

Olá, tudo bem?

Existe a possibilidade de alterar as propriedades de um XObject a partir de uma tag interna?
Por exemplo, tenho uma LIB que tem um XOBJECT.

Nesse XObject tenho 5 proprieades.
Prop1,Prop2, Prop3, Prop4 e Prop5.

No mesmo XObject eu criei uma Servidor de dados e dentro desse servidor eu coloquei uma TagInterna.
E nessa tag interna a cada 30 segundos eu quero preencher as propriedades… mas ao invés de incluir 5 linhas eu gostaria de fazer um FOR e preencher o value… Pois imagina que eu tivesse 30 propriedades iguais?

Então o código da taginterna ficaria mais ou menos assim:
FOR i = 1 TO 5
//COMO PREENCHER AS PROPRIEDADES DINAMICAMENTE???
**_

SET contato = ???**

_
contato.Value = 20
NEXT

#2

Olá @Ranniere,

Para preencher dinamicamente as propriedades, é necessário montar uma string e após executa-la.
Experimente da seguinte forma:

For i = 1 to 5
Execute “XObject1.Prop”&i&" ="&i
Next

Onde o comando Execute monta a string e executa a mesma.
Teste isto e me avise.

#3

Muito Obrigado Daniel.
Deu certinho para o que eu precisava…

Inclusive, caso alguém precise, além de preencher as propriedades é possível preencher variáveis dinamicamente.
Por exemplo, você precisa fazer um cálculo dentro de uma rotina de repetição e cada posição você precisa preencher uma variável que vai utilizar no cálculo.

Ficaria mais ou menos assim:

DIM Get_Y_Value, cmdYValue
FOR i = 1 TO 10
'STRING PARA PREENCHER A VARIAVEL
cmdYValue = “Get_Y_Value = XOBJECT.Get_Y” & i
Execute cmdYValue
NEXT

Valeu.

1 Like