Comando Set

<< Clique para Mostrar o Sumário >>

 

Comando Set

O VBScript implementa o conceito de polimorfismo das linguagens orientadas a objeto, permitindo que uma variável do tipo Variant assuma a forma de um objeto qualquer através do comando Set. Deste modo, a variável funciona como um ponteiro para o objeto desejado, permitindo acessar os métodos e propriedades, conforme o exemplo a seguir.

Sub CommandButton1_Click()
  Set E3Chart = Screen.Item("E3Chart1")
  E3Chart.Pens.Item(2).Color = RGB(212, 208, 20)
End Sub

 

Neste exemplo foi executada a mesma tarefa da seção anterior, porém a parte referente a como chegar até o objeto específico havia sido omitida. Sem o comando Set, a mesma chamada teria que ser escrita conforme o exemplo a seguir.

Screen.Item("E3Chart1").Pens.Item(2).Color = RGB(212, 208, 20)

 

Aparentemente não existe vantagem neste caso, pois pode-se realizar todo o procedimento em uma única linha de código. Porém, se logo adiante no mesmo script outras operações forem necessárias, o processo se torna mais simples e rápido se a chamada ao método Item não tiver sido colocada em todas as linhas.

Sub CommandButton1_Click()
  'Exemplo ruim
  Screen.Item("E3Chart1").Pens.Item(0).Color = RGB(212, 208, 20)
  Screen.Item("E3Chart1").Pens.Item(1).Color = RGB(200, 208, 20)
  Screen.Item("E3Chart1").Pens.Item(2).Color = RGB(100, 208, 20)
End Sub
 
Sub CommandButton2_Click()
  'Exemplo melhor
  Set Penas = Screen.Item("E3Chart1").Pens
  Penas.Item(0).Color = RGB(212, 208, 20)
  Penas.Item(1).Color = RGB(200, 208, 20)
  Penas.Item(2).Color = RGB(100, 208, 20)
End Sub

Esta página foi útil?