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(“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:
