Baixe Programação de Formulários em VB: Criação, Propriedades e Eventos e outras Notas de estudo em PDF para Informática, somente na Docsity!
- Teste o aplicativo novamente: se tudo correu bem, o foco passou para a caixa txtEntrada. Desta, o foco vai para txtJuros, e assim por diante. Após testar em todos os controles, saia do aplicativo para podermos continuar;
- Agora vamos fazer a codificação necessária para carregar a variável vValor. Como você pode observar, como o tipo de vValor é Currency, usaremos a função CCur para converter o texto contido em txtValor para a variável, o que pode gerar um erro irrecuperável de execução se txtValor contiver qualquer texto que não represente um valor. Devemos então usar uma rotina de tratamento de erro para evitar problemas. Mas, onde escrever essa rotina? Podemos fazer isso no evento LostFocus do controle, pois assim uma mensagem de erro será exibida assim que txtValor perder o foco, se esta contiver um dado inválido. Abra a janela código no evento LostFocus do controle txtValor e escreva a codificação a seguir:
Private Sub txtValor_LostFocus() On Error GoTo Valor_Errado vValor = CCur(txtValor.Text)
Valor_Errado: If Err = 13 Then MsgBox "Dado inválido na digitação do valor do financiamento", _ vbExclamation + vbSystemModal, "Aviso" txtValor.Text = InputBox("Informe o valor correto do financiamento:", _ "Valor do Financiamento") Resume 0 End If End Sub
Note que usamos a função InputBox() para solicitar ao usuário que digite um dado válido em caso de erro de execução; Note também que o comando Resume é seguido do valor 0, o que vai fazer com que o VB retorne ao início da procedure em caso de erro e refaça a conversão do conteúdo de txtValor. Isso é importante pois, caso o usuário insista em escrever um dado inválido na caixa de entrada, o processo todo será repetido.
- Vamos testar nossa procedure. Execute o aplicativo e escreva um texto qualquer na caixa txtValor. Digamos, “aaa”. O resultado deve ser o da figura a seguir:
- Clicando no botão Ok, deverá aparecer a caixa de entrada:
- Agora digite um valor correto, como 12000. O texto aparecerá na caixa txtValor e o foco passará para txtEntrada. Saia do aplicativo para continuarmos a programação;
- Usando a procedure txtValor_LostFocus como base, escreva as rotinas para o evento LostFocus das outras caixas de texto. Lembre-se que a variável vJuros é do tipo Single, e portanto você deve usar a função CSng para a conversão. Além disso, o valor obtido deve ser dividido por 100, pois é um percentual. Já para a variável vMeses, que é Integer, você deverá usar a função CInt;
- Após isso, ainda falta escrevermos a rotina de cálculo que será chamada pelo botão cmdCalcular. Vá até a seção Declarations e adicione uma subrotina de nome Prestação;
- Na subrotina Prestação escreva a seguinte codificação (note o uso do operador And):
Public Sub Prestação() Dim vValFinanciado As Currency Dim vPrestMensal As Currency If vValor <> 0 And vJuros <> 0 And vMeses <> 0 Then If vEntrada >= vValor Then MsgBox "O valor da Entrada deve ser menor que o do Financiamento", _ vbExclamation + vbSystemModal, "Aviso" lblValFinanciado.Caption = Empty lblPrestMensal.Caption = Empty txtEntrada.SetFocus Exit Sub End If vValFinanciado = vValor - vEntrada vPrestMensal = vValFinanciado * vJuros * (1 + vJuros) ^ vMeses / _ ((1 + vJuros) ^ vMeses - 1) lblValFinanciado.Caption = Format(vValFinanciado, "###,##0.00") lblPrestMensal.Caption = Format(vPrestMensal, "###,##0.00") cmdCalcular.Enabled = True cmdFechar.Enabled = True Else lblValFinanciado.Caption = Empty lblPrestMensal.Caption = Empty End If End Sub
Observações:
O primeiro If verifica se todos os dados necessários para o cálculo estão disponíveis; O segundo If verifica se o valor da entrada não é maior ou igual ao do financiamento, pois senão o resultado do cálculo seria uma “prestação negativa” (se é que isso existe...);
Lição 6: Iniciando a Construção de um Sistema
Um projeto em VB é um conjunto de objetos. Até agora trabalhamos com apenas um objeto em cada projeto: o formulário. Sim, o formulário também é um objeto: você não reparou que ele também possui propriedades e responde a métodos? Obviamente, em um aplicativo mais complexo, como será o caso do sistema de Controle de Bibliotecas que começaremos a desenvolver nessa lição, além do formulário principal existem outros destinados a entrada de dados, exibição de mensagens ou de resultados de consultas, etc.
Existem outros tipos de objetos que podem ser adicionados ao projeto, como módulos de programação, relatórios, controles ActiveX e módulos de classe. O que os caracteriza é o fato de serem gravados em arquivos separados. Assim, o projeto pode ser considerado como um conjunto de arquivos, cada um deles correspondente a um objeto.
Trabalhando com Vários Formulários
Quando estamos desenvolvendo um projeto do qual vários formulários farão parte, obviamente vamos precisar adicionar a ele formulários novos e, muitas vezes, prontos. Além disso, uma aplicação Windows freqüentemente trabalha com outros tipos de formulários, diferentes daquele que usamos até agora.
Adicionando formulários ao projeto
Para incluir um novo formulário ou um formulário existente em um projeto, siga os seguintes passos:
Abra o menu Project do VB; Escolha a opção Add Form : a janela Add Form será aberta, com várias opções de tipos de formulários:
Se desejar acrescentar um formulário já existente, clique na aba Existing e indique sua localização; Se o formulário ainda não existe (formulário novo), você deve escolher um dos tipos da aba New. Para um formulário padrão, escolha a opção Form.
Em ambos os casos, o formulário será incluído na lista Forms da janela Projeto. A partir desse momento, ele poderá ser manipulado como outro qualquer. Vejamos alguns recursos necessários a esse trabalho:
Método Show
Esse método é usado para carregar e exibir um formulário. Sua sintaxe é:
<formulário>.Show
Onde <formulário> é o nome do formulário, e indica se o formulário será exibido como modal ou não. Um formulário modal é aquele que deve ser obrigatoriamente encerrado para que o aplicativo continue: enquanto ele estiver ativo, nenhuma outra janela ou aplicativo pode ser acessado. Para indicar se o formulário deve ser exibido como modal usamos a constante de sistema vbModal:
frmMeuForm.Show vbModal
Se a modalidade for omitida, será assumida como não-modal.
Método Refresh
Durante a execução do sistema, às vezes acontece uma situação que impede a exibição correta do formulário. Normalmente, isso ocorre quando alteramos um objeto de um formulário que já está sendo exibido em uma procedure externa a ele, ou então quando estamos executando ações que demandam uma certa quantidade de recursos do sistema, como na abertura de arquivos. O método Refresh corrige esse problema simplesmente provocando a reconstrução imediata do formulário. Outros objetos, como os controles Data, também aceitam o método Refresh.
Comando Unload
O comando Unload fecha um formulário e devolve o controle do sistema ao formulário que o chamou. Sua sintaxe é muito simples: basta indicar o nome do formulário. Exemplo:
Unload frmMeuForm
Eliminando formulários do projeto
Para excluir um formulário do projeto, basta clicar com o botão direito do mouse sobre o nome do formulário na janela Projeto e escolher a opção Remove <nome do formulário> no menu de contexto.
Formulários MDI
Um formulário MDI ( Multiple-Document Interface ) funciona como uma janela que contém outros formulários a ela subordinadas (chamados de MDIChild ), atuando em background para uma aplicação. Para criar um formulário MDI você deve escolher a opção Add MDI Form no menu Project do VB. Por suas características, o formulário principal de uma aplicação é freqüentemente criado como MDI. Veja as principais:
Uma aplicação pode conter apenas um formulário MDI, mas pode conter vários MDI Child Forms ; Se o formulário MDIChild contém uma estrutura de menus, a barra de menu do formulário MDI é automaticamente atualizada e o menu exibido passa a ser o do MDIChild ativo. Falaremos mais sobre menus logo adiante; Se o formulário MDI é minimizado, todos os formulários MDIChild abertos também são;
Se um formulário MDIChild é minimizado, aparece como um ícone no rodapé do MDI; A maioria das propriedades, métodos e eventos dos formulários MDI são os mesmos de um formulário comum, mas um MDI não pode ser aberto como modal;
Um formulário MDI só pode conter menus e o controle PictureBox , ou então controles customizados preparados para isso. Você pode usar outros controles no formulário MDI apenas se criar uma PictureBox e então inserir esses controles dentro dela, como se fosse uma “moldura”;
Um formulário MDIChild não aceita a propriedade StartUpPosition.
Propriedade MDIChild
Essa propriedade indica se um formulário será exibido como MDIChild ou não. A propriedade MDIChild só tem efeito quando existe no projeto um formulário MDI. Nesse caso, qualquer outro formulário que não o MDI (obviamente) poderá ser configurado como MDIChild.
Quando o valor de MDIChild é True, o formulário poderá ser maximizado, minimizado ou movido dentro do formulário principal (MDI). Assim como o MDI, um formulário MDIChild não pode ser aberto como modal. MDIChild não pode ser alterada em modo de execução, e o valor padrão é False.
A janela Menu Editor Quando o item leva o usuário a uma caixa de diálogo, seu rótulo deve ser seguido de reticências ( ... ). Quando leva a um submenu, deve ser seguido de uma seta ; Itens selecionáveis, como a opção Régua do menu Exibir do WordPad, devem ser precedidos pela marca de seleção quando estiverem ativos;
Quando algum pré-requisito para o funcionamento de uma opção não estiver sendo cumprido, ela deve aparecer desabilitada. Por exemplo: se não houver texto selecionado, as opções Copiar e Recortar não devem estar disponíveis.
Para acessar a janela Menu Editor , o formulário deve estar selecionado. Escolha então a opção no menu Tools do VB, acione a combinação Ctrl+E ou escolha o botão Menu Editor na barra de ferramentas.
Vamos descrever alguns componentes da janela Menu Editor:
Caption : neste campo deve ser digitado o rótulo que aparecerá na barra de menus ou dentro do menu: corresponde à propriedade Caption de um controle;
Name : neste campo informamos o valor da propriedade Name do menu;
ShortCut : permite a definição de uma tecla de atalho; Checked : permite a definição da propriedade Checked (marca de seleção);
Enabled e Visible : o mesmo que as propriedades Enabled e Visible dos controles; Index : quando o menu fizer parte de uma matriz, permite indicar seu índice;
Botões Up e Down : permitem a movimentação do menu selecionado para cima ou para baixo, mudando sua posição na barra;
Botões Left e Right : permitem a mudança de nível do menu, ou seja: se a opção aparecerá na barra de menu ou se fará parte de um submenu. Podem ser criados até quatro níveis;
Botão Next : move a seleção para a próxima linha, se houver. Se não houver, insere uma nova linha no final da lista;
Botão Insert : insere uma nova linha acima da selecionada; Botão Delete : exclui da lista a linha selecionada.
O Aplicativo Bibliotecário
Para exercitar os vários assuntos que veremos nessa lição, vamos iniciar a construção no nosso sistema, que chamaremos de Bibliotecário:
- Inicie um novo projeto;
- Remova a formulário Form1 do projeto;
- Adicione ao projeto um formulário MDI, e altere suas seguintes propriedades: Name : frmBiblio Caption : Bibliotecário – Controle de Acervo de Bibliotecas BackColor : Amarelo Claro (ou outra de sua preferência – mas não escolha uma cor muito forte para não ofuscar o coitado do usuário); Icon : Writing\Books01.ICO; WindowState : 2 - Maximized
- Configure-o como Startup Object. Aproveite que já está na janela Project Properties e altere também a propriedade Project Name para Bibliotecário. Essa propriedade equivale a um rótulo a ser exibido na janela Project para identificação do projeto, mas sua definição não é obrigatória;
- Salve o formulário com o nome de FrmBiblio e o projeto como Bibliotecario ;
- Abra a janela Menu Editor ;
- Defina os campos para a primeira opção do nosso menu: Caption = &Cadastros e Name = mnuCadastros;
- Clique no botão Next para passar para a próxima linha:
- O próximo item é a opção Livros do menu Cadastros: Caption : &Livros Name : mnuCadLivros
- Vamos incluir agora uma barra separadora. Selecione a opção Editoras e clique no botão Next;
- Indique para a propriedade Caption um hífen (-), e altere Name para BS1 (de Barra Separadora nº 1). Clique em Next;
- Para terminar o menu Cadastros, vamos incluir nele uma opção para sair do sistema: Caption : &Sair do Sistema Name : mnuSair
- Clique no botão Ok e confira o menu. Faça correções, se necessário;
- Adicione as demais opções do menu de acordo com a tabela abaixo:
Caption: Name: &Operações mnuOperacoes ....&Empréstimo de Livros mnuEmprestimos ....&Devolução de Livros mnuDevolucoes C&onsultas mnuConsultas ....&Livros mnuConLivros ........&Todos mnuConTodos ........- BS ........por A&utor mnuLivrosPorAutor ........por &Categoria mnuLivrosPorCategoria ........por E&ditora mnuLivrosPorEditora ........- BS ........&Emprestados mnuConEmprestados ........Em &Atraso mnuConAtrasados ....&Usuários mnuConUsuarios ....&Categorias mnuConCategorias ....&Editoras mnuConEditoras &Relatórios mnuRelatórios ....&Livros mnuRelLivros ....&Usuários mnuRelUsuarios ....&Categorias mnuRelCategorias ....&Editoras mnuRelEditoras &? mnuHelp ....&Sobre o Bibliotecário mnuSobre
- Verifique o funcionamento do menu. Note que na barra devem constar cinco opções: Cadastros, Operações, Consultas, Relatórios e ?. Além disso, nos menus Consultas e Relatórios, o item Livros leva a submenus. Seu formulário agora deve estar parecido com o do exemplo a seguir:
- Faça ajustes, se necessário;
- Salve o formulário como frmBiblio e o projeto como Bibliotecario.
Associando Codificação a um Menu
Um menu se comporta como outro objeto qualquer do VB, quanto à codificação. Só um evento é associado a um menu: o Click. Para exemplificar, vamos fazer a codificação do menu mnuSair:
- Em tempo de projeto, clique sobre o menu Cadastros para abri-lo;
- Clique sobre a opção Sair (não é necessário o duplo-click);
- A janela Código é aberta. Escreva a procedure correspondente:
Private Sub mnuSair_Click() Dim vOk as Integer vOk = MsgBox("Confirma o encerramento do sistema?", _ vbYesNo + vbQuestion + vbApplicationModal, "Saída") If vOk = vbYes Then End End Sub
- Execute o aplicativo e verifique o funcionamento da procedure.
Formulários Splash
A maioria dos aplicativos para Windows (como o Word e o próprio VB) exibe uma janela com diversas informações sobre o produto enquanto ele é carregado. Essa janela é chamada de Splash Window , ou tela de Splash. O VB 6 permite a criação dessas telas com muita facilidade. Para esses casos, o VB nos oferece um modelo de formulário pronto, configurado e com a programação necessária para funcionar como aqueles dos aplicativos comerciais. Vamos então criar um formulário Splash em nosso aplicativo:
- Abra a janela Add Form ;
- Lembra-se que na aba New há vários tipos disponíveis de formulários? Um deles é chamado de Splash Screen. É essa opção que usaremos para criar nossa tela de Splash. Escolha Splash Screen , e o formulário abaixo será adicionado ao projeto:
Em nosso sistema, usaremos um Timer para provocar uma pausa de 5 segundos, durante a qual será exibida nossa tela de Splash:
- Adicione um Timer ao frmSplash;
- Altere o valor da propriedade Interval do Timer para 5000;
- Dê um duplo click sobre o controle Timer e faça a codificação do evento Timer conforme segue:
Private Sub Timer1_Timer() Unload Me frmBiblio.Show End Sub
Obs.: “Me” é equivalente ao nome do formulário em uso. Assim, ao invés de ficarmos escrevendo o nome do formulário para acessar suas propriedades e métodos durante a codificação, podemos escrever simplesmente “Me” em seu lugar que o resultado será o mesmo.
- Execute o projeto e veja: seu aplicativo agora tem uma tela de Splash!
- Grave seu trabalho.
Formulários About
Outro modelo de formulário pré-definido que o VB nos oferece é o About Form , usado para a confecção daquelas janelas “Sobre...”. Para adicioná-lo o processo é o mesmo do Splash. Vamos inserir no projeto um formulário do tipo About:
- Abra a janela Add Form e escolha na aba New a opção About Dialog ;
- O formulário a seguir será inserido em seu projeto. Note os botões de comando: Ok fecha o formulário e System Info abre a janela de Informações do Sistema do Windows:
- Modifique-o ao seu gosto, mas cuidado com o evento Load: ele altera o rótulo de alguns labels. Se você mudar esses labels, apague as linhas correspondentes a eles em Form_Load. Veja como ficou o meu:
- Grave o formulário como frmAbout ;
- Abra o formulário frmBiblio e escreva o comando para exibir frmAbout em mnuSobre_Click:
Private Sub mnuSobre_Click() frmAbout.Show vbModal End Sub
- Execute o aplicativo. No formulário principal, escolha a opção Sobre no menu e veja se o formulário frm-About está funcionando corretamente;
- Grave seu trabalho. Continuaremos o desenvolvimento do sistema na próxima lição.
Criando Uma Barra de Ferramentas
Sem dúvida um dos recursos mais comuns nos aplicativos para Windows é a barra de botões ou de ferramentas - o próprio VB as tem em profusão. A principal finalidade dessas barras é a de facilitar o acesso do usuário aos comandos mais comuns do aplicativo.
O Controle ToolBar
Um dos controles customizados que acabamos de adicionar é o ToolBar, que permite a criação de barras de botões com muita facilidade. Ele responde ao evento Click, e a identificação do botão clicado é feita pelo seu número de índice.
Para criar os botões, ToolBar trabalha em conjunto com outro controle:
O Controle ImageList
O controle ImageList também faz parte dos Microsoft Windows Commom Controls e, como seu próprio nome indica, serve para criar uma lista de imagens que será associada a um outro controle, como uma ToolBar. Esse controle não responde a nenhum evento e não aparece no formulário durante a execução do aplicativo. Depois que a ImageList é associada a um controle, não pode mais ser alterada, a menos que a associação seja excluída.
Vamos então criar uma barra de botões em nosso projeto:
- Em tempo de projeto, abra o formulário frmBiblio;
- Adicione ao formulário uma ImageList. Não se preocupe com a posição em que ela vai ficar, pois como já disse ela não aparecerá durante a execução do aplicativo;
- Clique com o botão direito do mouse sobre a ImageList;
- No menu de contexto que se abre, escolha a opção Properties. A janela de propriedades da ImageList será exibida:
- Na aba General definimos o tamanho em pixels das imagens da lista. Compare os tamanhos:
16 x 16:
32 x 32:
48 x 48:
- Na aba Images inserimos as imagens que farão parte da lista:
- Para adicionar imagens, clicamos no botão Insert Picture e para excluir uma imagem no botão Remove Picture. Clique em Insert Picture e adicione o ícone Writing\Books02.ICO:
Obs.: note que, após adicionar o ícone, o campo Index passou a indicar o valor 1. Esse é o número de índice da imagem na lista, através do qual fazemos a associação da imagem com o botão da ToolBar.
- Adicione as seguintes imagens na lista. Procure respeitar a ordem na inclusão, para que o índice corresponda corretamente à imagem desejada quando estivermos criando a barra de botões: Misc\Misc28.ICO (Index 2) Writing\Book04.ICO (Index 3) Writing\Books04.ICO (Index 4) Traffic\Trffc14.ICO (Index 5)
- Se você fez tudo corretamente, sua ImageList deve estar parecida com o exemplo a seguir:
Style : indica o estilo dos botões da barra: pode ser 0 – tbrStandard , em que eles serão apresentados como pequenos botões de comando, ou 1 – tbsFlat , em que os botões terão a mesma aparência das barras de ferramentas do VB. Escolha Flat.
- Na aba Buttons configuramos cada um dos botões da barra. Para inserir um botão, clicamos em Insert Button , e para remover clicamos em Remove Button. Clique no botão Insert Button ;
- Vamos definir as propriedades do botão que inserimos. As principais propriedades dos botões são:
Index : indica o índice do botão na barra, pelo qual ele será identificado quando for clicado. Normalmente não alteramos o valor essa propriedade; Caption : define um rótulo para o botão. Deixe em branco, assim só será exibido o ícone no botão;
ToolTipText: texto a ser exibido em uma pequena etiqueta explicativa quando o ponteiro do mouse ficar parado por alguns instantes sobre o botão. Escreva “Cadastro de Livros” nessa propriedade (obs.: quase todos os controles do VB possuem essa propriedade); Image : indica o número da imagem da ImageList a ser exibida por esse botão. Indique o valor 1, que corresponde ao primeiro ícone da ImageList;
Visible e Enabled : o mesmo que as propriedades Visible e Enabled dos demais controles.
- Sua configuração do botão 1 deve estar assim:
- Insira mais quatro botões na barra, conforme a tabela a seguir:
Botão Propriedades = Valor 2 ToolTipText = Cadastro de Usuários Image = 2 3 ToolTipText = Empréstimo de Livros Image = 3 4 ToolTipText = Devolução de Livros Image = 4 5 ToolTipText = Sai do Sistema Image = 5
- Clique no botão Ok. Seu formulário deve estar parecido com o do exemplo a seguir:
- Salve seu trabalho.
Programando a Barra de Ferramentas
A programação dos botões da barra de botões é muito simples: como a barra só responde ao evento Click, basta que identifiquemos qual botão foi clicado e fazer a codificação correspondente. Como já vimos, a identificação do botão é feita pela propriedade Index. Vamos então programar o botão Sair:
- Dê um duplo click sobre a barra de botões para abrir a janela Código no evento Click da barra;
- Note que a procedure recebe um parâmetro, chamado Button, que indica em que botão aconteceu o click. Testaremos então o índice desse parâmetro (propriedade Index) para saber qual foi o botão clicado – em breve estudaremos a propriedade Index mais detalhadamente:
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) If Button.Index = 5 'Foi clicado o botão Sair: mnuSair_Click End If End Sub
- Repare que, se o botão for o número 5, chamaremos a subrotina mnuSair_Click, ou seja, estamos desviando a execução para o evento Click do menu Sair, pois a programação em ambos os casos é a mesma. Isso pode ser feito à vontade, pois os eventos dos controles também são subrotinas como quaisquer outras, e portanto podem ser executadas sempre que necessárias;
- Teste o aplicativo e verifique se o botão está funcionando como previsto;
- Salve seu trabalho. Os demais botões da barra serão programados conforme os formulários a que eles se referem forem sendo construídos nas próximas lições.
