Activate

<< Clique para Mostrar o Sumário >>

 

Activate

Activate()

Ativa um objeto que está inativo no momento. O script a seguir contém um exemplo de uso deste método.

Sub CommandButton1_Click()
  Dim obj, tag
  Set obj = Application.GetObject("Dados")
  ' Cria um novo objeto e o desativa (False)
  Set tag = obj.AddObject("DemoTag", False)
  ' Inicializa os parâmetros do novo objeto
  tag.Name = "tag001"
  tag.Type = 3
  ' Ativa o objeto (coloca em execução)
  tag.Activate()
End Sub

 

NOTA

Ativar um objeto usando este método configura a propriedade IsObjectActive deste objeto para Verdadeiro.

Esta página foi útil?