Noções de VBScript no Software Elipse E3: Lição 2 – Referência a Objetos.

Application

A palavra Application representa a aplicação como um todo e pode indicar tanto funções que são executadas no E3 Viewer quanto no servidor. No caso, o objeto Application sabe de antemão quais funções devem ser executadas tanto para um quanto para outro caso. Não é possível, entretanto, executar funções de E3 Viewer dentro do servidor, assim como também não é possível executar funções de servidor dentro do E3 Viewer.

Exemplo:

Application.ChangePassword(): Função do Viewer que permite alterar a senha do usuário atual.
Application.Trace (mensagem): Função do Servidor que escreve em um arquivo texto.

Exercícios:

Viewer
1. Cadastre pelo menos 2 usuários, sendo um deles Administrador.
2. Crie um botão para fazer o login (método Login)
3. Crie um botão para alterar a senha do usuário (método ChangePassword).
4. Crie um botão para chamar a administração de usuários (método UserAdministration)
5. Crie um botão para confirmar a senha (método PasswordConfirm)
6. Crie um botão para exibir o nome completo do usuário (método GetFullUserName)

Servidor
7. Crie um tag Interno.
8. No evento OnStartRunning do tag Interno use o método Trace do Servidor para criar um arquivo texto com a mensagem “Tag iniciado”


Objetos do Servidor

Para se acessar um objeto que está sendo executado no servidor a partir de um Objeto de Tela ou um ElipseX, deve-se usar a diretiva Application.GetObject.

Exemplo:

Figura 6

 

Application.GetObject(“Dados.TagInterno1”): Tag Interno do Servidor Dados.
Application.GetObject(“BancoDados”): Banco de Dados.

Exercícios:

9. Insira um tag demo e um tag interno na aplicação.
10. Mostre em uma MessageBox o nome do tag interno criado no exercício anterior.
11. Mostre em uma MessageBox o nome do tag demo criado no exercício anterior.

Item

O método Item retorna a referência para o objeto-filho do objeto que o chamou. Este método pode buscar um objeto tanto pelo nome quanto pelo índice (inteiro). Se o índice ou o nome especificado for válido, o método Item() retorna a referência do objeto. Caso contrário, o método retorna um erro de “parâmetro inválido”.

Exemplo:


Figura 7

Screen.Item(“E3Browser1”): Objeto E3Browser que está dentro da tela.
Screen.Item(“E3Browser1”).Item(“Consulta1”):Objeto Consulta que está dentro do E3Browser.

Exercícios:

12. Crie dois textos na tela com a mensagem que desejar.
13. Agrupe os textos.
14. Mostre em uma MessageBox o nome do grupo criado no exercício anterior.
15. Mostre em uma MessageBox o nome texto criado no exercício anterior.
16. Qual das alternativas é o modo correto de se referenciar ao objeto Consulta1?


Figura 8

Comando Set

O VBScript implementa o conceito 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 do objeto desejado, permitindo acessar seus métodos e propriedades.

Exemplo:

Set retangulo = Screen.Item("Retangulo1")
retangulo.BackgroundColor = RGB (255,0,0)

Sem o comando Set, a mesma chamada teria que ser:

Screen.Item("Retangulo1").BackgroundColor = RGB(255,0,0)

Aparentemente, não existe vantagem neste caso, pois se pode fazer tudo em uma única linha de código. Porém, se logo abaixo no mesmo script, outras operações forem necessárias, o processo se torna mais simples e rápido se a chamada do método Item() não tiver sido colocada 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

Exercícios:

17. Insira um gráfico na tela com 1 pena. Configure-o para mostrar Legenda.
18. Ao clicar na legenda do gráfico, mostre em uma caixa de mensagem (msgbox) o nome e a cor da pena. Use o comando SET.
19. Ao clicar no gráfico, exiba a posição X e Y da pena em dois displays na tela.

Anexos:

Licao2.zip

Este artigo foi útil? Was this post helpful?
Yes0
No0

Deixe seu Comentário

Seu endereço de e-mail não será publicado. Campos marcados com asterisco são obrigatórios *