Comando Set

<< Clique para Mostrar o Sumário >>

 

Comando Set

O VBScript implementa o conceito das linguagens de programação 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 métodos e propriedades, conforme o exemplo a seguir.

Set retangulo = Screen.Item("Retangulo1")
retangulo.BackgroudColor = RGB(255, 0, 0)
'Sem o comando Set, a mesma chamada
'teria que ser escrita da seguinte forma
Screen.Item("Retangulo1").BackgroundColor = RGB(255, 0, 0)

 

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

'Exemplo ruim
Screen.Item("Retangulo1").BackgroundColor= RGB(212, 208, 20)
Screen.Item("Retangulo1").Height = 500
Screen.Item("Retangulo1").Width = 500
'Exemplo melhor
Set Retangulo = Screen.Item("Retangulo1")
Retangulo.BackgroundColor = RGB(212, 208, 20)
Retangulo.Height = 500
Retangulo.Width = 500

Esta página foi útil?