ESCOLA SECUNDÁRIA DE ALBERTO SAMPAIO

12+1 B
CURSO: Aplicações Informáticas de Gestão

UNIÃO EUROPEIA

Fundo Social Europeu

Escola Secundária de Alberto Sampaio

Curso de Especialização Tecnológica em
Aplicações Informáticas de Gestão

Disciplina de Aplicações de Gestão

Ano Lectivo de 2003/2004

Unidade 3
Visual Basic

Fevereiro, 2004
 ESCOLA SECUNDÁRIA DE ALBERTO SAMPAIO
12+1 B
CURSO: Aplicações Informáticas de Gestão

UNIÃO EUROPEIA

Fundo Social Europeu

Unidade 3
Visual Basic
Extraído de
Paiva L. F.: Visual Basic 5.0 Passo a
Passo.

Fevereiro, 2004
 Sumário

1 APRESENTAÇÃO DO VISUAL BASIC 5............................................................................................ 5

1.1 APRESENTAÇÃO DAS JANELAS ............................................................................................................ 6
1.1.1 Padronização em programas para Windows ............................................................................... 7
1.1.2 Barra de Menus e Botões ........................................................................................................... 8
1.1.3 Os Controles (Caixa de Ferramentas) ......................................................................................... 8
1.1.4 Propriedades dos Objetos........................................................................................................... 9
1.1.5 O Formulário (Form) ............................................................................................................... 11
1.1.6 Caixa de Projetos ..................................................................................................................... 12
1.1.7 Janela de Codificação ............................................................................................................... 12
1.2 SALVANDO UM PROJETO .................................................................................................................. 16
2 OS CONTROLES BÁSICOS ............................................................................................................... 19
2.1 FORMULÁRIO E SUAS PROPRIEDADES ................................................................................... 20
2.1.1 Propriedades Principais do Form .............................................................................................. 20
2.1.2 As Propriedades Principais do CommandButton....................................................................... 24
2.1.3 Propriedades Principais do Label.............................................................................................. 26
2.1.4 Propriedades Principais do TextBox......................................................................................... 27
2.1.5 Eventos relacionados ao Objeto TextBox ................................................................................. 29
2.1.6 Caixa de Texto para várias linhas ............................................................................................. 34
2.1.7 Propriedades Principais do CheckBox ...................................................................................... 34
2.1.8 Propriedades Principais do OptionButton ................................................................................. 36
2.1.9 Propriedades Principais do Frame ............................................................................................ 38
3 SELECIONANDO ITENS .................................................................................................................... 44
3.1 O OBJETO LISTBOX.......................................................................................................................... 45
3.1.1 Propriedades Principais do ListBox .......................................................................................... 45
3.1.2 Propriedades em tempo de execução ........................................................................................ 47
3.1.3 Eventos do ListBox ................................................................................................................. 48
3.1.4 Métodos AddItem, RemoveItem e Clear .................................................................................. 48
3.2 O OBJETO COMBOBOX..................................................................................................................... 51
3.2.1 Propriedades Principais do ComboBox .................................................................................... 51
3.2.2 Os Métodos ............................................................................................................................. 52
4 O FOCO ................................................................................................................................................ 56
4.1 O FOCO ........................................................................................................................................... 57
4.1.1 Propriedades TabIndex e TabStop ........................................................................................... 57
4.1.2 A Tecla Enter .......................................................................................................................... 58
4.1.3 Método SetFocus .................................................................................................................... 60
4.1.4 Eventos GotFocus e LostFocus................................................................................................ 60
4.1.5 Mnemônico (Tecla de Acesso) ................................................................................................. 64
5 CONTROLES ESPECIAIS .................................................................................................................. 66
5.1 MASKEDITBOX................................................................................................................................ 67
5.2 COMMONDIALOG............................................................................................................................. 70
6 MENUS ................................................................................................................................................. 76
6.1 MENUS ............................................................................................................................................ 77
6.1.1 Criando Menus ........................................................................................................................ 77
6.1.2 Menus Instantâneos ................................................................................................................. 81
7 VARIÁVEIS E MATRIZES ................................................................................................................. 83
7.1 AS CARACTERÍSTICAS DE UMA VARIÁVEL ........................................................................................ 84
7.1.1 O Comando Dim...................................................................................................................... 84
7.1.2 Os Tipos de Variável ............................................................................................................... 86
7.1.3 As Variáveis Númericas ........................................................................................................... 86
7.1.4 Variável String......................................................................................................................... 86
7.1.5 Variável Boolean ..................................................................................................................... 87
7.1.6 Variável Date........................................................................................................................... 87
7.1.7 Variável Object ........................................................................................................................ 87
7.1.8 Variável Variant....................................................................................................................... 88
7.1.9 Null ......................................................................................................................................... 88
 7.2 ABRANGÊNCIA E TEMPO DE VIDA DE UMA VARIÁVEL ....................................................................... 88
7.3 MATRIZES........................................................................................................................................ 93
7.3.1 Matrizes Unidimensional .......................................................................................................... 93
7.3.2 Matrizes Multidimensional ....................................................................................................... 94
7.3.3 Matrizes Dinâmicas.................................................................................................................. 94
7.3.4 Matrizes no ComboBox e no ListBox ...................................................................................... 95
7.3.5 A Propriedade Index dos Objetos ............................................................................................. 96
8 OPERADORES................................................................................................................................... 100
8.1 OPERADORES ................................................................................................................................. 101
8.1.1 Operadores Matemáticos ....................................................................................................... 101
8.1.2 Operadores Relacionais.......................................................................................................... 102
8.1.3 Operadores Lógicos ............................................................................................................... 102
8.1.4 Operador de String ................................................................................................................ 103
9 COMANDOS CONDICIONAIS E DE LAÇO .................................................................................. 107
9.1 COMANDOS CONDICIONAIS ............................................................................................................ 108
9.2 COMANDOS DE LAÇO ..................................................................................................................... 112
10 FUNÇÕES DE AUXILIO ............................................................................................................... 116
10.1 FUNÇÕES ....................................................................................................................................... 117
10.1.1 Funções matemáticas ............................................................................................................. 117
10.1.2 Funções de Conversão ........................................................................................................... 119
10.1.3 Funções de Data e Hora ......................................................................................................... 121
10.1.4 Funções de String .................................................................................................................. 126
10.1.5 Funções de Manipulação de Matrizes ..................................................................................... 128
10.1.6 Funções Lógicas .................................................................................................................... 129
10.1.7 Funções de Disco ................................................................................................................... 130
10.1.8 Funções de Teste ................................................................................................................... 131
10.1.9 Funções de Escolha ............................................................................................................... 132
10.2 A FUNÇÃO FORMAT .................................................................................................................... 136
11 CRIAÇÃO DO BANCO DE DADOS............................................................................................. 148
11.1 BANCO DE DADOS .................................................................................................................... 149
11.1.1 Características ....................................................................................................................... 149
11.1.2 Visual Data Manager (VisData) ............................................................................................. 150
11.1.3 Criando indices ...................................................................................................................... 155
12 MANIPULAÇÃO DO BANCO DE DADOS ................................................................................. 158
12.1 CRIANDO JANELAS ......................................................................................................................... 159
12.1.1 Abrindo um banco de dados ................................................................................................... 162
12.1.2 Abrindo um indice ................................................................................................................. 164
12.1.3 Fechando um banco de dados................................................................................................. 164
12.1.4 Cuidados especiais ................................................................................................................. 165
12.1.5 Funções de apoio ................................................................................................................... 167
12.2 ADICIONANDO DADOS ................................................................................................................... 169
12.3 PRÓXIMO E ANTERIOR ................................................................................................................... 172
12.4 ALTERAÇÃO................................................................................................................................... 173
12.5 CONSULTA ..................................................................................................................................... 173
12.6 EXCLUSÃO..................................................................................................................................... 175
12.7 CONSIDERAÇÕES FINAIS ................................................................................................................. 175
12.8 CADASTRO DE CLIENTES................................................................................................................. 175
12.9 LANÇAMENTO DAS VENDAS ........................................................................................................... 180
13 USANDO O CONTROLE DATA .................................................................................................. 192
13.1 CONTROLE DATA ........................................................................................................................... 193
13.2 DBGRID ....................................................................................................................................... 195
14 IMPRESSÃO .................................................................................................................................. 201
14.1 PRINTER ........................................................................................................................................ 202
14.2 CRYSTAL REPORTS ......................................................................................................................... 207

4
1 APRESENTAÇÃO DO VISUAL BASIC 5

 Apresentação das Janelas

 Salvando um Projeto
 Controles Básicos

1.1 APRESENTAÇÃO DAS JANELAS

Disposição padrão das janelas do Visual Basic

O Visual Basic 5 se tornou a mais poderosa ferramenta de desenvolvimento de aplicações e o limite

desta linguagem é a imaginação de cada um.
Para o programa ser apresentado para nós, precisamos dar um click no ícone “Visual Basic 5”
encontrado na pasta “Microsoft Visual Basic 5.0”, como mostrado na figura 2.

Ícone que da acesso ao

programa Visual Basic.

A Versão 5 desta linguagem é destinada exclusivamente a criação de programas em 32 bits, ou seja,

para Windows 95 ou superior ou Windows NT.

6
 Controles Básicos

Nesta versão, quando abrimos

o Visual Basic, ele nos dá uma
séria de opções sobre o que
desejamos criar: um
executável, uma DLL, um
ActiveX, etc. Por padrão
usaremos somente "standard
EXE" que é o usual para
criação de programas
executáveis.

1.1.1 Padronização em programas para Windows

Existe uma padronização que o programador deve obedecer quando estiver desenvolvendo sua
aplicação, e com certeza o usuário irá agradecer e muito por esta lembrança. Veja alguns itens
importantes:
 Em menus de Edição sempre colocar as opções Recortar, Copiar e Colar.
 Sempre coloque um menu HELP.
 Não abuse das cores. Você conhece algum programa para Windows “sério” cujas janelas
são apresentadas nas cores verdes, azul, amarela? Com certeza não. As janelas são
quase sempre brancas ou cinzas.
 Sempre use teclas de atalho para o usuário “cortar caminho”. Lembre-se que nem todos
usuários gostam de usar o rato intensivamente. Alguns preferem, sempre que podem,
usar o teclado. Então dê esta opção.
 Sempre dê a possibilidade ao usuário de cancelar uma alteração feita em uma
determinada janela. O botão “Cancelar” existe nos melhores programas existente no
mercado.
 Quando um usuário escolhe uma aplicação para Windows para sua empresa e diversão,
ele sabe que não vai encontrar dificuldades na operação do programa, pois todos são
semelhantes em vários aspectos, então mantenha essa semelhança.

7
 Controles Básicos

1.1.2 Barra de Menus e Botões

Usamos as opções do menu do Visual Basic para configurar nosso ambiente de trabalho, janelas,
cores, inserir novos formulários, módulos, salvar o projeto, sair do Visual, etc. Não usamos os
menus para construir nenhuma aplicação, suas opções são de assistência. Vamos no decorrer deste
livro comentar as opções principais e mais usadas.

Como o acesso aos menus geralmente é um processo mais lento do que o acesso a botões, o Visual
Basic dá a possibilidade de podermos “cortar caminho” através da barra de botões. As principais
opções do Menu foram duplicadas em forma de botões.

1.1.3 Os Controles (Caixa de Ferramentas)

Os botões existentes no lado esquerdo de nosso projeto, dentro de
uma janela vertical, são chamados de controlos, ou caixa de
ferramentas, e serão esses controles que irão “montar” nossa
aplicação. Através deles inserimos os objetos que precisamos para
criar nossos formulários.
Quando entramos no Visual Basic pela primeira vez, nem sempre
todos os controles estão disponíveis. Para podermos configurar
quais controles queremos que apareça em nosso projeto,
precisamos acessar o menu Project, opção Components. Será
mostrado uma lista de Controlos que podem ser anexados a Caixa
de Ferramentas para podermos usar em nosso projeto. Com um
click do rato sobre a caixa de seleção dos controles, pode-se
marcar ou desmarcar quais controles necessitamos.
Para termos acesso a todos os controles padrão do Visual Basic,
selecionamos todos que possuem a extensão OCX. Confira no
campo “Active Setup Control Library” o nome do arquivo que possui
o controle.

Sempre que selecionamos

um controle, aqui
aparecerá o nome do
arquivo correspondente.

Relação dos controles

disponíveis para serem
selecionados e acrescidos
na Caixa de Ferramentas.

8
 Controles Básicos

Barra de Ferramentas: Dentro dela estão todos os controles (objetos) que

podemos usar em nosso projeto. Para usar um deles precisamos selecionar
(clicando nele com o rato) e inseri-lo dentro de nosso Formulário. Cada Objeto
possui uma série de propriedades que podemos personalizar para usar de acordo
com nossa necessidade.
Temos aqui Objetos para colocar rótulo, caixa de edição, manipular Banco de
Dados, caixa de Opção, barra de status, inserir figura, botão de comando, etc.
Toda interface de nosso formulário pode ser montado a partir desses controles.
Uma vez inserido um desses Objetos dentro de nosso formulário, podemos
manipular sua aparência e sua função através das propriedades que cada Objeto
desse possui.
Dependendo da versão do Windows que estiver usando, alguns Controles podem
não aparecer, pois existem alguns que são especificom do Windows 95.

1.1.4 Propriedades dos Objetos

Sempre que selecionamos um Objeto qualquer aparecerá no canto direito da tela
uma janela de propriedades daquele objeto selecionado. Podemos então
modificar as propriedades da forma que precisamos, e algumas delas veremos o
resultado ainda em tempo de projeto, outros só veremos o resultado em tempo de
execução.

9
 Controles Básicos

Titulo “Properties” e o nome dado para o

formulário selecionado no projeto.

Nesta caixa aparece no canto direito o nome

dado pelo usuário ao Objeto selecionado, e
no canto direito o tipo de Objeto. No exemplo
mostramos o objeto de nome Form1 tipo
Form (formulário). Podemos também
selecionar outro objeto que existe em nosso
formulário nesta caixa, clicando na seta para
baixo, e selecionando outro objeto que ali
esteja disponível para seleção.

Nesta coluna aparece o nome das

Propriedades. Cada Objeto possui uma
quantidade diversa de propriedade para
vários aspectos diferente. Como por exemplo,
a Propriedade “BorderStyler” que especifica
o tipo de borda que o Objeto terá. A
Propriedade “Caption” que da um título ao
Objeto, Propriedade “BackColor” onde se
escolhe a cor de fundo que o objeto terá.
Lembrando que essas propriedades atuam
somente no Objeto selecionado. Se queremos
mudar uma determinada propriedade de um
Botão de Comando por exemplo, precisamos
selecioná-lo na forma, e depois levar o rato
até a propriedade que se quer mudar.

Esta coluna é onde modificamos a

propriedade escolhida, seja através de uma
lista de opções (ComboBox), ou digitada
diretamente.

Vamos por ora ressalvar duas propriedades que a maioria absoluta dos objetos possuem: Caption e
Name.
A propriedade Caption é responsável pela legenda (título) que o objeto terá quando aparecer em
nosso formulário. Por exemplo, num objeto CommandButton (Botão de Comando), o Caption é
quem coloca o título que irá aparecer dentro do botão.
A propriedade Name nomeia um objeto, e sempre que formos nos referenciar a este objeto em
qualquer etapa de nosso projeto, usamos o nome dado na propriedade Name dele. Se um botão
“Cancelar” tiver o nome de cmdCancelar, é este o nome que vamos usar na codificação deste objeto.
Este nome fica atribuído ao objeto.
Para se dar nomes a alguns objetos algumas regras tem que serem seguidas, como por exemplo,
não pode conter espaços em branco, não se pode usar sinais como “ #$&+-^ ”. Como padrão
acostuma-se a usar as três primeiras letras do nome para abreviar o tipo do Objeto, para durante a
codificação do programa facilitar na identificação de qual objecto estamos a usar. Por exemplo: Um
botão de comando é do tipo CommandButton, e abreviamos como “cmd”, um formulário é do tipo
Form, e abreviamos como “frm”, uma máscara de edição é do tipo MaskEdBox, e abreviamos como
“msk”. Essas abreviações ficam a critério do programador.
Mas para compor a propriedade Name, não colocamos
somente abreviações do tipo de objeto que ele representa,

10
 Controles Básicos

mas também o que se trata o Objeto. Por exemplo: temos duas caixas de opções (OptionButton),
onde temos a opção para o usuário escolher: Masculino e Feminino. Abreviamos este tipo de objeto
como “opt”, e o nome destes OptionButton ficaria assim: optMasculino, e o outro optFeminino.
Para se conhecer o tipo de cada Objeto existente na caixa de ferramentas é só ficar com o rato em
cima de qualquer objeto, e o tipo aparecerá dentro de uma caixinha amarela.

1.1.5 O Formulário (Form)

Nesta janela é onde
colocamos todos os
Objetos necessários para
montar nosso projeto. Um
projeto pode ter vários
formulários. Chamamos
de formulário, mas na
verdade se trata de uma
janela que nosso
programa vai usar, seja
uma janela de
cadastramento, janela
principal, janela de aviso.
Não importa. Sempre que
uma janela for aparecer
em nosso programa,
temos que criar um Formulário (Form). Quando abrimos o Visual Basic aparece um formulário
vazio, somente com o título “Form1” o Menu de Controle com o ícone padrão do Visual Basic e os
botões de Minimizar, Maximizar e Fechar. No corpo do formulário existe somente uma série de
pontos pequenos espalhados. Esses pontos não aparece quando nossa aplicação é executada. Eles
têm a função única de auxiliar no alinhamento dos objetos que são inseridos dentro do formulário. Se
não existisse esses pontos ficaria mais difícil colocar os OptionButton (optMasculino e optFeminino)
um abaixo do outro na mesma posição.
Botão Fechar

Botão Maximizar

Botão Minimizar

Área de titulo.
Caption do
formulário.
Menu de Controle.

Área onde serão inseridos os objetos para

criação de nosso formulário. Chamamos de
Control Box a união
dos botões minimizar,
maximizar, fechar e o
menu de controle

Para se inserir um Objeto da caixa de ferramentas para o formulário existem dois procedimentos:
Escolha o objeto que se quer usar, e de dois clicks com o rato em cima dele, e logo o objeto irá

11
 Controles Básicos

aparecer no centro do formulário. Esse método não é muito aconselhado pois o Controle escolhido
não vai para onde você precisa dele, e sim sempre para o centro do formulário, obrigando-o a ir com
o rato até o objeto e arrastá-lo para onde realmente necessitamos dele.
O modo mais aconselhado para inserção de objetos no formulário, é dando um click com o rato no
objeto, e depois leve o ponteiro do rato para o formulário (dentro do formulário o ponteiro do rato irá
se transformar numa cruz), e então clicando no botão esquerdo do rato faça um quadrado. O objeto
irá aparecer dentro de seu quadrado. Isto é útil pois podemos inserir o objeto exatamente onde
precisamos.

  escolha o
objeto do
 tipo
CommandButt
Criando o objeto, com Soltando o botão do om e
botão do rato apertado. mouse, o objeto é criado coloque-o
na posição e dimensão
dentro do
escolhida.
formulário.

1.1.6 Caixa de Projetos

Dentro da caixa de projetos existe uma lista dos formulários, módulos, bibliotecas e classes criados
dentro de nosso projeto. Imagine um projeto que contenha cerca de 8 janelas (consequentemente 8
formulários), para acessarmos o formulário pretendido para alterar ou acrescentar algum objeto,
basta clicar no formulário escolhido dentro da caixa de projetos.

Nome dado ao projeto

No lado direito, entre

parentese, esta o nome do
arquivo físico gravado no seu
disco. No lado esquerdo esta
o nome (Name) dado para o
formulário.

Ao selecionar o formulário Selecionando um formulário, aperte este

pretendido, aperte este botão e botão para ver sua codificação. Nesta
o formulário irá aparecer no janela de código aparecerá os
centro da tela. Caso o procedimentos, funções e eventos. Se o
componente não seja um componente escolhido não tiver opção de
formulário, este botão estará codificação, então este botão estará
desabilitado. desabilitado.

1.1.7 Janela de Codificação

Aqui é onde a programação no sentido da palavra começa. A criação da interface com o usuário não
usa nenhuma linha de código, mas quando precisamos começar a manipular os dados digitados pelo
usuário, então é necessário algum conhecimento dos procedimentos, comandos e funções do Visual
Basic.

12
 Controles Básicos

Cada objeto colocado no formulário possui eventos, e baseados nestes eventos vamos criar nosso
programa. Por exemplo: Se queremos que ao apertar o botão “Fechar”, o programa feche a janela,
então precisamos, dentro da janela de codificação criar um evento para o objeto Botão chamado
Click. Dentro deste evento colocamos tudo que queremos que aconteça ao darmos um click neste
botão criado.
Para acessar a janela de codificação podemos dar dois clickes em qualquer objeto ou apertar o
botão “View Code” na Caixa de Projetos. O mais prático é sempre dar dois clickes no objetos que
queremos codificar, pois assim a janela de codificação será aberta já pronta para codificar o objeto
selecionado.

13
 Controles Básicos

É bom lembrarmos que cada objeto possui vários eventos diferentes, e nossa tarefa básica é
codificar cada evento que nosso programa necessitar. Somente ocorre eventos durante a execução
do programa. Por exemplo, existe um evento chamado Click, que é para quando damos um click
com o rato no objeto. Evento MouseMove para quando o rato se movimentar dentro do objeto.
Evento KeyPress para quando um tecla for pressionada dentro do objeto. Estudaremos mais em
detalhe esses eventos. Por ora é importante entender a utilidade deles, e qual a finalidade deles em

Objeto a ser Nome dos eventos

codificado. Quando disponível para o
damos dois clickes objeto selecionado.
em um objeto, o Ao clicar nesta
nome dele já vem caixa os eventos
para este campo. aparecem.

nossa codificação.

 Crie um Projeto novo, e no objeto Form

modifique as propriedades:
Caption = “Janela Teste”
Name = “frmJanelaTeste”
 Em seguida insira um CommandButton no
formulário e mude as propriedades também:
Caption = “Fechar”
Name = “cmdFechar”
 Dê agora dois clickes no botão “Fechar”
dentro do formulário. A janela de código
será aberta e será mostrado a seguinte
codificação:
Private Sub cmdFechar_Click()

End Sub
 O Cursor ficará piscando acima do comando “End Sub”, esperando você
digitar algo ali.

 Sempre que criamos um evento aparece o nome “Private Sub” sinalizando o

início do procedimento. Depois vem o nome do procedimento, que no nosso
caso é “cmdFechar_Click”. Note que é o nome que damos para o Objeto
selecionado quando chamados a janela de código. Após o sinal de

14
 Controles Básicos

“sublinhado” aparece o nome do evento, igual o que aparece na caixa de

combinação acima.
 Note na janela de codificação que o campo Object será o cmdFechar, pois
este objeto é quem estava selecionado quando chamados a janela de
codificação. Ao lado esta uma lista de Eventos, e o evento Click já estará
pronto para ser codificado. Podemos trocar com o rato o evento (Procedure)
que queremos codificar ou até o objeto (Object). Mas vamos manter no nosso
exemplo.
 Digite o comando: Unload frmJanelaTeste.

 O comando Unload serve para retirarmos da memória a janela que esta

aberta.
 Agora aperte o botão Executar para rodar a aplicação. Ao apertar o botão
fechar a janela desaparecerá o voltaremos para o Tempo de Projeto.

Para se entender melhor em que momento do programa esses eventos são chamados, é só imaginar
o seguinte: quando executamos uma aplicação Windows qualquer, o usuário pode fazer várias
tarefas (ou eventos) como apertar uma tecla, o botão do rato, movimentar o rato, dimensionar o
tamanho de uma janela, etc. Pois bem, quando qualquer um desses possíveis eventos são
executados o Windows verifica se existe alguma codificação para aquele evento, se existir ele
executa todas as linhas até encontrar a expressão “End Sub”

Quando precisarmos criar uma codificação dentro de nosso formulário mas que tenha seu alcance
estendido para todos os procedimentos e eventos do formulário, e não para algum determinado,
escolhemos o Object “General”, que significa Geral (na caixa de eventos aparecerá o nome
“declaration”). Se declararmos ali uma variável ela terá validade para todo o formulário. Veremos isto
melhor no Capítulo sobre variáveis.

15
 Controles Básicos

1.2 SALVANDO UM PROJETO

Para salvamos um projeto, primeiro precisamos entender que um projeto é um conjunto de
formulários, módulos, classes, etc., e que quando vamos salvar o projeto que estamos trabalhando,
o Visual Basic pedirá o nome do arquivo dos formulários ligado a ele e depois o nome do arquivo do
projeto.

Escolhemos aqui o
diretório (pasta)
onde armazenaremos
o arquivo de
Formulário.

Aqui colocamos o
nome do arquivo. Por
“Default” irá
aparecer o nome
dado ao formulário
na propriedade Name
acrescido da
extensão .frm

Nome do arquivo do
Projeto. Por
“Default” aparece o
nome Project1, mas
sempre é bom
modificar para um
nome que sinalize
melhor o nome que
nosso projeto
(programa) terá.

Sempre coloque cada projeto dentro de uma pasta diferente para não ter problema de localização.

16
 Controles Básicos

EXERCÍCIOS PROPOSTOS
1 - Descreva 5 botões da barra de botões que você acha mais importante:
Nome Descrição

2 - Qual opção do menu nos dá a possibilidade de incluir mais Objetos dentro da Caixa de
Ferramentas?

3 - Explique com suas palavras o que você entendeu sobre:

Caixa de Ferramentas:

Objetos:

Propriedades:

Formulário:

Janela de Projetos:

Codificação:

17
 Controles Básicos

4 - Crie um projeto da seguinte forma:

No Objeto Formulário coloque dois
Command Buttom no lado direito da
janela como no exemplo. Depois
muda as propriedades Caption do
formulário para “Cadastro de
Paciente” e Name para
“frmCadastroPaciente”. No primeiro
botão criado passe o Caption para
“OK” e Name para cmdOk. O Outro
botão terá o Caption “Fechar” e o
Name “cmdFechar”. Pronto! A
interface esta pronta. Vamos a
codificação.

Dê dois clickes no botão “OK” e na janela de codificação escreva Print “Oba! Deu Certo!”, como esta
na janela acima. Feche a janela, e voltando ao formulário dê agora dois clickes no botão “Fechar”. A
janela de codificação volta a aparecer e nos digitaremos Unload frmCadastroPaciente.
Execute o programa e veja que fizemos com que o botão “OK” mostre na janela a frase “Oba! Deu
Certo!” e o botão “Fechar” termina o programa.
 O Comando Print tem a finalidade de mostrar na janela aberta a expressão que esta na sua
frente entre aspas. Na verdade numa programação profissional ele não é usado, pois não definimos
sua localização na tela. Ele sempre imprime a expressão no canto superior esquerda. Estamos
usando ele aqui somente para fins didáticos. Vamos substitui-lo depois pelo Objeto Label.

5 - Qual a diferença dos arquivos com extensão .vbp dos com extensão .frm

18
 2 OS CONTROLES BÁSICOS
(A interface)

 Form
 CommandButton
 Label
 TextBox
 CheckBox
 OptionButton
 Frame
 Controles Básicos

2.1 FORMULÁRIO E SUAS PROPRIEDADES

A principal propriedade do Form é a propriedde Name, pois através dela que o Visual Basic irá
sugerir o nome que sera dado para o arquivo do Formulário (*.frm), mas essa propriedade Name não
é importante somente no objeto Form, mas em todos os objetos. O Visual Basic automaticamente
nomeia todos os objetos que são inseridos no formulário, mas nem sempre serve para nós. Por
exemplo, quando inserimos um CommandButton no Form ele por Default já irá possuir o Name
como “Command1”. SEMPRE é bom mudarmos esse padrão. A importância do Name nos objetos é
fundamental para quando fazemos alguma referencia ao objeto. Por exemplo, se na codificação do
programa, por algum motivo, precisarmos nos referenciar a um botão colocado no formulário cuja
finalidade é fechar a janela, seria mais prático que o Name dele seja "cmdFechar", em vez de
"Command1". Desta forma, visualmente, saberemos que se trata de um botão de comando cuja
finalidade é fechar algo. Então é importante sempre ter o cuidado de nomearmos TODOS os objetos
que colocamos no formulário com nomes bem descritivos e que nos dê uma pista do que se trata o
objeto em questão. As outras propriedades vamos estudá-las no decorrer deste livro.

2.1.1 Propriedades Principais do Form

Appearance: Define se o modo de exibição será 3D ou normal.
BackColor: Muda a cor de fundo do formulário. Existe dois modos de exibição de cores: "Palette" e
"System". O "System" mostra as cores definidas no sistema de cores do Windows. Muito útil, pois
sempre existe aquela situação que o usuário entra nas configuração do Windows, altera a aparência
das cores e depois o seu programa não acompanha a mudança. Se precisar que o programa
desenvolvido tenha as cores sempre adaptadas de acordo com o padrão de cores escolhido na
aparência do Windows então deve-se usar sempre as cores mostradas no "System" dessa

propriedade.

20
 Controles Básicos

BorderStyle: Muda o tipo de borda do formulário. None:

sem borda, sem barra de titulo, sem menu de controle, sem
botão maximizar e sem botão minimizar, e não pode
redimensionar a janela.
Fixed Single: Borda fixa. Aceita o Menu de Controle,
Maximizar, Minimizar, barra de título, mas não pode ser
redimensionado.
(Default) Sizable: Borda comum. Possui o Menu de
Controle, Maximizar, Minimizar, barra de título e pode ser
redimensionada.
Fixed Dialog: Muito usada para janelas que vão manter um
dialogo com o usuário. Ela pode ter Menu de controle e a
barra de título, mas não terá os botões de maximizar e
Minimizar. Não pode ser redimensionada.
Fixed ToolWindow: Não possui o menu de controle, o botão Maximizar e o botão minimizar.
Também não pode ser redimensionada. Aparecerá somente a barra de título e o botão Fechar
próprio do Windows 95. Este tipo de formulário não aparece na barra de tarefas do Windows.
Sizable ToolWindow: Não possui o menu de controlo, o botão Maximizar e o botão minimizar. Pode
ser redimensionada. Aparecerá somente a barra de título e o botão Fechar próprio do Windows 95.
Este tipo de formulário não aparece na barra de tarefas do Windows.
Caption: Será o texto mostrado na barra de título do formulário (da janela).
ControlBox: Retira ou coloca o menu de controlo e os botões maximizar, minimizar e fechar da
janela.
Enabled: Se esta opção estiver com False, ou seja, estando o Enabled desabilitado, isto indicará
que nenhum objeto desta janela, e nem a própria janela, poderá responder a eventos gerados pelo
usuário, como clicar do rato, pressionamento de teclas, etc.
Font: Escolhe a fonte de letra padrão que será usada para todos objetos inseridos neste formulário.
Icon: Nesta propriedade escolhemos um arquivo de ícone para associar a esse formulário. Esse
ícone é o que vai aparecer quando a janela for minimizada e no lado esquerda da barra de título
(Menu de Controle).
KeyPreview: determina se os eventos do teclado no formulário serão executados antes dos eventos
correspondentes aos Objetos inseridos no formulário.
MaxButton: Habilita ou não o botão de maximização.
MDIChild: Determina se a janela será uma janela filha. Ou seja, terá uma outra janela mestre que
agrupara o Form que se está criando.
MinButton: Habilita ou não o botão de minimizar.
MouseIcon: Sempre que o rato for movido em cima do formulário, o ícone associado a esta
propriedade aparecerá (desde que a propriedade MousePointer esteja customizada).

21
 Controles Básicos

MousePointer: Nesta propriedade especificamos o tipo de ponteiro que o rato terá quando se mover
sobre o formulário. Veja os tipos existentes:

0 (Default) Ponteiro padrão.

1 Ponteiro em forma de seta

2 Ponteiro de seleção exata

3 Seleção de escrita

4 Ícone
5 Seleção de Mover Objetos

6 Redimensionamento na diagonal

7 Redimensionamento na vertical

8 Redimensionamento na diagonal

9 Redimensionamento na horizontal
10 Seleção alternada

11 Sinal de ocupado.

12 Não disponível ( Ocupado )

13 Trabalhando em segundo plano (

Somente 32-bit Visual Basic.)

14 Seleção de Ajuda. (Somente 32-bit

Visual Basic.)

15 Todos os Tamanhos. (Somente 32-

bit Visual Basic.)
99 Aparece o ícone escolhido na
propriedade MouseIcon

Name: Nome definido para o Objeto formulário.

Picture: Inseri uma figura em nosso formulário como papel de parede.
ShowInTaskbar: Habilita ou não a possibilidade da janela aparecer na barra de tarefas do Windows.
Visible: Determina se quando executarmos o programa essa janela irá ficar visivel ou invisível.
WindowState: Determina se, quando executarmos o programa, a janela irá aparecer na tela do
computador Normal, Maximizada ou Minimizada.

22
 Controles Básicos

 Crie um formulário Novo (opção File / New Project no menu).

 No Formulário criado mude as propriedades:
Caption = “Lançamentos dos Exames”
Name = “frmLançamentoExames”
 Configure a janela para não aparecer o botão de Maximizar. Para isto mude
a Propriedade MaxButton para False.
 Faça com que o ponteiro do rato mude para o desenho de um sinaleiro com
a luz vermelha acesa toda vez que o rato mover no formulário. Para isto a
propriedade MousePointer deve ser “Custom” e na propriedade MouseIcon
identificamos a pasta (diretório) onde esta o arquivo de ícone que contém o
sinaleiro. Veja a figura:

O arquivo
correspondente
esta na pasta
Icons/Traffic e
chama
[Link]

 Escolha agora o ícone que será associado ao formulário (janela). A

propriedade que usaremos para este fim será “Icon”. Procure o arquivo que
contem o desenho de uma placa de trânsito “Stop” contida na pasta
“Computer”. Veja a figura:

 Pronto. Rode sua aplicação de veja o que acontece.

23
 Controles Básicos

2.1.2 As Propriedades Principais do CommandButton

O Botão de Comando executa determinadas ações estabelecidas pelo programador. Um

conselho: não coloque botões de vários tamanhos dentro do formulário. Se temos dois botões:
“Cancelar” e “OK”, não será porque o botão “OK” tem um título menor que seu tamanho será menor.
Nivele-o pelo nome maior.

Cancel: Se esta opção for ajustada como verdadeira, o botão

será associado a tecla ESC, e sempre que pressionarmos esta
tecla será como se tivéssemos apertado o botão.
Caption: O título que será exibido dentro do botão.
Default: Estando o botão com essa propriedade como True
indica que este botão será o Padrão da janela, e sempre que
apertarmos a tecla Enter será como se tivéssemos apertado o
botão.
Enabled: Determina se o botão será habilitado para
pressionamento por parte do usuário ou não.
Font: Escolhe a fonte de letra que o Caption terá.
Name: O nome que daremos para o Objeto botão de comando.
Visible: Determina se o botão será visível para o usuário quando
o programa estiver em execução.
Style: Escolhe se o botão terá elemento gráfico em seu interior.
Se escolher Style do tipo "Graphical" o CommandButton aceitará
figuras, e elas devem ser inseridas na propriedade Picture do
objeto CommandButton.

24
 Controles Básicos

 Em um formulário novo acrescente dois botões de comando. Mude as

propriedades deles da seguinte forma:
Propriedade botão1 Botão2 Explicação
Caption OK Cancelar título para o botão
Name cmdOk cmdCancelar nomear o botão
Cancel False True habilitar ESC
Default True False habilitar ENTER

 Dê dois clickes no botão Cancelar. Irá aparecer a janela de codificação

para o botão Cancelar. Digite: Print “Você apertou a tecla ESC”.

 Estando ainda na janela de codificação, leve o ponteiro do rato até o

topo desta janela onde esta o nome: Object. Na frente estará o nome do
botão que estávamos trabalhando na codificação. Aperte o botão. Irá
aparecer o nome dos objetos que temos: cmdCancelar, cmdOk, Form, e General.

 Nesta caixa de combinação dê um click no objeto cmdOK. Com isto será

criado automaticamente um evento Click para este objeto.

 Digite: Print “Você apertou a tecla Enter”

25
 Controles Básicos

 Com isto, criamos um evento para o botão OK e para o Botão cancelar.

Execute agora a aplicação e aperte a tecla ENTER e depois a tecla ESC.

 O resultado será a mesma coisa que apertarmos o botão OK e o botão

cancelar.

2.1.3 Propriedades Principais do Label

Esse objeto é um texto, não editável, que usamos geralmente para rotular outros Objetos. A
Finalidade básica dele é de colocar um texto na forma.

Alignment: Determina o alinhamento que o texto terá dentro do label.

AutoSize: Com esta propriedade habilitada indicamos ao Controle para automaticamente

dimensionar seu tamanho ao tamanho do texto do label.
Note na figura que, quando o AutoSize foi passado para True, as marcas de seleção do label foi
ajustado para o tamanho do texto “label1”.
BackColor: Escolhe a cor de fundo que envolverá o label.

26
 Controles Básicos

BackStyle: Escolhe entre o fundo Transparente ou Opaco para o label.

BorderStyle: Escolhe entre colocar uma moldura envolvendo o label ou não.
Caption: A propriedade principal do label. Determina o texto que será exibido dentro do Objeto.
Enabled: Habilita ou desabilita o objeto. Quando esta em False fica com a cor de seu conteúdo
acinzentada.
Font: Escolhe a fonte de letra que terá o texto digitado na propriedade Caption.
ForeColor: Escolhe a cor da fonte de letra
Name: Nomeia o Objeto label. Como já foi dito é importante que todos os objetos seja nomeado. A
inicial do label é “lbl”.
Visible: Indica se o objeto será visível ou não para o usuário.
WordWrap: Quando o AutoSize esta em true, não é possível expandir o texto digitado na
propriedade Caption em outras linhas. Mas se passarmos essa propriedade WordWrap para True
isto poderá ser feito, bastando para isto dimensionarmos o label.

2.1.4 Propriedades Principais do TextBox

Exibe uma caixa de texto onde o usuário irá digitar dados diversos. Quando inserimos esse
Objeto, ele automaticamente coloca a expressão “Text1” dentro da área de digitação. Logicamente,
sempre teremos que remover essa expressão, pois não faz sentido deixar uma caixa de texto com
“Text1” em seu interior. O usuário de seu programa ficará sem entender a finalidade.

BackColor: Escolhe a cor de fundo da Caixa de Texto. Geralmente é branco.

BorderSytle: Tipo da borda: Fixa e simples, ou sem borda.
Enabled: Estando False o objeto não estará habilitado para interagir com o usuário.
Font: Escolhe a fonte de letra que será mostrada dentro da caixa de texto.
ForeColor: Escolhe a cor da fonte de letra.
Locked: Estando em false trava qualquer digitação na caixa de texto
MaxLength: Quantidade máxima de caracteres dentro da caixa de texto.
MultiLine: Habilita a possibilidade de se digitar mais de uma linha na caixa de texto.

27
 Controles Básicos

Name: Nomeia o objeto TextBox. Geralmente com a inicial txt. Exemplo: Se formos usar essa caixa
de texto para que o usuário digite o nome do paciente, poderíamos abreviar assim: txtNomePaciente.
PasswordChar: Se durante a digitação de qualquer dado na caixa de texto, quisermos que o Visual
Basic mostre outro caractere no lugar do caractere digitado, é só especificarmos aqui qual queremos
que seja mostrado. Muito usado para digitação de senhas.
ScrollBars: Estando a propriedade MultiLine habilitada, é interessante colocarmos um ScrollBars na
caixa de texto, pois ele acrescentará uma barra de rolagem que poderá ser:

1 - Horizontal
2 - Vertical

3 - Both: Horizontal
e Vertical juntos.

Text: A propriedade Text é a mais importante deste Objeto. Todo o texto digitado pelo usuário
dentro da caixa de texto é incorporado nesta propriedade.

 Coloque 3 caixa de texto em nosso formulário, de forma que a disposição

das mesmas fiquem como na figura abaixo.

 Usaremos a primeira caixa de texto para digitarmos o nome do paciente. A

segunda para digitarmos o sexo dele (Masculino ou Feminino) e a terceira
para ser digitado o nome do exame que ele vai fazer.
 Para tanto, vamos mudar algumas propriedades destas 3 caixas de texto.
Propriedade Text1 Text2 Text3
Name TxtNome txtSexo TxtExame
Text “deixar vazio” “deixar “deixar vazio”
vazio”
MaxLength 30 9 15
ForeColor Vermelho Preto Preto

 Coloque agora 3 Objetos Label no formulário na seguinte disposição:

28
 Controles Básicos

Propriedade Label1 Label2 Label3

Name lblNomePaciente lblSexo LblExame
Caption Nome do Paciente Sexo Exame a ser feito
AutoSize True True True
Appearance 3D 3D 3D

 O resultado será uma janela como a figura acima.

 Pratique nesta janela e veja se o nome realmente esta com o limite de 30

caracteres.

2.1.5 Eventos relacionados ao Objeto TextBox

Irei citar aqui alguns dos principais eventos relacionados a caixa de texto. Lembramos que todos os
Eventos ocorrem quando o usuário faz alguma ação. Por exemplo: se ele aperta um botão aciona o
Evento Click, se ele digita algo numa caixa de texto, aciona o evento Change e KeyPress, se ele
movimento o rato sobre um objeto, aciona o evento MouseMove.
Vamos explicar esses eventos aqui, mas antes é importante entendermos que cada movimento ou
ação do usuário dispara um evento no programa. Mas esses eventos somente terão alguma reação
se programarmos isto na janela de codificação.
Change: Ocorre sempre que o usuário altera o valor contido na caixa de texto.
Click: Ocorre quando o usuário pressiona o botão esquerdo do rato sobre a caixa de texto.

29
 Controles Básicos

DlbClick: Se o usuário apertar duas vezes o botão esquerdo do rato sobre a caixa de texto
KeyDown: Ocorre quando o usuário aperta uma tecla no teclado.
KeyUp: Ocorre quando o usuário solta a tecla apertada.
KeyPress: Ocorre quando uma tecla é pressionada e solta. Como argumento possui uma variável
cujo conteúdo é a tecla pressionada (código correspondente na tabela ASCII).

Cod. Cod. Cod. Cod.

0 · 32 Espaço 64 @ 96 `
1 · 33 ! 65 A 97 a
2 · 34 " 66 B 98 b
3 · 35 # 67 C 99 c
4 · 36 $ 68 D 100 d
5 · 37 % 69 E 101 e
6 · 38 & 70 F 102 f
7 · 39 ' 71 G 103 g
8 Backspace 40 ( 72 H 104 h
9 Tab 41 ) 73 I 105 i
10 42 * 74 J 106 j
11 · 43 + 75 K 107 k
12 · 44 , 76 L 108 l
13 Enter 45 - 77 M 109 m
14 · 46 . 78 N 110 n
15 · 47 / 79 O 111 o
16 · 48 0 80 P 112 p
17 · 49 1 81 Q 113 q
18 · 50 2 82 R 114 r
19 · 51 3 83 S 115 s
20 · 52 4 84 T 116 t
21 · 53 5 85 U 117 u
22 · 54 6 86 V 118 v
23 · 55 7 87 W 119 w
24 · 56 8 88 X 120 x
25 · 57 9 89 Y 121 y
26 · 58 : 90 Z 122 z
27 Esc· 59 ; 91 [ 123 {
28 · 60 < 92 \ 124 |
29 · 61 = 93 ] 125 }
30 · 62 > 94 ^ 126 ~
31 · 63 ? 95 _ 127 ·
Estes caracteres não são aceites pelo Microsoft Windows.

MouseMove: Ocorre quando movemos o ponteiro do rato sobre a caixa de texto.

MouseDown: Ocorre quando o usuário aperta o botão do rato (seja da direita ou da esquerda) sobre
a caixa de texto.
MouseUp: Ocorre quando o usuário solta o botão do rato (seja da direita ou da esquerda) sobre a
caixa de texto.,

30
 Controles Básicos

 Conhecendo os eventos e sabendo para que eles servem vamos começar a usá-
los. No formulário frmLançamentoExames que já criamos posicione o cursor
sobre a caixa de texto “txtNome” e dê dois clickes com o mouse. Irá
aparecer uma janela assim:

 O Objeto ativo será o “txtNome” e o evento será o “Change”. Para caixa de

texto esse evento é o que primeiro aparece. Vamos mudá-lo passando para o
evento “KeyPress”. Para fazer isto, leve o ponteiro do rato até a caixa de
combinação que esta o nome Change e clique no botão que esta do lado
direito da janela. Aparecerá a lista de Eventos disponíveis para a caixa de
texto. Click sobre o nome “KeyPress”. Ele irá agora criar um outro
procedimento de evento chamado “Private Sub txtNome_KeyPress(KeyAscii As
Integer)”. Vamos usar esse evento no objeto txtNome para não aceitar o
usuário digitar números nesta caixa de texto. A linha de comando ficará
assim:

Private Sub txtNome_KeyPress(KeyAscii As Integer)

if Keyascii >= vbKey0 and Keyascii <= vbKey9 then
Keyascii = 0
endif
EndSub

31
 Controles Básicos

 Pronto! Quando o usuário digitar um dígito numérico no teclado ele será

ignorado pela caixa de texto.
 Existem algumas expressões novas como “KeyAscii”, “If”, “vbKey0” e
“vbKey9”. Vamos falar melhor deles nos próximos capítulos. Por ora, para se
ter um entendimento melhor do que ocorreu durante a execução deste evento
vamos explicar rapidamente essas novas expressões:
 KeyAscii : é uma variável criada pelo evento “KeyPress” cujo conteúdo
será o valor (na tabela ASCII) correspondente a tecla digitada.
 VbKey0 : Uma constante que simboliza o número Zero.
 vbKey9 : Uma constante que simboliza o número nove.
 If : Comando condicional. Significa “Se”. Ou seja, se a tecla digitado
for maior ou igual a zero e também menor e igual a nove então faça algo.
 Rode o programa e verifique que a caixa de texto já esta devidamente
codificada para não aceitar números.
 Para melhorarmos ainda mais nossa aplicação, vamos analisar o seguinte:
Não podemos deixar o usuário digitar o sexo do paciente antes de digitarmos
o nome dele! Temos que fazer uma codificação que verifique se o usuário
digitou o nome, e somente depois liberar a digitação do sexo. OK? Vamos lá!
 Selecione o Objeto lblSexo e mude a propriedade “Enabled” dele para
False, e o Objeto [Link] também para False.

 Note que quando executarmos o programa o label “Sexo” estará na cor cinza
e a caixa de texto abaixo não aceitará digitação.
 Então vamos agora colocar uma codificação que verifique se na caixa de
texto txtNome existe algo digitado. Se existir, libera a digitação do Sexo,
se não existir continua sem liberação.

32
 Controles Básicos

 Dê dois clickes com o rato no Objeto “txtNome” e veja se o evento Change

está ativo para ser configurado. Se não tiver leve o rato até a caixa de
combinação com a lista dos eventos e selecione a palavra “Change”.

 Como foi explicado acima, esse evento é acionado sempre que o usuário
altera um valor digitado na caixa de texto. Mas isto não significa que na
caixa de texto obrigatoriamente tem que existir um valor para ser alterado.
Na verdade quando está vazia e digitamos algo ali estamos alterando seu
conteúdo.
 Com isto, concluímos que sempre que digitarmos algo ali (letra, número,
barra de espaço, delete, Backspace, etc.) o evento “Change” será acionado.
 Digite o seguinte código na janela de codificação aberta:

 O programa irá policiar a caixa de texto “txtNome”. Se a sua propriedade

“Text” (que contém o que o usuário digitou), for igual a vazio (“”), então
as propriedades “Enabled” do lblSexo e do txtSexo serão desabilitadas, caso
contrário (Else), essas propriedades serão habilitadas.
 Note que podemos mudar a propriedade de um Objeto tanto a nível de
codificação em tempo de execução, como em tempo de projeto.
 Execute o programa, o digite seu nome na caixa de texto “Nome do
Paciente”. Observe que quando você começar a digitar automaticamente a
caixa de texto “Sexo” será liberada.
 Agora use a tecla “Backspace” para voltar a digitação e apagar o nome
digitado. Veja que quando se apaga o ultimo caractere e a caixa de texto

33
 Controles Básicos

fica vazia as propriedades “Enabled” do “Sexo” são desabilitadas

automaticamente.

2.1.6 Caixa de Texto para várias linhas

Se quisermos configurar uma caixa de texto para receber várias linhas de digitação, e não
uma linha como no exemplo acima, temos que fazer as seguintes mudança no objeto:

Aumente o tamanho da caixa de texto na vertical, para darmos espaços para as novas linha
que serão inseridas. Mude as propriedades:
Propriedade Text1 Descrição
MultiLine True Habilita múltiplas linhas
Text “Vazio” Tira o texto “Text1”
ScrollBars 2 - Vertical Coloca barra de rolagem
vertical

No fim de cada linha o cursor passará automaticamente para a linha de baixo.

2.1.7 Propriedades Principais do CheckBox

Exibe uma caixa de checagem (ou verificação) onde o usuário poderá ligar ou desligar uma
determinada opção.
Usamos o CheckBox para mostrar várias opções ao usuário para ele escolher uma, algumas, todas
ou nenhuma.
No nosso exemplo de “Lançamento de Exames” esse objeto poderia substituir com vantagens a
caixa de texto onde digitaremos o Exame que o paciente fará. Sabendo de antemão que o
laboratório possui somente exames de Raio X, Sangue, gravidez e espermograma podemos criar 4
caixas de checagem, sendo cada uma para um exame diferente. Com isto, poderíamos selecionar ou
não o exame em vez de digitá-lo.
Alignment: Especifica se o texto ficara do lado esquerdo da caixa.

34
 Controles Básicos

Caption: O texto anexado ao Objeto CheckBox.

Enabled: Habilita ou não esse Objeto. Estando desabilitado não aceitará que o usuário faça evento
com a caixa de checagem.
Font: Escolhe uma fonte de letra para o texto digitado no Caption
Name: Nomeia o Objeto. A inicial abreviada para este tipo de controlo é “chk”.
Value: Determina o estado o objeto: 0 - Unchecked, 1 - Checked e 2 - Grayed.

Value esta com

Value está com valor valor 0, de
1, de selecionado ou desmarcado, ou não
checado. foi escolhido.

 No exemplo “Lançamento de Exames”, Elimine a caixa de texto “txtExames” e

o label “lblExames”. Em seu lugar coloque 4 caixas de checagem. Mude as
seguintes propriedades:
Propriedade Check1 Check2 Check3 Check4
Name chkRaioX chkSangue chkGravidez chkEspermo
grama
Caption Raio X Sangue Gravidez Espermogr
ama

 Pronto! Agora ficou mais fácil escolher o exame que o paciente quer
fazer. Na codificação do programa, sempre que quisermos saber se algum
desses exames foi escolhido é só verificarmos se a propriedade “Value” de
cada um deles esta “Checked”, ou seja, selecionado.
 Note que podemos marcar um exame, alguns, todos ou nenhum. Fica a
critério do usuário. Mas no nosso exemplo vai ser difícil um paciente
entrar em nosso laboratório e não fazer NENHUM exame. Se o nome dele esta
sendo processado no computador é porque pelo menos um exame ele vai fazer.
Depois vamos fazer uma rotina que verifica isto.

35
 Controles Básicos

 Algumas outras alterações teremos que fazer também, como por exemplo não
deixar o programa aceitar que um paciente do sexo masculino faça exame de
Gravidez, ou do sexo feminino fazer Espermograma. Mas antes de trabalharmos
nisto é necessário conhecermos mais um objeto importante.

2.1.8 Propriedades Principais do OptionButton

Este botão de opção é usado para o usuário poder escolher entre uma opção ou outra. Quando
ele escolhe uma a outra é desmarcada. Diferentemente da Caixa de Checagem onde poderíamos ter
várias marcadas ou nenhuma, o Objeto OptionButton exibe que somente uma opção seja marcada.
Por exemplo, precisamos criar um objeto em que o usuário coloque se uma determinada pessoa é
Casada, Solteira, Divorciada ou Viúva.

Quando o usuário Solteiro

passa para Casado o
Objeto botão de opção
desmarca o anterior para
marcar o atual: Casado.

Seja lá qual estado civil seja, quando mudar a outra deixa de existir. Uma pessoa não pode ser
Casado e Solteiro ao mesmo tempo. Então neste caso o usual é o Botão de Opção, pois se
colocássemos a Caixa de Checagem, o Objeto aceitaria que escolhêssemos dois ou mais estado
civil.
Alignment: Determina se o texto ficará do lado direito ou esquerdo do botão de opção.
Caption: O texto que será anexado ao Objeto.
Enabled: Habilita ou não o objeto. Estando desabilitado o usuário não poderá selecionar a opção, e
a cor do texto será acinzentado.
Name: O nomeia o Objeto. A inicial abreviada que se usa é “opt”.
Value: True para quando a opção esta selecionada e False para quando a opção não esta
selecionada.

 Para nosso programa de “Lançamento de Exames” vamos trocar a caixa de

edição onde o usuário digita o Sexo do paciente por dois botão de opção.
Como só existe dois tipos de sexo e uma pessoa não pode ter mais de um sexo
( pelo menos teoricamente! ), nossa aplicação mais prática se usarmos esse
objeto.
 Apague o “lblSexo” e o “txtSexo” e coloque em seu lugar dois Controles
OptionButton.

Propriedade Option1 Option2

Name optMasculino OptFeminino
Caption Masculino Feminino

36
 Controles Básicos

Os Botões de Opção quando são inseridos

no formulário automaticamente são
conjugados, de maneira que quando
selecionamos um o outro é desmarcado.
Não importa quantos sejam.

 Vamos agora ponderar alguns pontos: Se o usuário não digitar o nome do

paciente primeiro, ele não poderá escolher o sexo, e se não escolher o sexo
ele não poderá escolher a exame que o paciente fará, pois o tipo de exame
necessita do sexo do paciente, para evitar que alguém do sexo masculino
faça exame de gravidez.
 Então para corrigir esses problemas, vamos primeiro passar todas as
propriedades “Enabled” dos Objetos OptionBottum e CheckBox para “False”.
Com isto, sempre que se entrarmos no formulário pela primeira vez esses
objetos estarão indisponível para o usuário manipular até que ele cumpra
algumas determinações.
 Vamos agora liberar a escolha do Sexo depois que um nome tiver sido
digitado na Caixa de Texto “txtNome”.
 Chame a janela de Codificação e na rotina “txtNome_Change()” altere para
ter as seguintes linhas de comando:

 Rode o programa e teste para verificar se esta tudo correndo bem. Todos
os objetos de escolha estão desabilitados até que um nome seja digitado.
Neste momento a escolha do Sexo do paciente é liberado.
 Vamos agora fazer o mesmo com os Objetos “OptionButton”. Vamos criar um
evento Click para eles, de maneira que quando o usuário escolher um
determinado sexo para o paciente seja liberado os exames correspondentes.
 Dê dois clickes com o rato no objeto “optMasculino”. A janela de
codificação será aberta e o evento Click já terá sido criado.
 Vamos então habilitar os exames para esse Objeto:

37
 Controles Básicos

 Colocamos “Enabled = True” para os exames liberados para o objeto

“optMasculino” e “Enabled = False” para os exames que não estão liberados.
 Faça a mesma coisa para o “optFeminino” agora.

 Execute o programa. Esta funcionando perfeitamente. Tentamos tirar o

máximo de possibilidades de erro que um usuário pode cometer.

2.1.9 Propriedades Principais do Frame

Esse objeto é muito útil para nos ajudar na criação de uma interface mais limpa para o usuário.
Podemos criar molduras que agruparão outros objetos. Essas molduras possuem formato 3D
embelezando ainda mais nossa janela.
Caption: Coloca um texto no topo da moldura. Não é obrigatório.

Caption com texto digitado. Caption sem nenhum texto.

38
 Controles Básicos

Enabled: Determina se todos os objetos colocados no interior da moldura estarão ou não

disponíveis para o usuário.
Name: Nome dado ao objeto. A inicial abreviada é “fra”. Cuidado para não colocar “frm” é a
abreviatura do Objeto Form.

 Vamos fazer uma última alteração em nosso programa de “Lançamento de

Exames”. Nossa interface está precisando de uns retoques, e para fazer esse
incremento vamos colocar um objeto “Frame” envolvendo os “OptionButton” e
os “CheckBox”.

 Perceba que a aparência de nosso programa melhorou muito agora. E ainda

usamos a propriedade “Caption” do “Frame” para rotular as opções de escolha
do sexo e do exame.
 Vale comentar que para que os objetos que estão dentro do “Frame” sejam
realmente anexados a ele, é necessário que esses objetos sejam criados
dentro dele. Assim, sempre que movermos a moldura, os Objetos acompanharam.
 Então, para que no nosso exemplo as coisas funcionem com perfeição,
devemos apagar os objetos “OptionButton” e “CheckBox”, inserir as duas
molduras em seus respectivos lugares e somente depois criar (dentro do
“Frame”) os objetos apagados.

39
 Controles Básicos

EXERCÍCIOS PROPOSTOS
1 - Explique a finalidade dos Objetos:
Form:

CommandButton:

Label:

TextBox:

CheckBox:

OptionButton

Frame:

2 - Explique:

3 - Quais as abreviaturas que usamos para os Objetos:

Form:
CommandButton:
Label:
TextBox:
CheckBox
OptionButton
Frame:

40
 Controles Básicos

4 - Pela aparência descreva que tipo de Borda possui os formulários abaixo:

5 - Explique a finalidade das Propriedades do Formulário MouseIcon e MousePointer:

6 - Qual a importância da propriedade AutoSize do objeto Label?

7 - Descreva as propriedades do objeto TextBox relacionadas abaixo:

Font
Locked
Name
Text

8 - O que é um Evento?

9 - Explique a diferença entre o Evento Change e o KeyPress do objeto TextBox:

41
 Controles Básicos

10 - Em que situação podemos usar uma Caixa de Checagem e um Botão de Opção? Exemplifique.

11 - A propriedade Enabled existe em quase todos Objetos, e sua finalidade é:

( ) Deixar o Objeto invisível
( ) Mudar a cor do Objeto
( ) Fazer com que o Objeto não aceite interferência do Usuário.

12 - Crie um novo formulário que contenha as seguintes especificações:

Alguns pontos deste nosso simples
programa tem que ser levado em
consideração: Se for primeira compra o
cliente pode comprar somente a vista. Se
o valor da compra for maior que 200
reais ele poderá comprar com 60 dias.
Logicamente que no campo valor não
poderá aparecer letras.

42
 Controles Básicos

ANOTAÇÕES PARA NÃO ESQUECER

43
 Controles Básicos

3 SELECIONANDO ITENS

 ListBox
 ComboBox

44
 Selecionando Itens

3.1 O OBJETO LISTBOX

Caixa de Lista é um objeto onde pode-se adicionar ou remover vários itens, e o usuário pode
selecionar um ou vários destes itens.

Caixa de Lista
Vazia, sem
nenhum texto
digitado em seu
interior.

Este tipo de objeto é muito útil para mostrarmos uma relação de nomes ou códigos para se um (ou
vários) seja selecionado, e sempre que a quantidade desses itens superar o tamanho do ListBox um
ScroolBar Vertical automaticamente irá aparecer.
É bom ressalvar que este objeto, internamente, cria um índice começando com 0 (zero) até na
quantidade existente de itens. Exemplo: se temos 4 nomes dentro do ListBox, “Maria, José,
Cornélios, Pedro e Peter”, então o índice criado será 0 para Maria, 1 para José, e assim
sucessivamente. Este índice será usado sempre que for referenciar aos nomes contido dentro do
ListBox.

3.1.1 Propriedades Principais do ListBox

Columns: Determina a quantidade de colunas que a caixa de lista terá. Quando esta com 0 (zero)
significa que terá somente uma coluna e a barra de rolagem será vertical. Se o valor desta
propriedade for 1 será formado também somente uma coluna mas a barra de rolagem será
horizontal. Valor 2 significa que os itens inseridos no ListBox serão ajustados em 2 colunas, e assim
por diante.

Columns ajustado para 0. Os Columns ajustado para 1. Os Columns igual a 2. Os nomes

nomes ficam em 1 coluna de nomes ficam e 1 coluna de ficam dispostos em duas
forma vertical. forma horizontal. colunas de forma horizontal.

Enabled: Habilita ou não o ListBox para o usuário selecionar algum item no objeto.
IntegralHeight: Determina a possibilidade dos itens dentro da caixa de lista ser exibido de forma
parcial.

IntegralHeight
com TRUE

IntegralHeight
com FALSE

45
 Selecionando Itens

List: é o Local onde digitamos os itens que estarão dentro do ListBox.

Os nomes digitados nesta
propriedade em tempo de
projeto são automaticamente
inseridos dentro do ListBox,
mas existe outro processo de
se incluir dados no objeto
em tempo de execução.

MultiSelect: Quando esta propriedade está habilitada significa que a caixa de lista aceitará múltiplas
seleções, ou seja, poderá ser selecionado mais de um ítem. As opções são 0 - None para seleção
somente de 1 ítem. 1 - Simple para seleção de vários itens usando apenas o clicar do rato ou barra
de espaço. 2 - Extended é o padrão do Windows para multiplas seleções. Para selecionar mais de 1
item usa-se a combinação de tecla CTRL + Click do rato ou barra de espaço.
Name: Nome que o Objeto ListBox terá. A abreviação padrão é “lst”.
Sorted: Classifica os itens existentes dentro do ListBox em ordem alfabética ou numérica
ascendente. Esta propriedade em tempo de execução tem a finalidade de informar o estado que se
encontra o Sorted.

Style: CheckBox Style: Standard

Style: O Estilo Standard é o padrão, e o Visual Basic 5 acrescentou o Estilo CheckBox, onde os
itens existentes no ListBox são acompanhados de um quadradinho do lado esquerdo para se fazer a
seleção dos itens. Para multiplas seleções esse tipo de ListBox é mais intuitivo para o usuário.

 Coloque um Objeto ListBox no formulário, e dê um nome para o objeto de

“lstNomes”, e na propriedade “List” Digite os nomes contidos na figura
abaixam.

 Execute o programa e veja como ficará a disposição dos nomes digitados

dentro do Objeto.
 Note que podemos selecionar somente um nome. Vamos tentar selecionar
vários nomes. Habilite a propriedade MultiSelect com 2 - Extended. Rode o
programa novamente e veja que agora vários nomes podem ser selecionado.
 Vamos agora colocar esses nomes em 2 colunas. Para isto a propriedade
Columns deve conter o valor 2. Mude o IntegralHeight para False para
melhorar a aparência. Em tempo de execução você verá o resultado.

46
 Selecionando Itens

 Mude a propriedade Sorted para True e todos os itens ficará na ordem

alfabética.

3.1.2 Propriedades em tempo de execução

Existe algumas propriedades que não aparecem em tempo de projeto na janela de Propriedades, e
podemos nos referenciar a elas somente através da janela de codificação, e serão executadas em
tempo de execução.

ListCount: Retorna a quantidade de itens existente dentro de um ListBox.

ListIndex: Retorna o número correspondente ao índice do item selecionado.
NewIndex: Retorna o número correspondente ao índice do último item inserido no ListBox.
SelCount: Quando a propriedade MultiSelect esta ativada, possibilitando a seleção de vários itens
dentro da caixa de lista, o SelCount retorna a quantidade de itens que foi selecionado.
Selected: Retorna True ou False sinalizando se algum item foi selecionado. É necessário informar o
índice correspondente. Exemplo: Selected(2): Se o item que possui o índice 2 for selecionado
retornará True, se qualquer outro for selecionado retornará False.
Text: Retorna o texto do item selecionado. Não necessita de índice.
List: Retorna o texto do item especificado no índice. Exemplo: List(2) irá mostrar o texto existendo
na lista referente ao índice 2.

 No exemplo que criamos acima, um ListBox com nomes inseridos nele, vamos
fazer algumas mudanças. Acrescente mais 3 botões no formulário.
Propriedadades Botão1 Botão2 Botão3
Caption Quantidade Índice Text
Name cmdQuantidade CmdÍndice cmdText

 Vamos Colocar 3 objetos Label no formulário. A disposição do formulário

ficaria assim:

Propriedadades Label1 Label2 Label3

AutoSize True True True
Caption “deixar vazio” “deixar vazio” “deixar vazio”
Name lblQuantidade LblÍndice lblText
 Vamos agora codificar o programa para quando o usuário apertar o botão
“Quantidade” aparecer a quantidade de itens dentro da caixa de Lista.
Quando apertar o botão “Índice” mostrar o índice correspondente ao item
selecionado. O botão Texto irá mostrar o texto selecionado dentro do
ListBox. Veja os Códigos a serem usados:

47
 Selecionando Itens

 Note que as propriedades estão retornado valores que estão sendo

inseridos no Objeto lblQuantidade e na sua propriedade Caption em tempo de

execução.

3.1.3 Eventos do ListBox

Consideremos por agora aoenas um evento do ListBox: O DblClick. Este evento executará alguma
ação quando dermos duplo click em algum item de nossa caixa de Lista.
Não use o Click! Para este tipo de objeto é mais intuitivo usar o Duplo click que o click. Enquanto o
usuário esta escolhendo qual item selecionar, ele ficará “passeando” com o rato entre os itens
existente, dando click em algum deles e clicando no ScrollBar.

3.1.4 Métodos AddItem, RemoveItem e Clear

No exemplo dado anteriormente digitamos os itens que iriam compor o ListBox através da
propriedade List em tempo de projeto. Mas nem sempre acontece de sabermos quais os itens que
farão parte do objeto antes de sua execução. O mais natural é que esses itens sejam inseridos
durante a execução. Para que isto aconteça temos que usar o Método AddItem.
O Método RemoveItem retira do ListBox o item selecionado, e o Clear limpa todo o Objeto.

 Vamos criar um formulário novo (Menu File/New Project).

 Dentro do formulário inserir três botões de comando, uma caixa de lista e
uma caixa de texto.
Propriedadades Botão1 Botão2 Botão3
Caption Adicionar Remover Limpa Tudo
Name CmdAdicionar cmdRemover CmdLimpaTudo

Propriedadades Caixa de Lista Caixa de Texto

Name LstNomes txtNome
Text “Deixar Vazio”

48
 Selecionando Itens

As propriedades
do formulário
será “Relação de
Nomes” para o
Caption e
frmRelaçãoDeNomes
para o Name.
Veja ao lado como
ficará a janela.

 O programa funcionará da seguinte forma: Digita-se um nome na Caixa de

Texto e ao teclar o botão “Adicionar” o conteúdo será transferido para a
Caixa de Lista. Quando quisermos remover algum item, selecionamos e
apertamos o botão “Remover”. O botão “Limpar Tudo” remove todo o conteúdo
do ListBox.

O método AddItem requer na

sua sintaxe o texto que será
adicionado ao ListBox.
Chamamos então o objeto
txtNome e sua propriedade Text
que contém o texto.

O método RemoveItem necessita

do número do índice que o item
existente dentro ListBox possui.
Para se obter este índice usamos
a propriedade ListIndex.

 Execute o programa e digite alguns nomes, adicionando, removendo alguns e

depois limpando tudo.
 Alguns problemas apareceram:  Sempre que adicionamos algo o ultimo nome
digitado na caixa de texto continua lá.  Do jeito que o programa esta ele
aceita adicionarmos nomes em branco.  Se apertarmos o botão “Remover” sem
ter um nome no ListBox selecionado ele retorna um erro de execução, pois a
propriedade ListIndex retorna o índice do item selecionado. Ou seja, tem
que haver uma seleção do item que se quer apagar.  A tecla ENTER não é
aceita na confirmação dos nomes digitados.
 Nossa! Quantos problemas. Mas vamos então resolver todos.

 O Objeto txtNome
tem sua propriedade
Text adicionada ao
lstNomes, e em
seguida é igualada a
um conteúdo vazio.

 Resolvemos o primeiro problema. Rode o programa é comprove isto! Agora

temos que desabilitar o botão “Adicionar” e somente deixá-lo habilitado

49
 Selecionando Itens

quando o usuário digitar algo na caixa de texto (objeto txtNome). Sendo

assim não corremos o risco de algo vazio ser inserido na caixa de lista.
 Primeiro passo será selecionarmos em tempo de projeto o Objeto
“cmdAdicionar”. Vá na propriedade “Enabled” e passe para “False”.
 Crie agora um evento “Change” para a caixa de texto “txtNome”:

 Veja que na
codificação verificamos
se o txtNome esta
vazio. Se tiver
desabilita o botão
Adicionar, e não tiver
vazio habilita o botão.

 Usamos o Evento “Change” porque ele é o responsável pela verificação

constante do que foi digitado na caixa de texto. Sempre que digitamos,
alteramos ou apagamos algo numa caixa de texto o evento “Change” é chamado.
 Note agora que se começarmos a digitar um nome qualquer na caixa de texto
o botão aparece. Se apagarmos o conteúdo digitado, com delete ou backspace,
o botão é desabilitado.
 Para resolver o terceiro problema, teremos que primeiro somente aceitar o
método “RemoveItem” se houver um item selecionado. Se não houver ele não
executa esse método. Então vamos a luta!
 Em tempo de projeto mude a propriedade “Enabled” do botão “Remover” para
False. Iremos habilita-lo somente quando um item for selecionado usando o
evento click do objeto lstNomes.

 No evento Click do objeto

lstNomes é solicitado ao
programa para habilitar o botão
remover. Depois, quando o
usuário apertão o botão e
remover o item pretendido,
colocamos o botão remover
novamente desabilitado.

 Rode o programa e veja o que acontece.

 Para o usuário que esta digitando é desconfortaste ter que digitar um
nome e ter que usar o rato (tirar a mão do teclado) para inserir um nome e
depois clicar novamente na caixa de texto para digitar outro nome. Para
resolver esse problema é simples. Selecione o botão “Adicionar” e mude a
propriedade “Default” dele para “True”. Assim sempre que o usuário digitar
um nome e teclar ENTER será como se tivesse apertado o botão “Adicionar”.
 Agora o programa está pronto! Pode vendê-lo!

50
 Selecionando Itens

3.2 O OBJETO COMBOBOX

Este objeto é na verdade uma combinação da caixa de texto e da caixa de lista. Uma diferença
que este Objeto possui em relação a caixa de lista é que ele não aceita multiseleção. Somente é
acessado um item de cada vez.

Objeto ComboBox com sua caixa de

Lista recolhida. Ela somente é acessada
ao darmos um click com o rato na seta
para baixo do lado direito. Da forma
em que esta podemos digitar na caixa
de texto apresentada.

ComboBox com a caixa de lista

expandida. Pode-se escolher um nome
qualquer na lista que ele será
automaticamente levado até a caixa de
texto.

Uma das grandes vantagens da Caixa de Combinação é a economia de espaços na tela. Podemos
colocar uma relação enorme de itens dentro de uma caixa de combinação que ela será apresentada
somente com uma caixa de texto, e a relação aparece somente se o usuário necessitar, digitando
assim na seta para baixo do Objeto.

3.2.1 Propriedades Principais do ComboBox

O ComboBox usa as mesmas propriedades que aprendemos para o ListBox. A diferença esta
somente em duas que veremos agora.

Style: Aqui escolhemos o tipo de Caixa de

Combinação iremos colocar no formulário:
0 - Dropdown Combo: é a opção padrão do Objeto.
Aqui pode-se digitar qualquer nome na área de
digitação, clicar a seta para baixo e escolher qualquer
um dos itens que ele será automaticamente inserido
na área de texto.
1 - Simple Combo: Caixa de Combinação simples.
Aparece em destaque a área de edição de texto,
onde podemos digitar algum item; ou selecionar
qualquer um que esteja na caixa de lista, que será inserido na área de texto. O botão em forma de
seta para baixo não existe neste tipo de ComboBox. Se aumentarmos o tamanho da Caixa de
Combinação na vertical, aparecerá a lista e esta ficará fixa. Caso deixamos ela somente do tamanho
da área de texto, então a lista não aparecerá, e se quisermos saber quais nomes existem teremos
que apertar no teclado a seta para baixo ou para cima, para que os itens existentes dentro da Lista
apareçam.
2 - Dropdown List: Neste tipo de Caixa
de Combinação o usuário pode somente
escolher um item relacionado na lista,

51
 Selecionando Itens

não podendo digitar nada. A área de texto não aceitará digitação.

Text: Nesta propriedade digita-se um texto que ficará, como padrão, fixo na área de texto na caixa
de combinação. Geralmente deixa-se em branco. Podemos usar essa propriedade também, em
tempo de execução, para saber qual texto o usuário digitou ou selecionou.

3.2.2 Os Métodos
Usamos para o ComboBox os mesmos métodos usados para o ListBox: AddItem,
RemoveItem e Clear. O modo de manipulá-los na janela de codificação também é o mesmo.

52
 Selecionando Itens

 Crie um formulário novo e coloque nele um ComboBox e um label conforme

figura abaixo:
 nomeie a Caixa de
Combinação para cboNomes e
deixe a propriedade Text
vazia. O label nomei-o
para lblNomes, o Caption
deixe vazio e o AutoSize
como True.
 Crie um evento “Load” para o formulário da seguinte forma:

 O Evento “Form_Load” do formulário é o primeiro que é lido pelo programa

assim que a janela aparece na tela em tempo de execução. Tudo que for
codificado para este evento será, então, executado antes da leitura pelo
programa de qualquer objeto inserido no formulário.
 Defina a propriedade “Style” do cboNomes como 2. Assim o usuário não
poderá digitar nenhum nome, somente escolher na lista.
 Crie um evento “Click” para o cboNomes:

 Estamos solicitando ao programa para quando o usuário der um click na

lista de nomes aparecer a mensagem que ele escolheu determinado nome. O
sinal de “&” que aparece na codificação é o responsável pela concatenação
(junção, emenda)da expressão “Nome escolhido” com o conteúdo de
“[Link]”.

53
 Selecionando Itens

EXERCÍCIOS PROPOSTOS
1 - Descreva as seguintes propriedades do ListBox:
List:

Sorted:

MultiSelect:

Selected:

ListCount

ListIndex:

2 - Qual a diferença entre as propriedades em tempo de execução e as em tempo de projeto.

3 - Marque Verdadeiro ou Falso para as afirmações:

a) As propriedades existentes em tempo de projeto não é possível usá-las em tempo de execução. (
)
b) A propriedade NewIndex retorna o ultimo índice entrado na caixa de Lista. ( )
c) A propriedade Name e Caption possuem o mesmo valor. ( )

4 - Explique os métodos:
AddItem:

RemoveItem:

Clear:

5 - Quais são as diferenças entre o ListBox e o ComboBox?

54
 Selecionando Itens

6 - Na propriedade Style quais os tipos existentes:

7 - Explique o evento Form_Load:

8 - Desenvolva um cadastro de mercadoria, onde o usuário digitará a descrição das mesmas

(TextBox) e elas serão incluídas dentro de uma lista (ListBox). Crie os botões Adicionar e Remover.
Na mesma janela, quando o usuário selecionar qualquer das mercadorias dentro da Caixa de Lista,
dando duplo click, a descrição da mercadorias será mostrada num label. Veja a disposição da janela:

55
 Selecionando Itens

4 O FOCO

 TabIndex
 GotFocus e LostFocus
 SetFocus
 Mnemônico

56
 Selecionando Itens

4.1 O FOCO
Foco é o termo usado para descrever o objeto que esta em destaque no momento. O objeto que esta
sendo usado pelo usuário. Um objeto pode perder ou ganhar o foco. Quando estamos manipulando-
o ele ganha o foco, se apertamos a tecla TAB ou clicarmos com o rato em outro objeto o foco é
transferido para outro objeto, ou seja, um ganha o foco e outro perde o foco.
A seqüência que a tecla TAB usa para dar foco aos objetos no formulário é a ordem que eles
foram inseridos no formulário. Se você insere um botão de comando e depois insere uma caixa de
texto, então quando executarmos o programa o primeiro a receber o foco será o botão de comando.
Quando apertar a tecla TAB o foco será então transferido para a caixa de texto. Podemos também
passar o foco para um determinado objeto usando o rato.

4.1.1 Propriedades TabIndex e TabStop

Estas duas propriedades existem na maioria absoluta dos objetos, e com elas podemos manipular a
ordem de tabulação (passagem do foco) entre os controles existentes no nosso formulário.
A propriedade TabIndex possui uma seqüência numérica que representa a ordem de tabulação
dentro do formulário. O primeiro objeto inserido possui sempre o número 0, e assim que outros são
também inseridos este número vai sendo incrementado em mais um, independente do objeto
inserido.

Neste exemplo, quando o programa é executado e apertamos a tecla TAB o foco é passado do botão
de comando para a caixa de texto e depois para a caixa de checagem. Mas se quisermos alterar
esta ordem é só mudar o número existente na propriedade TabIndex.
Vamos passar a ordem de tabulação destes objetos para: Botão de comando, caixa de checagem e
depois caixa de texto.
Para fazer isto basta alterar a propriedade da caixa de texto para 1.

57
 Selecionando Itens

A propriedade TabStop possui a finalidade de fazer a tecla Tab ignorar o controle na tabulação. Ou
seja, o objeto que tiver TabStop = False, não receberá o foco via teclado, somente se o usuário
clicar com o rato no objeto.

Quando o objeto esta com a propriedade Enabled = False ou Visible = False, o foco não passa por
eles, nem via teclado nem via mouse.
O Objeto Label não possui foco, pois ele não interage com o usuário.

4.1.2 A Tecla Enter

O Windows possui a tecla TAB para mudar o posicionamento do Foco, porém a grande massa de
usuários que sempre acostumou usar a tecla ENTER para passar o foco de um objeto para outro não
se adaptou ainda. Se você quizer fazer um programa que habilite a funcionalidade da tecla ENTER
para mudança de foco, aqui vai a dica:

58
 Selecionando Itens

 Crie um formulário e acrescente nele algumas caixas de texto como no

exemplo a seguir:

 A propriedade TabIndex desses objetos deve estar na ordem crescente. O

foco ira acompanhar exatamente o que for inserido nesta propriedade. Se
colocar o botão Fechar com o TabIndex 1, ele sera o segundo a receber o
foco.
 Defina a propriedade KeyPreview do formulário para verdadeiro.

 Com isto, o programa dara prioridade aos eventos de teclado do

formulário como um todo antes de verificar os eventos de teclado de cada
objeto inserido no form.
 Uma vez feito isto, precisamos agora criar o evento de teclado para o
formulario. Entre na janela de codificação e chame o evento KeyPress do
Form. Repetindo: Do Form!

59
 Selecionando Itens

 Os codigos digitados neste evento sera avaliado a cada pressionamento de

tecla. Criamos então a seguinte codificação:

O Programa verifica se foi pressionado a tecla ENTER que é referenciada

aqui pela constante VbKeyReturn. Se foi pressionado é chamado a função
SendKeys que força o pressionamento da tecla TAB, ou seja, seria como se o
programa dissesse para a máquina: Se o usuário apertar a tecla ENTER troque
pela tecla TAB.
 Por fim usamos "KeyAscii = 0" para cancelar o Beep que é emitido sempre
que a tecla ENTER é pressionado.

4.1.3 Método SetFocus

O método SetFocus move o foco para o objeto especificado. Veja sua sintaxe:
[Link]
NomeDoObjeto: Um objeto Form que representa um formulário, ou um objeto
Control que representa um controle no formulário ou folha de dados ativo

Use o método SetFocus quando você quiser que um determinado campo ou controle tenha o foco,
para que toda a entrada do usuário seja direcionada para esse objeto. De modo a ler algumas das
propriedades de um controle, você precisa assegurar que o controle tenha o foco. Algumas
propriedades só podem ser definidas quando o controle não tem o foco. Por exemplo, você não pode
definir as propriedades Visible ou Locked de um controle como False quando esse controle tem o
foco.
Você não pode mover o foco para um controle se sua propriedade Enabled estiver definida como
False. Você precisa definir a propriedade Enabled de um controle como True antes de poder mover
o foco para esse controle. Você pode, porém, mover o foco para um controle se sua propriedade
Locked estiver definida como True.

4.1.4 Eventos GotFocus e LostFocus

GotFocus : Ocorre quando um formulário ou controle recebe o foco.

LostFocus : Ocorre quando um formulário ou controle perde o foco.

Esses eventos ocorrem quando o foco é movido em resposta a uma ação do usuário, como o
pressionamento da tecla TAB ou o clicar no objeto, ou quando você usa o método SetFocus no
Visual Basic.

60
 Selecionando Itens

Um controle só pode receber o foco se suas propriedades Visible e enabled estiverem definidas
como True. Um formulário só pode receber o foco se não tiver controles ou se todos os controles
visíveis estiverem desativados.
Você pode especificar o que acontece quando um formulário ou controle recebe o foco executando
um procedimento de evento quando o evento GotFocus ocorrer. Por exemplo, anexando um
procedimento de evento GotFocus a cada controle de um formulário, você pode guiar o usuário
através de seu aplicativo exibindo breves instruções ou mensagens em uma caixa de texto. Você
também pode oferecer indicações visuais ativando, desativando ou exibindo controles que
dependam do controle que tem o foco.
Também Pode-se usar um procedimento de evento LostFocus para validar dados inseridos conforme
o usuário move o foco de um controle. Você também pode reverter ou alterar as condições que você
define no procedimento de evento GotFocus do objeto. Outros usos para os procedimentos de
evento LostFocus e GotFocus são ativar, desativar, ocultar e exibir outros objetos.

61
 Selecionando Itens

 Crie um novo projeto e coloque no formulário os objetos relacionados

abaixo:

62
 Selecionando Itens

Formulário:
Caption:Recursos Humanos
Name:frmRecursosHumanos
Caixa de Texto 1:
Text: <deixar vazio>
Name:txtNomeFuncionário
Caixa de Texto 2:
Text: <deixar vazio>
Name:txtCargo
Caixa de Texto 3:
Text: <deixar vazio>
Name:txtNomeConjuge
Enabled = False
Label 1:
Caption:Nome do Funcionário
Label 2:
Caption:Cargo
Label 3:
Caption: Nome do Cônjuge
Enabled: False
Name: lblNomeConjuge
Frame 1:
Caption:Estado Civil
Frame 2:
Caption: Setor

 Os botões de opção OptionButton para estado civil, dê o nome de

optEstadoCivil para todas as três opções. Com isto o Visual Basic
perguntará se você esta criando um array de controle, e pode responder que
sim. Fazendo isto, criamos uma matriz de nome optEstadoCivil com 3
elementos, sendo que o elemento 1 representa a opção casado, elemento 2
representa opção Solteiro e elemento 3 opção Viuvo.
 A ordem de tabulação é a seqüência dos objetos dispostos no formulário.
Os dois botão de comando deve ter o TabStop = False, pois não serão
incluídos na tabulação.
 A caixa de texto txtNomeConjuge esta desabilitada, e somente poderá ser
habilitada se o estado civil do funcionário for casado. Para isto a
seguinte codificação para o objeto optEstadoCivil deve ser feito:

63
 Selecionando Itens

 Note que usamos o SetFocus para, no caso do usuário escolher a opção

Casado, o foco ir para a caixa de texto txtNomeConjuge.
 Para entender melhor esse evento, veja que o Visual Basic criou
automaticamente um argumento chamado Index do tipo integer. O conteúdo
deste argumento é o número do índice correspondente a opção da matriz
optEstadoCivil.
 Vamos criar um evento LostFocus para txtNomeConjuge:

 Este evento é acionado sempre que o objeto perde o foco, ou seja,

codificamos para no momento que tiver perdendo o foco verificar se o nome
do cônjuge foi preenchido. Se não foi da uma mensagem avisando que é
obrigatório o preenchimento e retorna o foco para a caixa de texto para que
o nome seja então digitado.
 Rode o programa e veja o resultado.
 Colocamos o método SetFocus dentro de um evento LostFocus para demostrar
sua utilização, mas esta é uma prática não recomendada, pois imagine se
você clica na opção “casado” por engano, e quer voltar para a opção
solteiro (que seria o correto). O programa não deixaria, pois exigiria a
digitação do nome do cônjuge.

4.1.5 Mnemônico (Tecla de Acesso)

Mnemônico é a letra sublinhada onde, via teclado, podemos fazer um acesso diretamente ao objeto,
apertando a tecla ALT e a letra correspondente.
Para criar um Mnemônico usamos a propriedade Caption dos objetos, e anexado a letra escolhida
digitamos o símbolo “&” (sempre do lado direito da letra). Por exemplo, se temos um botão de
comando “Cancelar” e queremos que a letra “n” seja a Mnemônica, então no Caption alteramos para

64
 Selecionando Itens

“Ca&ncelar”. Assim aparecerá no vídeo como: “Cancelar”, e se o usuário usar a combinação de tecla
ALT+N passará o foco para este objeto e o acessará.
Este recurso vale para todos os objetos que possuem a propriedade Caption, mas é bom lembrar
que alguns objetos não faz sentido colocar o Mnemônico, como por exemplo para um formulário.
Sempre que possível use as mesmas teclas de acesso em todo seu programa. Se numa janela você
tem o botão “Cancelar” com o mnemônico na letra “n”, então sempre que este botão aparecer em
outras janelas tente repetir a tecla de acesso usada.
Outra dica: Não use tecla de acesso para opções perigosas, como por exemplo um botão “Apaga
Tudo”. Se colocarmos uma tecla de acesso ALT+P nele corremos o risco de do usuário apertar esta
combinação por engano e limpar tudo. Estas opções delicadas sempre é bom obrigar o usuário a
usar o rato ou a tecla TAB para ele ter certeza do que esta fazendo.

 Usando o exemplo anterior, vamos colocar teclas de acesso nos objetos:

 Perceba que agora é só apertar a tecla ALT e a letra sublinhada para que
o objeto seja acessado. Entretanto para que o programa combine o objeto
label no objeto mais próximo, que no nosso exemplo são as caixas de texto,
é necessário que a ordem do TabIndex esteja rigorosamente crescente.

65
 5 CONTROLES ESPECIAIS

 MaskEdBox
 CommonDialog
 Selecionando Itens

Alguns controles do Visual Basic necessitam de uma explicação mais profunda devida a sua grande
utilidade dentro da linguagem de programação. Habitualmente estes controles são pouco tratados
em literaturas sobre o Visual Basic, e devido a isto vamos aprofundar mais sobre eles aqui.

5.1 MASKEDITBOX

Este objeto é semelhante a uma caixa de texto, entretanto ele possui alguns recursos
adicionais, como a possibilidade de colocar uma máscara para o texto que irá ser digitado e validar a
digitação automaticamente.
Vejamos as principais propriedades:
AllowPrompt: Determina se o caractere informado como prompt é válido durante a digitação.
AutoTab: Determina se quando o usuário terminar de preencher a mascara do objeto o foco é
automaticamente passado para o objeto seguinte, sem necessidade do usuário apertar TAB ou o
rato.
ClipMode: Determina se, diante de um evento de copiar ou recortar dados do objeto Maskedit para a
área de transferência, devem ser enviados os dados digitados com os caracteres que compõem a
máscara ou não.

ClipText: Retorna o texto digitado no objeto sem os caracteres que compõem a máscara.
Format: Determina o formato que os dados serão exibidos. Seque os mesmos padrões
estabelecidos para a função Format (veja no capítulo Funções Auxiliares)
Use a propriedade Format para exibir dados em um formato consistente, ou seja, os dados serão
exibidos neste formato, mesmo que o usuário digite os dados diferentemente do formato. Por
exemplo, se você definir a propriedade Format para “dd/mmm/yyyy”, todas as datas digitadas serão
exibidas no formato 18/Set/1995. Se o usuário digitar a data como 18/09/95 (ou qualquer outro
formato de data válido), o Visual Basic converterá a exibição para o formato estabelecido, que é dia /
mês-por-extenso-abreviado / ano-com-4-digitos.
A propriedade Format afeta apenas a maneira como um valor é exibido e não como ele é
armazenado. Da mesma forma, um formato de exibição não é aplicado até que o usuário termine a
digitação e o controle perca o foco.
Nada é exibido no campo para sugerir ou controlar o formato no qual os dados são inseridos.

67
 Selecionando Itens

Se você precisar controlar a maneira como os dados são digitados, use uma máscara de entrada
além de ou ao invés de um formato de exibição de dados. Se você quiser que os dados sejam
exibidos exatamente como foram inseridos, não defina a propriedade Format.
FormattedText : Retorna o texto digitado, incluindo os caracteres que compõem a máscara.
Mask : Máscara que moldará o controle.
O Visual Basic fornece duas propriedades que produzem resultados parecidos: a propriedade
Format e o Mask.
Use a propriedade Mask para exibir caracteres de exibição literais no campo com espaços em
branco a serem preenchidos. Por exemplo, se todos os números de telefones que inserir em um
campo tiverem o mesmo formato, você poderá criar uma máscara de entrada:
(###) ###-####  (___) ___ -____  (062) 621-3862

Uma máscara de entrada garante que os dados se ajustem ao formato definido e você poderá
especificar os tipos de valores que poderão ser inseridos em cada espaço em branco. Por exemplo,
a máscara de entrada anterior solicita que todas as entradas contenham exatamente os dígitos
necessários para completar um código de área e número de telefone, e que somente dígitos possam
ser inseridos em cada espaço em branco.
Você pode definir uma máscara de entrada usando os seguintes caracteres.

0 Dígito (de 0 a 9, entrada requerida, sinais de mais (+) e menos (-)

não permitidos).
9 Dígito ou espaço (entrada não requerida, sinais de (+) e menos (-)
não permitidos).
# Dígito ou espaço (entrada não requerida, os espaços são exibidos
como vazios enquanto os dados são editados, mas são removidos
quando perde o foco, sinais de mais e menos permitidos).
L Letra (de A a Z, entrada requerida).
? Letra (de A a Z, entrada opcional).
A Letra ou dígito (entrada requerida).
a Letra ou dígito (entrada opcional).
& Qualquer caractere ou espaço (entrada requerida).
C Qualquer caractere ou um espaço (entrada opcional).
, . : ; - / Marcador de posição decimal e separadores de milhares, de data e
de hora. (O caractere realmente usado depende das configurações
do Painel de Controle do Windows).
< Faz com que todos os caracteres sejam convertidos para minúsculos.
> Faz com que todos os caracteres sejam convertidos para maiúsculos.
\ Faz com que o caractere seguinte seja exibido literalmente (por
exemplo, \A é exibido simplesmente como A).

Quando você define uma máscara de entrada e a propriedade Format para o mesmo objeto, a
propriedade Format tem precedência quando os dados são exibidos. Isso significa que mesmo você
tendo salvo uma máscara de entrada, ela é ignorada quando os dados são formatados. O dado
original como foi digitado não é alterado; a propriedade Format só afeta a maneira como os dados
são exibidos.
MaxLength : Determina a quantidade máxima de caracteres que o MaskEdBox pode ter.
Name: Nomeia o objeto. Geralmente inicia o nome com “msk”

68
 Selecionando Itens

PromptChar: Escolhe o caractere padrão que será exibido simbolizando o estado vazio. Por default
possui o caractere “_”, e aconselho a substituir pelo caractere de espaço. Esta propriedade não
aceita vazio.
PromptInclude: Determina se o caractere inserido na propriedade PromptChar será incluído na
propriedade Text.
Text: Contém o texto digitado pelo usuário no objeto.
Evento ValidationError: Este evento ocorre sempre que o usuário digita alguma entrada que não
corresponde a máscara estabelecida.

 Crie um novo projeto e insira 1 MaskEdBox e 3 labels:

69
 Selecionando Itens

 Nomeie o maskedit para “mskCGC” e coloque altere a propriedade Mask para

“##.###.###/###-##”.
 Rode o programa e veja o resultado.
 Vamos ver agora como algumas propriedades recebem o conteúdo digitado.
Abra a janela de codificação e digite:

 Cada propriedade recebe o conteúdo de uma maneira. Quando precisar

armazenar ou apresentar esse conteúdo é só escolher a forma que necessitar.
 Perceba que os pontos e a barra esta fixa, mas aparece um inconveniente
sinal de “_”. Para retirá-lo mude a propriedade PromptChat para “ “(uma
barra de espaço). Agora sim, aparece somente nossa formatação.
 Vamos agora criar um evento ValidationError para quando o usuário digitar
alguma tecla inválida o Visual Basic dar um alerta:

 Numa máscara onde se exige a digitação de números, se digitar uma letra

do alfabeto ou tentar digitar mais digitos que a mascara suporta, a
mensagem de advertência irá aparecer.

5.2 COMMONDIALOG

O Visual Basic traz algumas caixas de diálogos prontas para Abrir arquivo, Salvar, Imprimir,
escolher Cor, ou escolher fontes de letra. Sua utilização é simples e basta inserirmos o objeto
CommonDialog no formulário para ativarmos os diálogos. Na codificação do programa usamos a
propriedade Action para o Visual Basic abrir o diálogo pretendido:
Action: Determina o tipo de diálogo que será exibido:
0 Nenhum diálogo.
1 Mostra caixa de diálogo Abrir Arquivo

70
 Selecionando Itens

2 Mostra caixa de diálogo Salvar Arquivo

3 Mostra caixa de diálogo Escolher Cor
4 Mostra caixa de diálogo Escolher Fonte de Letra
5 Mostra caixa de diálogo de Impressão.
6 Executa o [Link].

As principais propriedades deste objeto podem ser acessadas selecionando (Custom) ou clicando no
botão direito do rato e selecionando “Propriedades” no menu:
Open/SaveAs: Aqui definimos as características do arquivo que será aberto ou salvo.

DialogTitle: Determina o texto que irá aparecer na barra de título.

FileName: Nome e Caminho padrão para um determinado arquivo.
InitDir: Diretório padrão onde sempre será iniciado o diálogo

71
 Selecionando Itens

Filter: Especifica os tipos de arquivos que poderão ser selecionados. Veja a regra de uso desta
propriedade:
Descrição | Tipo de arquivo |
Primeiro usamos um texto descritivo para o arquivo que será selecionado. Depois uma barra
vertical (|), e a extensão que este arquivo usa e finaliza com outra barra.
Textos (*.txt) | *.txt | Documentos (*.Doc) | Figuras (*.bmp,*.pcx) | *.bmp;*.ico |

Colocando desta forma veja como ficará a caixa de diálogo:

Color: Definimos as características da janela para escolha de cores.

Color: Especifica a cor selecionada no diálogo. Essa propriedade serve não só para capturar a cor
escolhida como para levar para a janela Color a cor em uso.

72
 Selecionando Itens

Font: Janela para definição de fontes de letra.

FontName: Nome da fonte corrente, usado no momento em que a janela de escolha de fonte foi
chamada. Também informa qual o nome da nova fonte escolhida.
FontSize: Determina o tamanho da fonte corrente e o novo tamanho escolhido.
Min e Max: Tamanho mínimo e máximo que um usuário pode escolher para uma determinada fonte
de letra.
Flags: Determina algumas opções para a caixa de díálogo. Coloque 1.
Style: Determina como será o tipo da fonte de letra.

Print: Janela de configuração de impressora e impressora. Obrigatoriamente temos que usar

quando enviamos algum relatório para ser impresso.

Copies: Determina a quantidade de cópias padrão para serem impressas.

FromPage: Página inicial a ser impressa.
ToPage: Página final a ser impressa.

73
 Selecionando Itens

Min: Limite mínimo de um intervalo de impressão

Max: Limite máximo de intervalo de impressão.
PrinterDefault: Determina se o usuário poderá alterar a impressora padrão do Windows.

Métodos Aplicáveis ao Controle: Podemos usar métodos para exibir as caixas de diálogo.
[Link] Exibe janela para escolha de cores.
[Link] Exibe janela para escolha de fonte de letra.
[Link] Exibe janela com opções de abrir arquivo.
[Link] Exibe janela com opções para salvar arquivo.
[Link] Exibe janela com opções de impressão.

74
 Selecionando Itens

 Crie um formulário da seguinte forma:

 Nomeie os objetos:
Tipo de Objeto Name
Label LblTeste
Command1 CmdCorLetra
Command2 cmdFonte
CommonDialog Dialogo

 Crie a seguinte codificação para os botões:

 Com isto o usuário poderá escolher a cor da letra que para o label assim
como mudar a fonte de letra e o tamanho. Repare que usamos o "Flags = &H1"
para forçar o Visual Basic a ler somente as fontes de tela. Consulte o Help
para ver os outros Flags possíveis.

75
 Selecionando Itens

6 MENUS

 Criando Menus
 Menus Instantâneos

76
 Selecionando Itens

6.1 MENUS
A maioria das aplicações possui menus para facilitar o usuário na
localização de todas as janelas que compõem um programa.
Para criar menus, usamos o menu TOOLS opção Menu Editor.
Sempre que criarmos menu temos que seguir algumas regras como
colocar acesso Mnemônico em todos os itens e seguir um padrão,
como, pôr exemplo, o menu Arquivo colocar o sublinhado na letra
“A”, colocar “...” quando este menu abre uma janela de diálogo,
estabelecer uma Tecla de Atalho para as principais opções do menu e colocar um traço de
separação para separar seções dentro de um mesmo menu, como pôr exemplo, no menu ao lado,
usou este recurso para separar algumas opções.

6.1.1 Criando Menus

Vejamos as principais propriedades do objeto menu:

Caption: Nesta propriedade definimos o título do item que irá aparecer no menu. Nesta propriedade
prefixamos uma letra com o símbolo “&” para que o Visual Basic destaque a letra com sublinhado. Se
for um item da barra de menus, ao teclarmos ALT e a letra destacada, o menu desse item será
aberto automaticamente. Se for um item de um menu já aberto, basta acionarmos somente a letra
destacada para executarmos a função vinculada ao mesmo.
Name: Usamos esta propriedade para definirmos o identificador para o item. Nomeamos cada item
de um menu para podemos manipulá-los através de codificaçõa. Para menus usamos abreviação
“mnu”
Index: Permite criar uma matriz para identificar os itens do menu. Para que a matriz seja
estabelecida o name deve ser igual para os que vão compor a matriz.
ShortCut: Determinamos uma combinação de tecla para que o menu seja acessado de forma mais
rápida. Quando definimos tecla de atalho para um item do menu, a rotina anexada é chamada
independente do local onde o foco esteja.
WindowList: Quando esta propriedade esta habilitada, numa aplicação com várias janelas, o Visual
Basic cria uma lista das ultimas janelas que foram acessadas.
Checked: Sempre que o usuário clica no item que possui esta propriedade habitada para True o
Visual Basic coloca um sinal de marcado “” ao lado do nome. Se clicar novamente esta marca é

77
 Selecionando Itens

retirada. Usamos esta propriedade quando queremos mostrar para o usuário o estado Ligado ou
Desligado de algum item do menu.
Enabled: Habilita ou não um item do menu. Quando esta desabilitada o Visual Basic coloca o texto
do Caption acinzentado.
Visible: Quando necessitamos que um determinado item do menu exista mas que fique invisível
para o usuário até que determinada condição seja estabelecida, usamos esta propriedade.
Usamos os botões de setas para Baixo de para Cima para movermos um item de lugar depois de
criado. O botão seta para Direita transforma o item selecionado em submenu item imediatamente
acima. O botão seta para esquerda volta o item um nível.
O botão Next é o default, ou seja, ele é acionado sempre que digitamos ENTER. Ele passa para o
próximo item de menu a ser digitado ou na seqüência.
Insert é usado para inserir um item de menu entre outros já criados e Delete apaga o item
selecionado.

 Num projeto novo vamos criar um menu para um programa de controle de

estoque. Vamos primeiramente definir as opções mestre que vão ficar no topo
do menu.

 Para criarmos estes itens basta abrirmos a janela de criação de menu e

fazer os lançamentos conforme estabelecido abaixo:

 Pronto. Execute o programa e veja o menu já criado automaticamente. Mas

logicamente precisamos agora criar subitens em cada uma dessas opções.
Selecione “&Lançamento” e aperte a tecla “Insert” e depois o botão seta
para a direita. Fazendo estaremos criando subitens para o item “Cadastro”.
Vamos criar as opções “Mercadoria” e “Fornecedor”. Note que quando

78
 Selecionando Itens

apertamos ENTER para o próximo ele não insere um novo item. Temos que
repetir a operação “Insert” e “Seta para Direita”.

 Agora repita o processo para criar subitens para “Lançamento” de nomes

“Entrada” e outro “Saída” e coloque uma tecla de atalho para cada um
conforme modelo:

79
 Selecionando Itens

 Criar um menu é simples, e o único evento que existe para os menus é o

“Click” que é exatamente igual ao evento “Click” usado para CommandButton.
 Se em tempo de projeto dermos um click num item de menu o Visual Basic
abre a janela de codificação para digitarmos alguma rotina de programação
para o menu. Afinal, um menu não é somente enfeite. Cada item seu teve
efetuar um determinado evento.
 Vamos criar um evento Click para as opção “Entrada” e “Saida“ bastante
simples:

 Execute o programa e veja que clicando nas opções com o rato ou apertando
as teclas de atalho correspondentes o MsgBox é acionado.
 Vamos agora voltar ao Editor de Menu e na opção “Cadastro” inclua no
final o item “Sair”. Vamos colocar um item “Separador” para esteticamente
ficar mais apresentável. Este item é colocando inserindo o caractere “-“ no
caption.

80
 Selecionando Itens

 Crie um evento para o item “Sair”:

 O Comando “END” encerra a aplicação.

6.1.2 Menus Instantâneos

O Windows 95 usa com muita freqüência este tipo de menu. São menus que se abrem
sempre que apertamos o botão direito do rato sobre algum objeto. Para esses menus surgirem na
tela usamos o comando PopupMenu no evento MouseUp de qualquer objeto. Veja como usar essas
rotinas.
PopupMenu: Neste comando especificamos o nome dado ao Menu que contém submenus e que irá
aparecer ao acionarmos este comando.
Exemplo: PopUpMenu mnuLançamento
Irá aparecer os subitens do menu Lançamento, ou seja, Entrada e Saida.

MouseUp (Button as Integer, Shift As Integer, X as Single, Y as Single): Sempre que o usuário
aperta um botão do rato este evento é chamado. Usamos os argumentos que o evento oferece para
sabermos qual dos botões foram apertados, se foi em conjunto com alguma tecla e qual coordenada
estava o ponteiro do rato no momento que o evento foi chamado.
Button: retorna um número inteiro que informa qual dos botões foram apertados:
1 Botão esquerdo pressionado. vbLeftButton
2 Botão direito pressionado. vbRightButton
4 Botão do centro pressionado. vbMiddleButton
Shift: retorna um número inteiro que informa qual tecla estava pressionada no momento em que
algum botão do rato também foi pressionado.
1 SHIFT pressionado. VbShiftMask
2 CTRL pressionado. VbCtrlMask
4 ALT pressionado vbAltMask
X: Coordenada para linha
Y: Coordenada para Coluna

81
 Selecionando Itens

 Na aplicação anterior coloque no formulário um CommandButton e crie um

evento MouseUp para ele com a seguinte codificação:

 Como não especificamos as coordenadas, como padrão o Visual Basic

estabelece a posição atual do rato.
 Note que pedimos para o menu “mnuCadastro” ser carregado sempre que
apertamos o botão direito do rato sobre o objeto “Command1”. Se chamarmos
este evento sobre o formulário ou qualquer outro objeto nada acontecerá.

82
 Selecionando Itens

7 VARIÁVEIS E MATRIZES

 Numérica
 Texto
 Data
 Byte
 Boolean
 Object
 Variant
 Matrizes

83
 Variáveis e Matrizes

7.1 AS CARACTERÍSTICAS DE UMA VARIÁVEL

As variáveis possuem uma importância fundamental dentro de qualquer linguagem de programação.

Elas armazenam os dados que vão para a memória do computador, e sempre que referenciamos a
elas, esses dados retornam da memória. E quando estão na memória podem fazer cálculos e
executar determinadas funções.
Para uma variável receber um conteúdo qualquer é necessário anexar esse conteúdo ao nome que
daremos para a variável. Exemplo:
Aluno = “João Batista da Silva”
Note que usamos o sinal de igual para que o nome do aluno fosse inserido na variável Aluno, que
estará agora na memória do computador, e sempre que nos referenciarmos a Aluno será como se
tivéssemos referenciado ao “João Batista da Silva”.
Para darmos nomes a uma variável é necessário seguir algumas regras básicas:
1. Sempre iniciar com letras (A até Z). Não use números ou símbolos para iniciar o nome de uma
variável.
2. Pode-se usar até 255 caracteres para compor o nome da variável, então batize-as com nomes
bastante claros, para que, apenas lendo seu nome, saibamos do que se trata e para que
serve. Exemplo: “NomeDependenteFuncionário”. Parece grande demais, mas só de lê-lo já
saberemos que se trata de uma variável que irá armazenar o nome do dependente de um
funcionário.
3. Na composição do nome não podemos usar espaço em branco, sinal de hífen, símbolos como
@#*&^$% ou sinais de pontuação. Pode-se usar somente Letras do alfabeto, números e o
sublinhado.
4. Cuidado para não usar nomes reservados pela linguagem. Exemplo: If, Caption, Name, Sub,
End, etc.

7.1.1 O Comando Dim

Sintaxe: Dim NomeDaVariável As TipoDeVariável
NomeDaVariável: Representa um nome válido como descrito acima que usamos sempre que
precisarmos nos referenciar ao seu conteúdo.
As TipoDeVariável: Cada variável tem um tipo predefinido, e na criação dela, usando o comando
DIM, aconselha-se a já definir para o programa que tipo de dados essa variável irá guardar.
Exemplo: Números, Dados, Textos, etc.
O comando DIM é usado para declararmos para o programa a existência de uma variável e o tipo
que ela é.
Este comando é obrigatório e podemos declarar as variáveis no momento em que estamos
necessitando delas, já em uso. Exemplo:
Function CalculaFormula()
x = 10
y = 13
CalculaFormula = x*y+30
End Function

84
 Variáveis e Matrizes

Este exemplo bem simples é somente para mostrar que usamos duas variávels chamadas x e y e
não as declaramos. Precisamos delas e usamos. Caso fosse usar o comando Dim, esta mesma
função ficaria assim:
Function CalculaFormula()
Dim x As Integer
Dim y As Integer
x = 10
y = 13
CalculaFormula = x*y+30
End Function
A expressão Integer significa tipo de variável numérica que poderá aceitar somente números
inteiros. Veremos melhor esses tipos adiante.
Este método é extremamente útil, pois imagine um programa onde existe uma imensa quantidade de
variáveis. Se todas foram previamente declaradas saberemos de antemão os nomes dela e para
que servem.
Podemos forçar o Visual Basic a aceitar em nosso programa somente variáveis que foram
declaradas. Para tanto temos que acessar o TOOLS no menu principal, opção OPTIONS:

No menu options, janela

Environment, habilite a
opção “Require
Variable Declaration”
(Requer Variável
Declarada). Assim
sempre que usar uma
variável que não foi
declarada pelo
comando Dim e não tem
seu tipo definido o
Visual Basic
apresentará uma janela
de alerta. Faça isto
agora!

Usando isto, o Visual Basic irá exigir a declaração das variáveis, e não corremos o risco de, quando
digitarmos o nome de alguma variável errada, ele aceitar. Exemplo: Criamos uma variável de nome:
ClienteCadastrado. E em algum canto de nossa codificação digitamos: ClienteCadastado. Faltou a
letra “r”. Se a opção “Require Variable Declaration” estiver habilitada o Visual Basic nos avisará que
este nome não existe como variável. Caso contrário, o Visual Basic irá imaginá-la como uma nova
variável e aceitará o erro. Não corra risco!

85
 Variáveis e Matrizes

7.1.2 Os Tipos de Variável

Nome Descrição Abrangência
Integer Numérico Inteiro -32.768 a 32.767
Long Numérico Inteiro -[Link] a [Link]
Byte Numérico Inteiro 0 a 255
Single Numérico real -3,402823E38 a -1,401298E-45
1,401298E-45 a 3,402823E38
Double Numérico real -1,79769313486232E308 a 4,94065645841247E-
324
4,94065645841247E-324 a
1,79769313486232E308
Currency Numérico - -[Link].477,5808 a
Valores monetários [Link].477,5807
String Texto [Link] de caracteres nos sistemas 32
bits
65.536 de caracteres nos sistemas 16 bits
Date Data e Hora entre 01/01/100 a 31/12/9999
Boolean True (verdadeiro) False (falso)
Object Contém um objeto
Variant Pode ser numérico, string, objeto ou valor nulo.

7.1.3 As Variáveis Númericas

As variáveis Integer, Long, Byte, Single, Double e Currency armazém em eu conteúdo somente
números. A diferença entre elas está na abrangência de cada uma e se aceitam ou não casas
decimais. A variável Currency é mais especifica para tratar valores monetários, e ela já converte os
valores no formato estabelecido no Painel de Controle (Configurações Regionais) para moeda.
Sempre é bom verificarmos o tipo de número que irá conter a variável numérica que estamos
criando. Se for conter somente números inteiros, e no máximo 10.000 registros, então a Integer esta
de bom tamanho. Se vamos criar um contador que irá contar até 100, então a variável mais cabível é
a byte.
A escolha correta da variável numérica é importante no consumo de recursos de processador de seu
computador. Se você escolhe o tipo Double essa variável irá consumir os recursos de sua máquina
para que possa trabalhar com números dos tipo “4,94065645841247E-324”. Mas se você vai
somente armazenar na variável números na casa do milhar, então a máquina estará absorvendo do
processador mais recursos do que vai usar.
Acostume a definir uma determinada variável como numérica somente quando esta variável será
objeto de cálculos.

7.1.4 Variável String

Esta variável armazena textos. Esses textos podem ser caracteres alfanuméricos, símbolos, etc.
Sempre que formos nos referenciar a expressão que está contida na variável string temos que
colocar “” (aspas). Exemplo: NomeEscola=“Modelo Informática”.
Neste tipo de variável podemos fazer comparações, concatenação de duas variáveis string, ou até
extrair uma parte do conteúdo.
O que é concatenação?
É a junção de duas variáveis ou expressões texto. Exemplo: “12” + “13” resultará em “1213”.
“Editora” + “Terra” resultará em “Editora Terra”.

86
 Variáveis e Matrizes

Entretanto, apesar de podermos usar o operador “+” para fazer concatenação, vamos usar em seu
lugar sempre o operador “&”. Esse operador, em detrimento ao outro, força a concatenação mesmo
quando os dados são incompatíveis. Exemplo: “12” + 13 resultará em 25. Observe que uma
expressão era String e a outra numérica, e o operador “+” forçou a soma. Se usássemos neste
exemplo “12” & 13 resultaria em “1213” apesar da expressão 13 ser numérica.
Quando criamos uma variável do tipo String podemos delimitar previamente o tamanho que ela terá.
Veja a sintaxe:
Dim NomeEscola as String * 30
Criamos uma variável de nome “NomeEscola” do tipo String (texto) e que terá no máximo 30
caracteres. Se colocarmos mais que isto em seu conteúdo o excedente será ignorado. Se
colocarmos menos que isto será preenchido com espaços em branco.

7.1.5 Variável Boolean

Este tipo de variável contém somente dois valores: True ou False.
Indicado como resultado de comparações. Exemplo:
Dim Comparação As Boolean
Dim NomeEscola As String
NomeEscola = “Modelo Informática”
Comparação = (NomeEscola = “Informática”)
A variável Comparação resultará em False.
As propriedades dos objetos que temos que informar True ou False (como por exemplo Enabled) são
do tipo Boolean.

7.1.6 Variável Date

Como o próprio nome diz, são variáveis que armazenam Datas. Entretanto podemos também
armazenar horas. Para sinalizar para o programa que vamos armazenar uma data numa
determinada variável usamos o #. Exemplo: Hoje=#15/07/96#. Veja o que acontece se usarmos de
forma diferente:
Hoje = 15/07/96
O programa irá imaginar que estamos na verdade dividindo 15 por 7 e depois dividindo por
96.
Hoje = “15/07/96”
O programa irá ter seu conteúdo como uma string (texto) no formato de uma data.
Uma variável data aceita alguns tipos de cálculo como por exemplo:
a = #15/07/96#
b = #30/07/96#
b - a = 15 (Uma data menos outra retorna o intervalo em dias)
a + 3 = #18/07/96# ( uma data mais um valor numérico soma a quantidade de dias na data)
a - 3 = #12/07/96# ( uma data menos um valor numérico subtrai a quantidade de dias na
data.

7.1.7 Variável Object

O Visual Basic trabalha com objetos. Nossa caixa de ferramentas está cheia deles. Mas temos
também objetos Database, Fonts, etc.
Se precisarmos inserir esses objetos em uma variável usamos um comando chamado Set, e não o
sinal de igual. Exemplo:
Dim BancoDeDados As Object
Set BancoDeDados = OpenDatabase(“C:\Visual Basic\[Link]”)

87
 Variáveis e Matrizes

7.1.8 Variável Variant

Este tipo de variável não possui um tipo definido. Ele se transforma em qualquer tipo dependendo
de seu conteúdo.
Usamos uma Variant quando não sabemos que tipo de dados terá a variável ou se já sabemos de
antemão que o conteúdo vai necessitar passar por transformações nos tipos de dados armazenados.

7.1.9 Null
Quando o conteúdo da variável é um dado inválido ela retorna a palavra-chave Null.

7.2 ABRANGÊNCIA E TEMPO DE VIDA DE UMA VARIÁVEL

Variáveis criadas dentro de uma rotina valem somente para a rotina que a criou. Por exemplo,
quando criamos um evento para um botão de comando, estamos criando uma rotina (procedure)
chamada Private Sub:
Private Sub Command1_Click()
Dim Nome as String
NomeTeste = “Fechar”
[Link] = NomeTeste
End Sub
A variável NomeTeste que criamos dentro do Private Sub possui validade somente dentro desta
rotina de código. Chamamos de variável Local. Quando encerrar (comando End Sub) a variável será
retirada da memória do computador e não mais existirá. Outro Exemplo:
Private Sub Command1_Click()
Dim NomeTeste as String
NomeTeste = “Fechar”
End Sub

Private Sub Command2_Click()

[Link] = NomeTeste
End Sub

Repare, a variável NomeTeste foi criada dentro da rotina Private Sub Command1 e na outra rotina
Private Sub Command2 fazemos referência a ela. Como ela foi criada dentro da Private Sub
Command1 ela tem validade somente lá. Este exemplo retornará um erro, pois NomeTeste não
existe para Private Sub Command2.

88
 Variáveis e Matrizes

Entretanto, se queremos que uma variável tenha uma abrangência em todas as rotinas criadas
dentro do formulário, então na janela de código do formulário na parte superior mude o Object para
“General” e o Proc para “declarations). As variáveis que forem criadas ali valerão para todas as
rotinas criadas para o formulário e seus objetos anexados a ele.

Exemplo:
Option Explicit
Dim teste As String

Private Sub Command1_Click()

teste = "Testando a Variavel"
Print teste
End Sub

Veja que a variável teste foi criada fora da rotina Private Sub, mas possui abrangência dentro dela.
Se criarmos um outro formulário e pedirmos para imprimir a variável teste irá ocasionar um erro, pois
a validade desta variável é somente dentro do formulário em que ela foi criada.
Caso precisamos de uma variável de caráter publico, que tenha validade Global, em todos os
formulários e rotinas de nossa aplicação, será necessário inserir um módulo (Menu Insert opção
Module) e dentro dele criar a variável com o comando PUBLIC no lugar de DIM. Veja exemplo:

Public Teste as String

Menu Project

Janela de
codificação do
módulo criado

Em resumo, vejamos então as formas de se declarar uma variável:

 Variável pública à todo o programa: podemos declarar uma variável pública,
especificando-a com o comando Public na seção Declarations de qualquer módulo.
 Variável pública ao módulo: através do comando de declaração Dim na seção
Declarations do módulo desejado, especificamos que uma variável será pública apenas
ao módulo onde fora declarada.
 Variável local à rotina (Sub ou Function): declarando uma variável com o comando Dim
dentro de qualquer procedimento Sub ou Function a mesma será reconhecida apenas
pelo procedimento.

89
 Variáveis e Matrizes

 Crie um novo projeto e coloque nele um botão de comando e dois Labels.

Não esqueça de habilitar no Menu Tools/Options a opção “Require Variable
Declaration”.
 Codifique o botão da seguinte forma:

Segundo Label. Deixar

Caption Vazio e Ligar o
AutoSize. Nome: lblTreino

 Vamos agora codificar o botão. Dê dois clickes nele e digite os seguinte

comandos:

Foi criado uma

variável de nome Teste,
e seu conteúdo é
“Modelo Informática”.
Assim, sempre que
fizermos referencia a
Teste irá aparecer o
valor contido nela.

 Execute o programa e aperte o botão. Onde estava o Label “lblTreino” irá

aparecer o conteúdo da variável.
 Como criamos a variável dentro da rotina “Private Sub
cmdTesteVariavel_Click” ela terá validade somente ali dentro.
 Para comprovar isto, crie outro botão:

90
 Variáveis e Matrizes

 Crie a seguinte codificação para este botão:

Nesta codificação
do segundo botão
apenas mandamos
inserir o conteúdo
da variável Teste
para o Label
lblTreino.

 Rode o programa e aperte o segundo botão. Irá aparecer uma mensagem de

erro alertando que a variável “Teste” não existe:

 Agora apague a linha “Dim Teste as String”. Vá até o “Object” (Caixa de

Combinação na parte superior), chame a opção “General”, e digite:

Colocando o
comando Dim
no object
“General”
todas as
variáveis
criadas ali tem
abrangência em
toda a janela de
codificação do
formulário
(todas as rotinas
existentes).

 Rode o programa e aperte o segundo botão “cmdSegundoTeste” e veja o que

acontece: A mensagem de erro que aparecia antes não aparece mais, pois
agora a variável abrange esta rotina também.

91
 Variáveis e Matrizes

 Mas não existe nenhum conteúdo para a variável Teste até o momento em que
o botão “cmdTesteVariável” seja pressionado. A variável Teste terá um
conteúdo somente quando o botão “cmdTesteVariável” for pressionado. Até
então, a variável existe mas seu conteúdo é vazio.
 Para entender melhor, mude a codificação do botão “cmdSegundoTeste” para:

92
 Variáveis e Matrizes

7.3 MATRIZES
Nas matrizes podemos armazenar vários dados (seja texto, números ou datas) em uma única
variável. O que diferencia essencialmente uma matriz de uma variável é que a primeira possui níveis
dentro de si, e em cada nível podemos armazenar dados. Veja o exemplo de uma declaração e
inicialização de uma matriz:
Dim NomeCliente(3) as String
NomeCliente(0) = “Fernando Henrique”
NomeCliente(1) = “Fernando Collor”
NomeCliente(2) = “José Sarney”

Criamos uma matriz de nome NomeCliente e definimos como sendo uma String. Entretanto,
definimos também que essa matriz terá 3 níveis somente. Em cada nível podemos colocar um
elemento (um conteúdo) dentro dele.
Todos os elementos da matriz precisam ser do mesmo tipo estabelecido no comando Dim. Porém,
se declararmos um matriz do tipo Variant, cada elemento poderá ser de um tipo de dado diferente.
Para acessarmos um determinado conteúdo temos que especificar o número que acompanha o
nome da matriz. Chamamos esses números de índice, e são estes índices que localiza os elementos
dentro da matriz. Exemplo: Se desejamos imprimir a matriz que contém o nome “José Sarney” temos
que digitar:
Print NomeCliente(2)
Se digitar somente NomeCliente o Visual Basic não irá retornar um erro em tempo de execução:

Este erro acontece porque uma vez definido NomeCliente como matriz, ela poderá somente ser
chamada como uma matriz (com seu índice).
A abrangência e tempo de vida de uma matriz segue as mesmas regras estabelecida para as
variáveis.
As regras de nomeação de uma matriz também são as mesmas aplicadas as variáveis.

7.3.1 Matrizes Unidimensional

Quando vamos criar uma matriz colocamos logo no início a quantidade de elementos que ela poderá
conter. Essa quantidade é colocada entre parênteses e assim é criado na memória do computador
espaços reservados a todos os elementos que iremos usar.
Veja o exemplo abaixo, onde temos uma matriz de números inteiros contendo 10 elementos:
Dim Contador(10) as Integer

O primeiro elemento será referenciado com o índice 0, ou seja, Contador(0); o segundo elemento
como Contador(1), e assim por diante. O índice do último elemento será sempre um a menos que a
quantidade especificada entre os
parênteses na declaração. Isto
acontece porque como padrão o Visual
Basic inicia sua contagem para índices
em 0. No exemplo, o índice varia de 0 a

93
 Variáveis e Matrizes

9. Mas isto não quer dizer que não podemos mudar esse padrão. Para isto usamos o comando
Option Base, adicionado à seção Declarations. Option Base 0 faz com que o índice das matrizes
inicie em 0, por outro lado, como Option Base 1, o valor inicial para para 1.

Se quiser personalizar as matrizes para algumas começarem a partir de um determinado numero de

outras a partir de outro, podemos especificar na criação o menor e o maior índice que a matriz terá:
Dim Contador (1 to 10) as Integer
Dim NomeCliente( 5 to 10) as String

O primeiro exemplo terá um índice de 1 a 10 e no outro um índice de 5 a 10. Qualquer número

informado fora desse intervalo retornará um erro.

7.3.2 Matrizes Multidimensional

Imagine matriz multidimensional como sendo uma matriz dentro de outra. Por Exemplo:
Option Base 1
Dim Contador(3,2) as String.

Significa que temos um matriz de nome Contador, possui 3 elementos e cada elemento possui 2
elementos. Ou seja, no total, essa matriz terá 6 elementos. Veja como ficaria:
Contador(1,1) = “Janeiro”
Contador(2,1) = “Fevereiro”
Contador(3,1) = “Março”
Contador(1,2) = “Venda Ruim”
Contador(2,2) = “Venda Regular”
Contador(3,2) = “Venda Boa”
Veja como ficaria a representação gráfica dessa matriz
Coluna 1 Coluna 2
Linha 1 Janeiro (1,1) Venda Ruim (1,2)
Linha 2 Fevereiro (2,1) Venda Regular (2,2)
Linha 3 Março (3,1) Venda Boa (3,2)

Perceba que esses tipos de matriz são multidimensional porque criam subdivisões dentro de cada
elemento. Poderíamos ter matrizes do tipo:
Dim Contador(3,5,8) as Integer

Esse monstro que criamos significa essa matriz possui 3 elementos. Cada Elemento se subdivide em
outros 5 elementos. Cada elemento desses cinco elementos se subdivide em outros 8 elementos,
formando no total 120 elementos (3X5X8). Confesso que a primeira impressão é horrível. Mas a
possibilidade existe e o bicho não é tão feio. Podemos usar matrizes multidimensional como uma
planilha eletrônica de cálculo.

7.3.3 Matrizes Dinâmicas

As vezes necessitamos de criar uma matriz mas não sabemos de antemão quantos elementos ela
terá, assim, não poderíamos especificar no comando Dim o valor máximo do índice.
Para isto, o Visual Basic criou as Matrizes Dinâmicas. Elas não possuem tamanho fixo. Podemos
variar seu tamanho de acordo com nossa necessidade na execução do programa. A criação de uma
matriz assim usa a seguinte sintaxe:

94
 Variáveis e Matrizes

Dim NomeCliente() as String

Veja que entre parênteses deixamos vazio para durante o programa preenchermos.
Usamos o comando ReDim para fazer esse Redimensionamento da matriz. Exemplo: Se
precisarmos incluir mais 1 elemento na matriz NomeCliente usariamos o comando:
ReDim NomeCliente(1)
NomeCliente(1) = “João Figueiredo”

Se depois precisarmos colocar mais 2 elementos usariamos:

ReDim NomeCliente(3)
NomeCliente(1) = “João Figueiredo”
NomeCliente(2) = “José Sarney”
NomeCliente(3) = “Fernando Collor”

Neste exemplo quando redimensionamos pela segunda vez tivemos que colocar um conteúdo
novamente para o NomeCliente(1) pois o comando ReDim sempre apaga os dados armazenados
anteriormente.
Quando não queremos que isto aconteça usamos a cláusula Preserve Juntamento com o ReDim.
Assim os conteúdos anteriores são preservados. Veja:
ReDim NomeCliente(1)
NomeCliente(1) = “João Figueiredo”

Se depois precisarmos colocar mais 2 elementos usaríamos:

ReDim Preserve NomeCliente(3)
NomeCliente(2) = “José Sarney”
NomeCliente(3) = “Fernando Collor”

7.3.4 Matrizes no ComboBox e no ListBox

Insira no formulário
um ListBox e nomeie-
o para lstPresidentes.
Coloque também um
botão de comando.
Veja ao lado como
ficará a codificação.

Objetos como o ComboBox e o ListBox usam matrizes para fazer referencia ao seu conteúdo
através da propriedade List. Veja este exemplo:
Note que na propriedade List existe um índice que usamos para referenciar aos dados contido no
Objeto ListBox. Este índice sempre inicia com 0 e vai até o ultimo existente dentro da Caixa de Lista.
A propriedade NewIndex do objeto retorna o índice do ultimo item que entrou no ListBox, e a

95
 Variáveis e Matrizes

propriedade ListCount retorna a quantidade de itens existentes. No nosso exemplo, o NewIndex

seria igual a 3 e o ListCount igual a 4.
[Link](3) retorna a expressão “Fernando Henrique”.
Print [Link]([Link]) retorna a expressão “Fernando Henrique”
também.

7.3.5 A Propriedade Index dos Objetos

Todos objetos que são inseridos no formulário, e possuem o mesmo nome, o Visual Basic
automaticamente os converte para matriz, e na propriedade Index é inserido o número
correspondente ao seu índice. Isto acontece porque não podemos ter dois ou mais objetos com o
mesmo nome (propriedade Name) em nosso projeto.
Por exemplo, vamos colocar dois Labels no formulário e mudar sua propriedade Name para
“lblTestaMatriz”. No primeiro o Visual Basic aceitará o nome sem problemas, no segundo Label
quando tentarmos colocar o mesmo nome já usado anteriormente por outro Label, o Visual Basic
avisará que o nome já existe e pergunta se não queremos usar uma matriz:

Se optarmos pelo sim ele criará uma matriz e renomeará o objeto para lblTestaMatriz(0) e
lblTestaMatriz(1). A propriedade index de cada um possuirá os números 0 e 1 respectivamente.

Usando uma matriz o nosso objeto agora terá que ser referenciada com o seu índice para podermos
saber qual objeto estamos querendo usar:

Se formos fazer alguma codificação para este objeto, teríamos que sempre colocar o índice
correspondente ao objeto que estamos trabalhando.

96
 Variáveis e Matrizes

Note que o evento click que criamos para o Label possui um argumento “Index As Integer”. A
variável index terá em seu conteúdo o número do índice correspondente ao Objeto clicado. Ou seja,
se chamarmos o evento click através do Label1 o número do índice será 0. Se usarmos o Label2 o
índice será 1.

 Crie um novo formulário e nele coloque 4 Objetos CheckBox com as

seguintes propriedades:
Propriedades Check1 Check2 Check3 Check4
Name chkNome chkNome chkNome chkNome
Caption Figueiredo José Sarney Collor FHC
 Coloque também no formulário um Label. Deixe o Caption vazio, o Autosize
em True e nomeio “lblTeste”.

 Crie uma codificação para o objeto CheckBox da seguinte forma:

 Para conseguirmos o mesmo efeito sem usar matriz teríamos que criar um
evento click para cada opção do CheckBox.

97
 Variáveis e Matrizes

EXERCÍCIOS PROPOSTOS
1 - Cite três regra que temos que respeitar na criação de uma variável:

2 - Explique o comando DIM:

3 - Quais os tipos de variáveis existente?

4 - O que você entendeu de variável LOCAL?

5 - A seção “declarations” da janela de codificação tem qual finalidade?

6 - O que você entendeu de Matriz?

7 - Qual a diferença de Matriz Unidimensional e Multidimensional?

98
 Variáveis e Matrizes

8 - O que é uma matriz Dinâmica?

9 - Qual a diferença da propriedade NewIndex e ListCount?

10 - Explique a propriedade Index dos objetos.

99
 8 OPERADORES

 Matemático
 Relacional
 Lógico
 String
 Operadores

8.1 OPERADORES
A finalidade básica dos operadores são para comparar, calcular, igualar, concatenar... enfim, fazer
operações envolvendo variáveis ou campos de Banco de Dados.

8.1.1 Operadores Matemáticos

Estes tipos de operadores possuem a finalidade de efetuar cálculos e já são bastante conhecidos,
principalmente para quem usa calculadora.
Operador Descrição Exemplo
+ Soma Var = 18+5
- Subtração Var = 18-5
* Multiplicação Var = 18*5
/ Divisão Var = 18/5
\ Divisão. Resultado será um número inteiro Var = 18\5
^ Exponenciação Var = 18^5
Mod Resto da Divisão Var = 18 Mod 5

Esses operadores respeitam uma ordem de precedência universal:

1ª. Exponenciação
2ª. Multiplicação e Divisão
3ª. Adição e Subtração
Caso precisamos de efetuar um calculo: 3+4*2^2/4-1+5 resultará em 11. Se por algum motivo
precisarmos que o programa efetue a soma primeiro, então devemos coloca-la entre parênteses:
(3+4)*2^2/4-(1+5) = 1. Usamos os parênteses para mudar a ordem de precedência dos operadores.
Os operadores atuam não somente em números, mas também nas variáveis cujo conteúdo seja
valores numéricos. Exemplo:.

101
 Operadores

8.1.2 Operadores Relacionais

Estes operadores fazem comparações entre variáveis ou expressões. O retorno desta comparação
será sempre True (Verdadeiro) ou False (Falso). Nos exemplos abaixo todas as comparações serão
verdadeiras.

Operador Descrição Exemplo

> Menor 3<5
< Maior 5>3
<= Menor ou Igual 3 <= 5
>= Maior ou Igual 5 >= 3
= Igual 5=5
<> Diferente 3 <> 5

8.1.3 Operadores Lógicos

Enquanto que os operadores matemáticos retornam o resultado de um cálculo, os operadores
lógicos sempre retornam True quando a lógica é exata, ou False quando a lógica não é exata.

And: Usamos quando precisamos comparar duas relações e ambas tem que ser verdadeira.
20 > 10 and 5 = 5
O Resultado será verdadeiro ( True ). 20 é maior que 10 e 5 é igual a 5.
20 > 10 and 5 = 4
O Resultado será falso (False). 20 é maior que 10 mas 5 não é igual a 4. Somente 1 das
duas expressões deram certo.

Or: Usamos quando precisamos comparar dois relacionamentos e pelo menos um deve ser
verdadeiro ( ou um ou outro ).
20 < 10 Or 5 > 4
O resultado será verdadeiro. 20 não é menor que 10, mas 5 é maior que 4.
20 < 10 Or 4 > 5
O resultado será falso. 20 não é menor que 10 e nem 4 é maior que 5.

Not: É um operador que inverte o resultado, passando algo que seria verdadeiro para falso e vice-
versa.
Not(10 > 5)
O resultado será falso. 10 é maior que 5. Seria Verdadeira a comparação, mas como possui
o Not, e ele inverte o resultado, o retorno é falso.

Xor: Este operador exige precisão. Não admite confusão na comparação dos relacionamentos. Ou é
uma coisa ou outra. Nunca as duas.
8 > 10 Xor 8 > 6
Retorna verdadeiro, pois o resultado das duas comparações foram diferentes. A primeira é
falsa e a segunda é verdadeira.
8 > 10 Xor 6 > 8
Retorna falso, pois o resultado das duas comparações foram semelhantes. A primeira é falsa
e a segunda também.

102
 Operadores

10 > 8 Xor 8 > 6

Retorna falso, pois o resultado das duas comparações foram semelhantes. A primeira é
verdadeira e a segunda também.

Eqv: Abreviatura de Equivalente. Faz uma equivalência lógica entre duas expressões.
10 > 8 Eqv 8 > 6
Retorna verdadeiro, pois ambas comparações são iguais.
8 > 10 Eqv 8 > 6
Retorna falso, pois as comparações retornam valores diferentes.

Imp: Abreviatura de Implicação (uma coisa implica em outra). O resultado será False somente se a
primeira comparação for True e a segunda for False. Nos outros casos o resultado será sempre
True. Este operador é o único onde a ordem dos operandos fazem diferença.
10 > 8 Imp 6 > 8
Retorna Falso, pois a primeira comparação é Verdadeira e a segunda é falsa.
10 > 8 Imp 8 > 6
Retorna Verdadeiro.
8 > 10 Imp 6 > 8
Retorna Verdadeiro.

8.1.4 Operador de String

O mais simples de todos. É o símbolo “&” que serve para juntar duas expressões ou variáveis texto.
Exemplo:
“Lionardo “ & “Fonseca Paiva”
Resulta em “Lionardo Fonseca Paiva”. O operador “+” também pode ser usado, mas não é
aconselhado, uma vez que o “&” possui uma abrangência maior, convertendo expressões de outros
formatos para o string para forçar a concatenação.

103
 Operadores

 Crie um formulário conforme modelo abaixo.

 Vamos criar um programa em que o usuário irá digitar um valor qualquer,

ele valor será multiplicado pelo numero informado e o resultado era
apresentado no "Label4" juntamente com o nome do usuário.
 Nomeie as caixas de texto para txtValor, txtMultiplicado e txtNome

Vamos codificar o botão "cmdResultado":

 Isto fará com que o programa calcule o valor informado e concatene este
valor com o nome do usuário.

 Importante o programador tentar cercar o máximo de erros possiveis que o

usuário pode cometer, como por exemplo, se for digitado caracteres do
alfabeto onde se espera numeros ou deixar um dos itens em branco, o
programa irá dar a seguinte mensagem de erro:

104
 Operadores

 Para se evitar isto o programa deve verificar se os dados digitados são

válidos para depois efetuar o cálculo.

105
 Operadores

EXERCÍCIOS PROPOSTOS
1 - Qual a diferença entre o operador / e o operador \ ?

2 - Quando que um operador retorna True ou False como resultado?

3 - Qual o resultado do operador Mod?

4 - Explique os operadores lógicos e exemplifque:

And:
Exemplo:
Or:
Exemplo:
Xor:
Exemplo:
Not:
Exemplo:

5 - Dê um exemplo de cada operador de comparação relacionado abaixo:

>
>=
<
<=
<>
=

106
 9 COMANDOS CONDICIONAIS E DE LAÇO

 Condicionais
 Laço
 Comandos Condicionais e de Laço

9.1 COMANDOS CONDICIONAIS

Como o próprio nome já indica, estes comandos executam determinadas ações desde que algumas
condições sejam favoráveis (verdadeiras).
IF <<Condição>> THEN... END IF

Traduzindo: IF = Se, THEN = Então, END IF = Fim do Comando Se.

Quando colocamos uma estrutura condicional IF dentro do nosso programa estamos querendo que o
computador avalie uma condição e conforme for o resultado siga determinado caminho. Veja um
exemplo:
Dim Contador as Integer
Contador = 20
IF Contador < 20 Then
Print “Contador é menor que 20”
End If
Print “Fim do Programa”

O programa verifica: Se contador for menor que 20 então imprima no formulário “Contador é menor
que 20”. Quando terminar imprima “Fim do Programa.
Quando uma determinada condição que colocamos no comando IF é verdadeira ele começa a
executar todas as linhas que existem entre IF e END IF. Se a condição não for verdadeira então o
programa passa a execução para a linha após o END IF e ignora tudo que houver dentro da
estrutura IF... END IF.
Dim Contador as Integer
Contador = 20
IF Contador > 20 Then
Print “Contador é maior que 20”
End If
Print “Fim do Programa”

Agora o programa irá verificar se Contador é maior que 20. Ele não é maior que 20. Esta condição é
falsa. Então, sendo assim, ele não executará as linhas existentes dentro da estrutura IF...END IF, e
só irá imprimir no formulário a frase “Fim do Programa”.
IF <<Condição>> THEN... ELSE... END IF

Traduzindo: IF = Se, THEN = Então, ELSE = Senão, END IF = Fim do Comando Se.
Acrescentamos na estrutura o comando ELSE, que é sempre executado quando a condição não é
verdadeira.
Dim Contador as Integer
Contador = 20
IF Contador < 20 Then
Print “Contador é menor que 20”
ELSE
Print “Contador é maior ou igual a 20”
End If
Print “Fim do Programa”

O programa verifica: Se o Contador for menor que 20 imprima a frase: “Contador é menor que 20”,
senão, imprima “Contador é maior ou igual a 20”.

108
 Comandos Condicionais e de Laço

Perceba que agora o programa irá executar um comando da estrutura, seja um ou outro, mas pelo
menor um será executado. Se a condição for verdadeira o comando executado é sempre o que esta
após o comando IF, se for falsa ele ignora as instruções que existem após o comando IF e passa a
execução para a linha após o ELSE e vai até o final.
Lembre-se: Sempre que usar o comando IF é necessário usar o comando THEN após a condição, e
depois encerrar a estrutura condicional IF com END IF.
IF <<Condição>> THEN... ELSEIF... ENDIF

Traduzindo: IF = Se, THEN = Então, ELSEIF = Senão se, END IF = Fim do Comando Se.
Modificamos comando ELSE para ELSE IF, que é sempre executado quando a condição não é
verdadeira, mas ainda dependendo de uma outra condição.
Dim Contador as Integer
Contador = 20
IF Contador < 20 Then
Print “Contador é menor que 20”
ELSEIF Contador = 20
Print “Contador é igual a 20”
ELSE
Print “Contador é maior que 20”
End If
Print “Fim do Programa”

O programa verifica se o contador é menor que 20. Se não for verifica se é então igual a 20, senão
irá imprimir que contador é maior que 20.
Veja outro exemplo:

109
 Comandos Condicionais e de Laço

SELECT CASE

Significa “Seleção de Casos”. Ou seja, colocamos várias possibilidades (varios casos) para o Visual
Basic e ele escolhe um.
Veja a estrutura do comando:
Opção = 3
Select Case Opção
Case 1
Print “Opção 1 acionada”
Case 2
Print “Opção 2 acionada”
Case 3
Print “Opção 3 acionada”
End Select

Veja que este comando verifica se a Opção é 1, depois verifica se é 2 e depois se é 3. Se a variável
Opção for 3 ele executará as instruções contidas na próxima linha. Caso a variável Opção não seja
1,2 ou 3 então o comando SELECT CASE é encerrado.
Opção = 3
Select Case Opção
Case 1
Print “Opção 1 acionada”
Case 2
Print “Opção 2 acionada”
Case 3
Print “Opção 3 acionada”
Case Else
Print “Opção não é 1,2 ou 3”
End Select

Acrescentando na estrutura cláusula CASE ELSE (caso contrário), o Visual Basic irá verificar se a
variável é 1,2 ou 3, não sendo então será CASE ELSE, e a linha seguinte a esta cláusula será
executada.
No comando Case podemos usar também intervalos, como por exemplo:
Case 2 to 4

Ou seja, caso a condição esteja entre 2 e 4.

Caso queira que na verificação da condição seja avaliado se a variável é maior ou menor que
determinada expressão, usamos:
Case Is > 50

110
 Comandos Condicionais e de Laço

]
 Em um novo formulário crie uma caixa de texto para digitarmos uma data e
um botão como esta abaixo:

 Vamos codificar o botão para quando digitarmos uma data o programa

verificar se é igual a data de hoje ou não. Para obtermos da data de hoje
do sistema temos que usar a função Date.

 O programa analizara a data digitada, e mostrará no vídeo como é a data

em comparação com a data de hoje.

111
 Comandos Condicionais e de Laço

9.2 COMANDOS DE LAÇO

Estes comandos criam círculos viciosos, ou seja, criam um estrutura condicional que se repetem até
a que condição seja satisfeita.

DO WHILE <<Condição>> LOOP ( Faça enquanto )

Executa todos os comandos que existem entre DO WHILE e o LOOP. Quando a execução do
programa encontra o comando LOOP, o DO WHILE é reavaliado e a rotina continua até que a
condição estabelecida esteja satisfeita.
Contador = 0
Do While Contador < 10
Faça enquanto Contador for
Contador = Contador + 1 menor que 10.
Print Contador
Loop
Print “Fim da execução”

Inicializamos uma variável de nome Contador com Zero, e pedimos para o programa: “Repita as
instruções abaixo enquanto Contador for menor que 10”. O comando LOOP faz com que o programa
volte para a linha do DO WHILE e teste a condição de novo. Somente quando a condição for
verdadeira, ou seja, quando Contador for maior ou igual a 10, que o programa executará a li nha
após o LOOP.
Perceba que dependendo do resultado da condição os comandos existentes dentro da estrutura
podem não serem executados, passando direto para a linha após o comando LOOP.

DO ... LOOP WHILE <<Condição>> ( Repita enquanto )

Neste caso o Comando Do abre a seqüência de repetição, mas não faz nenhum teste de condição.
Este teste é feito no final da estrutura com o comando LOOP WHILE, ou seja, obrigatoriamente as
instruções contidas após o comando DO serão executadas.
Contador = 0
Do Retorne para repetir os comandos enquanto
Contador = Contador + 1 o Contador for menor que 10.
Print Contador
Loop While contador < 10
Print “Fim da execução”

DO UNTIL <<Condição>> LOOP ( Faça até que)

Executa todos os comandos que existem entre DO UNTIL e o LOOP. Quando a execução do
programa encontra o comando LOOP, o DO UNTIL é reavaliado e a rotina continua até que a
condição estabelecida esteja satisfeita.
Contador = 0
Do Until contador >= 10
Faça até que Contador seja maior
Contador = Contador + 1 ou igual a 10.
Print Contador
Loop
Print “Fim da execução”

Inicializamos uma variável de nome Contador com Zero, e pedimos para o programa: “Repita as
instruções abaixo até que Contador seja maior ou igual que 10”. O comando LOOP faz com que o
programa volte para a linha do DO UNTIL e teste a condição de novo. Somente quando a condição

112
 Comandos Condicionais e de Laço

for verdadeira, ou seja, quando Contador for realmente maior ou igual a 10, que o programa
executará a linha após o LOOP.
Semelhante ao DO WHILE, dependendo do resultado da condição os comandos existentes
dentro da estrutura podem não serem executados, passando direto para a linha após o comando
LOOP.

DO ... LOOP UNTIL <<Condição>> ( Repita até que )

O Comando DO abre a seqüência de repetição, mas não faz nenhum teste de condição. Este teste é
feito no final da estrutura com o comando LOOP UNTIL, ou seja, obrigatoriamente as instruções
contidas após o comando DO serão executadas.
Contador = 0
Do Retorne para repetir os comandos até que o
Contador = Contador + 1 Contador seja maior ou igual a 10.
Print Contador
Loop Until Contador >= 10
Print “Fim da execução”

FOR <<Intervalo>> ... NEXT (Conte de número inicial até numero final)
O comando FOR faz uma contagem de um determinado intervalo de números. Sempre que essa
contagem encontra com o comando NEXT (próximo) a execução do programa retorna ao comando
FOR até que o número final seja alcançado. Exemplo:
Contador = 0 Conte de um até 10
For Contador = 1 to 10
Print “A variável Contador agora vale “ &Contador
Next
Print “Fim da execução”

Neste programa o Visual Basic inicializa a variável Contador em zero, e o comando FOR avisa
“vamos contar até 10, começando pelo 1”. As instruções contidas na linha abaixo são executadas, e
quando o comando NEXT é encontrado a execução volta para o FOR, e a variável Contador é
incrementada em mais um e assim por diante. Quando Contador for igual a 10 a estrutura
FOR/NEXT é desfeita.

STEP
Usamos o STEP em conjunto com o FOR para fazer com que a contagem seja incrementada.
Exemplo: Se queremos que o comando conte de 2 em 2 colocamos FOR Variável = 1 TO 10 STEP 2

EXIT <<Comando>>
 Exit Sub: Força a saída da Sub rotina. Quando a execução do programa encontra este
comando, o Visual Basic transfere o controle do programa para a linha seguinte a aquela que
chamou a rotina.
 Exit Function: Força a saída da função. Quando a execução do programa encontra este
comando, o Visual Basic transfere o controle do programa para a linha seguinte a aquela que
chamou a rotina.
 Exit Do: Força a saída de um LOOP, seja WHILE ou UNTIL, mesmo que a condição
estabelecida não seja verdadeira:
Contador = 0
Do While Contador < 10
Contador = Contador + 1

113
 Comandos Condicionais e de Laço

Print Contador
if Contador = 5 then
Exit Do
end if
Loop
Print “Fim da execução”
 Exit For: Força a saída de um FOR..NEXT, mesmo que o número final não tenha sido
alcançado.
Contador = 0
For Contador = 1 to 10
Print “A variável Contador agora vale “ &Contador
If Contador = 6
Exit For
end if
Next
Print “Fim da execução”

Expressões de outros formatos para o string para forçar a concatenação.

114
 Comandos Condicionais e de Laço

EXERCÍCIOS PROPOSTOS
1 - Cite duas diferenças entre um laço DO WHILE e um laço DO - LOOP WHILE?

2 - Qual intrução que verifica sua condição antes da execução das rotinas que fazem parte do laço?

3 -Se necessitassemos executar um vários comandos e funções repetidamente até que uma
determinada condição fosse verdadeira, qual loop usuariamos?

4 -Explique quando usamos um loop DO UNTIL e quando usamos um DO - LOOP UNTIL:

5 - De um exemplo de utilização do loop FOR..NEXT

115
 10 FUNÇÕES DE AUXILIO

 Data e Hora
 Conversão
 String
 Matemática
 Entrada de Dados
 Identificação
 Manipulação de Matriz
 Comandos Condicionais e de Laço

10.1 FUNÇÕES
Funções nada mais é que rotinas prontas para executar determinadas ações.
Existem no Visual Basic diversos tipos de funções que nos auxiliam na programação em todos os
aspectos. São funções que fazem cálculos, funções que exibem resultados, funções para todos os
gostos. Vamos começar a ver algumas dessas funções e com isto descobriremos o poder que elas
exercem dentro da linguagem e sua utilidade.
Existem funções que precisam de um argumento para executar uma tarefa, outras somente retorna
algum valor sem necessidade do argumento, como visto nos exemplos abaixo:

10.1.1 Funções matemáticas

ABS: Retorna sempre um valor positivo (absoluto).

VariávelNumérica = Abs(Expressão numérica)
Print Abs(-45)
Valor Impresso: 45

ATN: Retorna o arco-tangente de um número.

VariávelNumérica = Atn(Expressão numérica)

COS: Calcula o cosseno de um ângulo

VariávelNumérica = Cos(<expressãoNumérica>)

FIX: Retorna a parte inteira de um número, ignorando as casas decimais, se houver. Não faz
arredondamento
VariávelNumérica = Fix(<expressãoNumérica>)
Print Fix(145.87)
Valor Impresso: 145
Print Fix(-145.87)
Valor Impresso: -145

HEX: Retorna a representação hexadecimal de um número decimal.

VariávelNumérica = Hex(<expressãoNumérica>)

INT: Retorna a parte inteira de um número, ignorando as casas decimais, se houver. Não faz
arredondamento. Se o argumento for um número negativo será incrementado em um.
VariávelNumérica = INT(<expressãoNumérica>)
Print Int(145.87)
Valor Impresso: 145
Print Int(-145.87)
Valor Impresso: -146

LOG: Calcula o logaritmo natural de um número

VariávelNumérica = LOG(<expressãoNumérica>)

RND: Retorna um número randômico, ou seja, escolhe um número aleatoriamente.

VariávelNumérica = Rnd[(<expressãoNumérica>)]

117
 Comandos Condicionais e de Laço

SGN: Retorna -1 se o argumento for um número negativo, e 1 se for um número positivo.

VariávelNumérica = Sgn(<expressãoNumérica>)

SIN: Calcula o seno de um ângulo.

VariávelNumérica = Sin(<expressãoNumérica>)

SQR: Calcula a raiz quadrada de um número.

VariávelNumérica = Sqr(<expressãoNumérica>)

TAN: Calcula a tangente de um ângulo.

VariávelNumérica = Tan(<expressãoNumérica>)

 Crie um novo formulário da seguinte forma:

 Para todos os labels deixe o Caption vazio e habilite o AutoSize.

 Faça a seguinte codificação para o botão:

118
 Comandos Condicionais e de Laço

10.1.2 Funções de Conversão

CBOOL: Converte uma expressão para um valor lógico (True ou false). Se o argumento for um zero,
retornará False, caso contrário será True.
VariávelLógica = CBool(<expressão>)
Print Cbool(43)
Valor Impresso: True
Print Cbool(0)
Valor Impresso: False
Print Cbool(4 = 6)
Valor Impresso: False. O resultado da comparação não é verdadeira.

CBYTE: Converte uma expressão para um tipo Byte.

VariávelByte = cbyte(<expressão>)
Print Cbyte(155.56)
Valor Impresso: 156
Print Cbyte(355.56)
Erro. Overflow. Expressões do tipo byte não podem ser maior que 255.

CCUR: Converte uma expressão numérica para um tipo-moeda.

VariávelCurrency = Ccur(<expressão numérica>)
Print Ccur(120)
Valor Impresso: 120

CDATE: Converte uma expressão para um tipo Data. Entretanto, esta conversão se concretizará
desde que a expressão usada como argumento seja mesmo no formato de uma data, ou seja,
dia/mês/Ano. Se pedirmos para fazer conversão da palavra “teste” para data será retornado um erro.
VariávelData = Cdate(<expressão>)
Print Cdate(“12/04/95”)
Valor Impresso: 12/04/95
Print Cdate(“120495”)
Erro. O conteúdo informado como argumento não esta formatado como data.
Print Cdate(“30/02/95”)
Erro. O argumento não é uma data real
É importante salientar que essa conversão é necessário principalmente quando o usuário
digita uma data e esta data vai ser objeto de cálculo. Então a conversão é necessária.

CDBL: Converte uma expressão numérica em um número de ponto flutuante de precisão dupla.
VariávelNumérica = Cdbl(<expressão numérica>)

CINT: converte uma expressão numérica em um número inteiro. Faz arredondamento.

VariávelNumérica = CInt(<expressão numérica>)
Print CInt(45.40)
Valor Impresso: 45
Print CInt(45.60)
Valor Impresso: 46

119
 Comandos Condicionais e de Laço

CLNG: Converte uma expressão numérica em um número inteiro longo.

VariávelNumérica = CLng(<expressão>)
VariávelNumérica = CLng(<expressão numérica>)
Print Clng(45.40)
Valor Impresso: 45
Print Clng(45.60)
Valor Impresso: 46
A diferença entre a função CINT e CLNG é a abrangência da própria variável.

CSNG: Converte uma expressão numérica em um número de ponto flutuante de precisão simples.
VariávelNumérica = CSng(<expressão >)

CSTR: Converte uma expressão numérica, data ou outra em uma string (texto).
VariávelString = CStr(<expressão>)
Print Cstr(452)
Valor Impresso: 452

CVAR: Converte uma expressão de qualquer tipo para o tipo variante.

VariávelVariant = Cvar(<expressão>)

STR: Converte um valor numérico para o tipo String (texto). Valido somente para argumentos
numéricos.
VariávelString = Str(<expressãoNumérica>)
Print Str(452)
Valor Impresso: 452

STRCONV: Retorna uma string convertida de acordo com o tipo de conversão especificado.
VariávelString = Strconv(<ExpressãoString>, <TipoDeConversão>)
Tipos de conversão que podemos usar:
vbUpperCase Converte toda a expressão em letras maiúsculas.
vbLowerCase Converte toda a expressão em letras minúsculas.
vbProperCase Converte somente a primeira letra em maiúscula e o restante em minúsculo.
Print StrConv(“Lionardo”, vbUpperCase)
Valor Impresso: LIONARDO
Print StrConv(“LIONARDO”, vbProperCase)
Valor Impresso: Lionardo

ASC: Retorna o código ANSI do primeiro caractere de uma String.

VariávelNumérica = Asc(<string>)
Print Asc("B")
Valor Impresso: 66 (Numero correspondente na tabela ASCII da letra B.)

CHR: Retorna o caractere correspondente ao código na tabela ASCII

VariávelString = Chr(<códigoDoCaractere>)
Print Chr(66)
Valor Impresso: B

120
 Comandos Condicionais e de Laço

VAL: Converte uma String com caracteres numéricos em uma variável númerica.
VariávelNumérica = Val(<stringNumérica>)
Print Var(“003”)
Valor Impresso: 3
Print Var(“123”)
Valor Impresso: 123

10.1.3 Funções de Data e Hora

DATE: Retorna a data corrente do sistema operacional.

VariávelData = Date

DATEADD: Incrementa uma data nos dias, meses ou anos especificados.

VariávelVariant = DateAdd(<Intervalo>, <Incremento>,<ExpressãoData>)
Retorna uma Variant que contém uma data à qual foi adicionado um determinado intervalo
de tempo.

<Intervalo> Expressão de seqüência de caracteres que é o intervalo de tempo que você quer
adicionar. Tipos de caracteres usados:
yyyy Ano
q Trimestre
m Mês
y Dia do ano
d Dia
w Dia da semana
ww Semana
h Hora
n Minuto
s Segundo

<Incremento> Expressão numérica que é o número de intervalos que você quer adicionar.
Pode ser positivo (para obter datas no futuro) ou negativo (para obter datas no passado).
<ExpressãoData> Data que está sendo adicionada.

Print DateAdd("d",2,"31/07/96")
Valor Impresso: 02/08/96

A função DateAdd pode ser usada para adicionar a uma data ou subtrair dela um intervalo
de tempo especificado. Por exemplo, você poderia usar DateAdd para calcular uma data 30 dias a
partir de hoje ou uma hora que é 45 minutos a partir de agora.
Se quiser adicionar dias a data, você pode usar Dia do Ano ("y"), Dia ("d") ou Dia da
Semana ("w").

121
 Comandos Condicionais e de Laço

A função DateAdd não retornará uma data inválida. O exemplo abaixo adiciona um mês a 31
de janeiro:

DateAdd("m", 1, "31-Jan-95")

Neste caso, DateAdd retorna 28-Fev-95 e não 31-Fev-95. Se date for 31-Jan-96, ele
retornará 29-Fev-96 pois 1996 é um ano bissexto.

DATEDIFF: Calcula o intervalo entre duas datas.

VariávelData=DateDiff(<intervalo>, <expressãoData1>, <expressãoData2>)

<Intervalo> Expressão de seqüência de caracteres, que é o intervalo de tempo que você usa
para calcular a diferença entre uma data e outra.
O argumento intervalo tem estas configurações:
yyyy Ano
q Trimestre
m Mês
y Dia do ano
d Dia
w Dia da semana
ww Semana
h Hora
n Minuto
s Segundo

<ExpressãoData1 e 2> Duas datas que você quer usar no cálculo.

Dim data1 As Date
Dim data2 As Date
Data1 = #31/7/96#
Data2 = #8/8/96#
Print DateDiff("d", data1, data2)
Valor Impresso: 8

A função DateDiff pode ser usada para determinar quantos intervalos de tempo especificados
existem entre duas datas. Por exemplo, você poderia usar DateDiff para calcular o número de dias
entre duas datas ou o número de semanas entre o dia de hoje e o final do ano.
Se quiser saber o número de dias entre date1 e date2, você pode usar tanto o Dia do Ano ("y") como
o Dia ("d").
Quando interval é Dia da Semana ("w"), DateDiff retorna o número de semanas entre as duas datas.
Se date1 cair numa segunda-feira, DateDiff contará o número de segundas-feiras até a date2. Ele
conta date2, mas não date1. Se, contudo, interval for Semana ("ww"), a função DateDiff retornará o
número de semanas do calendário entre as duas datas. Ele conta o número de domingos entre
date1 e date2. DateDiff contará date2 se ela cair num domingo; mas não contará a date1, mesmo
que caia num domingo.
Se date1 se referir a um ponto no tempo posterior à date2, a função DateDiff retornará um número
negativo.
Se data for um literal de data (uma data entre sinais numéricos (#)), o ano, se especificado, se
tornará uma parte permanente dessa data. Contudo, se data estiver entre aspas ("") e você omitir o

122
 Comandos Condicionais e de Laço

ano, o ano atual será inserido no código sempre que a expressão data for avaliada. Isto torna
possível escrever um código que pode ser usado em anos diferentes.

DATEPART: extrai de uma determinada data uma parte dela relativo a dia, mês, semana, quinzena,
etc.
ParteDaData = DatePart(<intervalo>, <expressãoData>)
Intervalo pode ser:
yyyy Ano
q Trimestre
m Mês
y Dia do ano
d Dia
w Dia da semana
ww Semana
h Hora
n Minuto
s Segundo

Dim Data As Date

Data = #8/2/96#
Print DatePart("m", data)
Valor Impresso: 8

DATESERIAL: Retorna uma data para um dia, mês e ano especificados, ou seja, informe cada item
separado que a função monta a data.
VariavelData = DateSerial(<ano>, <mês>, <dia>)
Print DateSerial("96","08","02")
Valor Impresso: 02/08/96

DATEVALUE: Retorna a data especificada numa string, ou seja, converte uma variável String para o
tipo Data.
VariávelData = DateValue(<VariávelStringDeData>)
Print DateValue("02/08/96")
Valor Impresso: 02/08/96

DAY: Retorna o dia do mês referente a uma data.

VariávelNumérica = Day(<expressãoData>)
Print Day("02/08/96")
Valor Impresso: 2

HOUR: Retorna a hora de uma expressão de data e hora.

VariávelNumérica = Hour(<ExpressãoHora>)
Print Hour("[Link]")
Valor Impresso: 12
Print Hour(now)
Valor Impresso: 15

MINUTE: Retorna o minuto de uma expressão de data e hora.

VariávelNumérica = Minute(<ExpressãoHora>)

123
 Comandos Condicionais e de Laço

MONTH: Retorna o mês de uma data.

VariávelNumérica = Month(<ExpressãoData>)

NOW: Retorna a data e a hora correntes do sistema operacional.

VariávelData = Now
Print Now
Valor Impresso: 02/08/96 [Link]

SECOND: Retorna os segundos de uma expressão de data e hora.

VariávelNumérica = Second(<ExpressãoHora>)

TIME: Retorna a hora corrente do sistema operacional.

VariávelData = Time
Print Time
Valor Impresso: [Link]

TIMER: Calcula a quantidade de segundos passados desde a meia noite.

VariávelNumérica = Timer

TIMEVALUE: Retorna a hora especificada numa string, ou seja, converte uma String cujo conteúdo
esta no formato de hora para uma variável tipo Data e Hora.
VariávelData = TimeValue(<ExpressãoStringDeHora>)

WEEKDAY: Retorna o dia da semana de uma data, ou seja, seu numero correspondente: 1 para
Domingo até 7 para Sábado.
VariávelNumérica = WeekDay(<ExpressãoData>)

YEAR: Retorna o ano de uma data.

VariávelNumérica = Year(<ExpressãoData>)

 Para criar um programa que faça calculos de data é bastante simples se

usarmos as funções acima de forma correta.
 Abra um novo projeto e desenvolva um formulário como no modelo:

124
 Comandos Condicionais e de Laço

No botão "Calcule" crie a seguinte codificação:

 Na caixa de texto txtDataCompra é incluido dados no formato Texto, mesmo

que seja uma data. Para o visual Basic entender que a expressão ali
existente deve ser tratada como uma data e não como um texto, usamos a
função de conversão Cdate.
 Vamos agora fazer a seguinte verificação: se o dia do pagamento cair num
Domingo, fazer com que a data de pagamento passe para a Segunda-feira.

125
 Comandos Condicionais e de Laço

10.1.4 Funções de String

INSTR: Retorna a posição da primeira ocorrência de uma seqüência de caracteres dentro de outra
Variável = InStr ({<posiçãoInicial>,] <string>,
<SubStringAPesquisar>[, <MétodoDeComparação])

Posição Inicial: Expressão numérica que define a posição inicial de cada pesquisa. Se omitido, a
pesquisa começa na posição do primeiro caractere.. Este argumento é necessário se o Método de
Comparação for especificado.
String : Expressão de seqüência de caracteres que está sendo pesquisada.
SubStringAPesquisar : Expressão de seqüência de caracteres procurada.
MétodoDeComparação : Especifica o tipo comparação de seqüências de caracteres. Este
argumento pode ser omitido, pode ser 0 ou 1. Especifique 0 (padrão) para realizar uma comparação
binária. Especifique 1 para realizar uma comparação textual que desconsidere
maiúsculas/minúsculas. Se este argumento for omitido, a configuração de Option Compare
determinará o tipo de comparação.

Print InStr(8,"Lionardo Fonseca", "FO",1)

Valor Impresso: 10
A partir do 8º caractere procure na expressão “Lionardo Fonseca” em que posição começa a
expressão “FO”, e ignore diferenciação maiúsculas/minúsculas.
Print InStr(8,"Lionardo Fonseca", "FO",0)
Valor Impresso: 0 (não encontrado).

LCASE: Converte uma expressão string para minúsculas.

VariávelString = Lcase (<stringAConverter>)
Print Lcase(“Editora Terra”)
Valor Impresso: editora terra

LEFT: Retorna uma quantidade de caracteres que se encontra da esquerda para a direita.
VariávelString = Left(<string>, <QuantidadeDeCaracteres>)
Print Left("Lionardo",4)
Valor Impresso: Lion

LEN: Retorna o número de caracteres de uma expressão String ou número de bytes requerido para
armazenar uma variável.
VariávelNumérica = Len (ExpressãoCaractere>)
Print Len(“Lionardo”)
Valor Impresso: 8

LTRIM: Remove os espaços em branco à esquerda de uma String.

VariávelString = Ltrim (<ExpressãoString>)

126
 Comandos Condicionais e de Laço

MID: Retorna uma Substring de uma String, ou seja, retorna um número especificado de caracteres
de uma seqüência de caracteres.
SubString=Mid(<string>,<posiçãoInicial>[, <quantidadeDeCaracteres>])

String : Expressão de seqüência de caracteres a partir da qual os caracteres são retornados.

PosiçãoInicial: Posição de caractere em String na qual a parte a ser considerada inicia. Se
Posição Inicial for maior do que o número de caracteres em String, Mid retorna uma seqüência de
caracteres de comprimento zero.
QuantidadeDeCaracteres: Número de caracteres a serem retornados. Se omitidos ou se o
número de caracteres do texto for inferior ao QuantidadeDeCaracteres (inclusive o caractere em
PosiçãoIncial), serão retornados todos os caracteres desde a PosiçãoInicial até o final da seqüência
de caracteres.

Print Mid("Lionardo Fonseca Paiva",10,8)

Valor Impresso: Fonseca
Na expressão String “Lionardo Fonseca Paiva”, a partir do 10º caractere conte 8 para frente
e retorne a String que esta neste intervalo.

RIGHT: Retorna uma substring com os caracteres que se encontram da direita para a esquerda
dentro de uma expressão String.
VariávelNumérica=Right([<ExpressãoString>, <QuantidadeDeCaracteres>)
Print Right(“Lionardo Fonseca”,7)
Valor Impresso: Fonseca

RTRIM: Remove os espaços à direita em uma String.

VariávelString = Rtrim(<string>)

SPACE: Retorna uma String com uma determinada quantidade de espaços vázios.
VariávelString = Space(<quantidadeDeCaracteres>)

STR: Retorna a representação de um número como uma String.

VariávelString = Str (<ExpressãoNumérica>)

STRCOMP: Compara duas expressões Strings.

VariávelNumérica=StrComp(<string>,<string>[,Comparação>])

Comparação: Especifica o tipo de comparação de seqüências de caracteres. Este

argumento pode ser omitido, pode ser 0 ou 1. Especifique 0 (padrão) para fazer uma comparação
binária. Especifique 1 para fazer uma comparação de texto.
Valores de retorno da função: -1 quando a primeira String for menor que a Segunda, 0
quando forem iguais e 1 quando a primeira String for maior que a segunda.

STRING: Repete um determinado caractere a quantidade de vezes estabelecido na função.

String = String (<QuantidadeDeCaracteres>, <caracteres>)
Print String(30,"-")
Valor Impresso: ------------------------------

TRIM: Remove os espaços à esquerda e à direita de uma string.

VariávelString = Trim(<String>)

127
 Comandos Condicionais e de Laço

UCASE: Converte uma expressão String para maiúsculas.

VariávelString = Ucase (<string>)
Print Ucase(“Editora Terra”)
Valor Impresso: EDITORA TERRA

10.1.5 Funções de Manipulação de Matrizes

ARRAY: Retorna um Array do tipo Variant.

ArrayVariant = Array (<NúmeroDeElemento>)

NúmeroDeElemento: consiste de uma lista delimitada por vírgula de um número arbitrário de valores
que são atribuídos aos elementos da matriz contidos em Variant. Se nenhum argumento for
especificado, será criada uma matriz de comprimento zero.
Embora uma Variant que contém uma matriz seja conceitualmente diferente de uma matriz cujos
elementos são do tipo Variant, o modo como são acessados os elementos da matriz é o mesmo. A
notação usada para se referir a um elemento de uma matriz consiste no nome da variável seguido
por parênteses que contêm um número do índice que indica o elemento desejado.
O limite inferior de uma matriz criada com a função Array é determinado pelo limite inferior
especificado com a instrução Option Base.
Dim VariavelMatriz As Variant
VariavelMatriz = Array("Dom", "Seg", "Ter", "Qua", "Qui", "Sex", "Sáb")
Print VariavelMatriz(2)
Print VariavelMatriz(4)
Valor Impresso: Ter
Valor Impresso: Qui

LBOUND: Retorna o menor índice de uma matriz.

VariávelNumérica = Lbound(<NomeDaMatriz>)
Dim VariavelMatriz As Variant
VariavelMatriz = Array("Dom", "Seg", "Ter", "Qua", "Qui", "Sex", "Sáb")
Print LBound(VariavelMatriz)
Valor Impresso: 0

UBOUND: Retorna o maior índice de uma matriz.

VariávelMatriz = Ubound(<NomeDaMatriz>])

Dim VariavelMatriz As Variant

VariavelMatriz = Array("Dom", "Seg", "Ter", "Qua", "Qui", "Sex", "Sáb")
Print UBound(VariavelMatriz)
Valor Impresso: 6

128
 Comandos Condicionais e de Laço

10.1.6 Funções Lógicas

IIF: Analisa uma expressão lógica, e retorna valores para quando for falso ou verdadeiro.
ExpressãoDeRetorno = IIF (<ExpressãoLógica>,
<ExpressãoParaVerdadeiro>, <ExpressãoParaFalso>)

Print iif(10 > 2,”10 é maior que 2”, “2 é maior que 10”)
Valor Impresso: 10 é maior que 2

Print iif(10= 5,”Igual”, “Diferente”)

Valor Impresso: Diferente

SWITCH: Avalia uma lista de expressões e retorna o valor associado àquela primeiro avaliada como
verdadeira.

Switch(Expr-1, Valor-1[, Expr-2, Valor-2 , Expr-etc, Valor-etc])

Expr : Expressão variant que você quer avaliar.

Valor : Valor ou expressão que é retornado se a expressão correspondente for True.

A lista de argumentos da função Switch consiste de pares de expressões e valores. As

expressões são avaliadas à medida que aparecem na lista da esquerda para a direita e é retornado
o valor associado à primeira expressão para avaliar True. Se as partes não forem corretamente
pareadas, ocorre um erro em tempo de execução. Por exemplo, se expr-1 for True, Switch retornará
valor-1. Se expr-1 for False, mas expr-2 for True, Switch retornará valor-2, e assim por diante.
Switch retornará um valor Null se nenhuma das expressões for True.
Switch avalia todas as expressões, mesmo que retorne apenas uma delas. Por este motivo, você
deve ficar atento para efeitos colaterais indesejáveis. Por exemplo, se a avaliação de qualquer
expressão resultar num erro de divisão por zero, ocorrerá um erro.

A=2
B=2
C=2
Print Switch(A<2,"Letra A < 2", B=2,"Letra B = 2", C<3, "Letra C < 3")
Valor Impresso: Letra B = 2

A segunda expressão na lista foi impresso, pois foi a primeira a ter uma condição verdadeira. Note
que o ultimo valor (C<3) também é verdadeiro, mas como a função Switch encerra sua execução
quando encontra a primeira ocorrência verdadeira, ele foi ignorado.
A=2
B=3
C=2
Print Switch(A<2,"Letra A < 2", B=2,"Letra B = 2", C<3, "Letra C < 3")
Valor Impresso: Letra C < 3

129
 Comandos Condicionais e de Laço

10.1.7 Funções de Disco

CURDIR: Retorna o diretório corrente.

VariávelString = CurDir[(<drive>)]
Print CurDir("C:")
Valor Impresso: C:\WINDOWS\Desktop\

DIR: Retorna o nome de um arquivo, diretório ou pasta correspondente a um padrão especificado ou

atributo de arquivo, ou a etiqueta de volume de uma unidade de disco.

VariávelString = Dir[(Nomedocaminho[, Atributos])]

Nomedocaminho: Expressão de seqüência de caracteres que especifica um nome de arquivo e pode

incluir diretório ou pasta e unidade de disco. Null é retornado se nomedocaminho não for
encontrado.
Atributos: Constante ou expressão numérica, cuja soma especifica atributos de arquivo. Se omitido,
todos os arquivos normais que tiverem Nomedocaminho correspondente são retornados.
As configurações do argumento Atributos são:
vbNormal 0 Normal.
vbHidden 2 Oculto.
vbSystem 4 Arquivo de sistema,.
vbVolume 8 Etiqueta de volume; se especificada, todos os outros atributos são
ignorados.
vbDirectory 16 Diretório ou pasta.

FILEDATETIME: Retorna a data e a hora da última atualização do arquivo.

VariávelData = FileDateTime(<NomeArquivo>)

Print FileDataTime("C:\WINDOWS\[Link]")
Valor Impresso: 03/08/96 [Link]

FILELEN: Retorna o tamanho do arquivo em bytes.

VariávelNumérica = FileLen(<NomeArquivo>)

Print FileLen("C:\WINDOWS\[Link]")
Valor Impresso: 3481

GETATTR: Verifica os atributos de um arquivo ou diretório.

VariávelNumérica = GetAttr(<NomeArquivo>)
Veja os valores de retorno desta função:
0 vbNormal Normal.
1 vbReadOnly Somente Leitura.
2 vbHidden Oculto.
4 vbSystem Arquivo de sistema
16 vbDirectory Diretório ou pasta.
32 vbArchive O arquivo foi modificado desde o último backup.

130
 Comandos Condicionais e de Laço

Print GetAttr("C:\WINDOWS\[Link]")
Valor Impresso: 32

10.1.8 Funções de Teste

ISARRAY: Testa se uma variável é uma matriz

VariávelBoolean = IsArray(<variável>)

ISDATE: Testa se o argumento pode ser convertido para uma data. Esta data deve estar dentro dos
padrões de data.
VariávelBoolean = IsDate(<expressão>)

ISEMPTY: Verifica se uma variável foi inicializada.

IsEmpty retornará True se a variável estiver iniciada; caso contrário retornará False. Se a
expressão contiver mais de uma variável, o retorno será sempre False.
VariávelBoolean = IsEmpty(<expressão>)

ISERROR: Testa se uma expressão é um valor de erro.

VariávelBoolean = IsError(<expressão>)

ISMISSING: Testa se um argumento opcional foi passado como parâmetro para uma procedure ou
função.
VariávelBoolean = IsMissing(<NomedoArgumento>)

ISNULL: Testa se uma variável possui valor inválido.

VariávelBoolean = IsNull(<Expressão>)

ISNUMERIC: Testa se o argumento pode ser convertido para um número.

VariávelBoolean = IsNumeric(<Expressão>)

Print IsNumeric(“AB”)
Valor Impresso: False
Print IsNumeric(“03”)
Valor Impresso: True

ISOBJECT: Testa se uma expressão referencia a um objeto OLE válido.

VariávelBoolean = IsObject(<Expressão>)

VARTYPE: Retorna o tipo de variável especificada como argumento:

VariávelNumérica = VarType(<Variável>)
Retorna os valores abaixo:
0 Empty (Não iniciada).
1 Null Nenhum dado válido.
2 Inteiro (Integer).
3 Inteiro por extenso (Long)
4 Número de ponto flutuante de precisão simples (Single).
5 Número de ponto flutuante de precisão dupla (Double).
6 Moeda (Currency).

131
 Comandos Condicionais e de Laço

7 Data (Date).
8 Seqüência de caracteres textos (String).
9 objeto de Automação OLE (Object).
10 Erro (Error).
11 Booleano Boolean).
12 Variant (usada somente com matrizes de Variantes).
13 Um objeto que não seja de Automação OLE (DataObject).
17 Byte
8192 Matriz (Array).

TYPENAME: Retorna o nome descritivo do tipo de uma variável.

VariávelString = TypeName(<Variável>
Eis os nomes de retorno da função:
Byte Um byte.
Integer Um inteiro.
Long Um inteiro por extenso.
Single Um número de ponto flutuante de precisão simples.
Double Um número de ponto flutuante de precisão dupla.
Currency Um valor de moeda.
Date Uma data.
String Uma seqüência de caracteres.
Boolean Um valor Booleano.
Error Um valor de erro.
Empty Não iniciado.
Null Nenhum dado válido.
Object Um objeto que suporta Automação OLE.

10.1.9 Funções de Escolha

CHOOSE: Seleciona um valor de uma lista de argumentos.

Variável = Choose (<índice>, <escolha>[, <escolha>]...)

Índice : Expressão numérica ou campo que resulta num valor entre 1 e o número de opções
disponíveis.
Escolha : Expressão Variant que contém uma das possíveis opções.

Choose retorna um valor da lista de opções com base no valor de índice. Se índice for 1, Choose
retorna a primeira opção da lista; se índice for 2, retorna a segunda opção e assim por diante.
Choose pode ser usado para pesquisar um valor numa lista de possibilidades. Por exemplo, se
índice avalia para 3 e a opção-1 = "um", opção-2 = "dois" e opção-3 = "três", Choose retorna "três".
Esta capacidade é particularmente útil se índice representar o valor num grupo de opções.
Se índice não for um número inteiro, ele será arredondado para o número inteiro mais próximo antes
de ser avaliado.

Print Choose(2,"Apostilas","CD-ROM","Livros","Serviços Gráficos")

Valor Impresso: CD-ROM

132
 Comandos Condicionais e de Laço

INPUTBOX: Exibe um aviso numa caixa de diálogo, aguarda até que o usuário insira texto ou
escolha um botão e retorna o conteúdo da caixa de texto.

Variável=Inputbox(<expressão>,<barraDeTítulo>,<escolhaDefault>)

EmpressãoPrompt : Expressão de seqüência de caracteres exibida como a mensagem numa caixa

de diálogo. O tamanho máximo de prompt é de aproximadamente 1024 caracteres, dependendo da
largura dos caracteres usados.
BarraDeTítulo : Expressão de seqüência de caracteres exibida na barra de títulos da caixa de
diálogo. Se você omitir este argumento, o nome do aplicativo será incluído na barra de títulos.
EscolhaDefault : Expressão de seqüência de caracteres exibida na caixa de texto como a resposta
padrão se nenhuma outra entrada for fornecida. Se você omitir EscolhaDefault, a caixa de texto será
exibida vazia.
Se o usuário escolher "OK" ou pressionar ENTER, a função InputBox retorna o conteúdo da caixa de
texto, qualquer que seja ele. Se o usuário escolher "Cancelar", a função retorna uma seqüência de
caracteres de tamanho zero ("").
Observação : Se quiser especificar mais do que o primeiro argumento nomeado, você deverá usar
InputBox em uma expressão. Se quiser omitir alguns argumentos posicionais, você deverá incluir o
delimitador de vírgula correspondente.

Print InputBox("Digite Seu Nome","Cadastro de Cliente")

Valor Impresso: <Será o nome digitado na caixa de texto>

MSGBOX: Exibe uma caixa de diálogo para exibir informações e obter respostas simples através de
botões de comando.
VariávelNumérica = MsgBox (<ExpressãoPrompt>,<BotõesDisponíveis>, <BarraDeTítulo>)

ExpressãoPrompt : Expressão de seqüência de caracteres exibida como a mensagem numa caixa de

diálogo. O tamanho máximo de ExpressãoPrompt é de aproximadamente 1024 caracteres,
dependendo da largura dos caracteres usados. Se ExpressãoPrompt for composto por mais de uma
linha, você poderá separar as linhas usando um caractere de retorno de carro (Chr(13)), um
caractere de alimentação de linha (Chr(10)) ou uma combinação de caracteres de retorno de carro e
alimentação de linha (Chr(13) & Chr(10)) entre cada linha.

133
 Comandos Condicionais e de Laço

BotõesDisponível : Expressão numérica que é a soma de valores que especificam o número e tipo
de botões a serem exibidos, o estilo de ícone a ser usado, a identidade do botão padrão e a
modalidade da caixa de mensagem. Se omitido, o valor padrão será 0. Veja abaixo os tipos de
botões disponíveis:
Constante Valor Descrição
vbOKOnly 0 Exibe apenas o botão "OK".
VbOKCancel 1 Exibe os botões "OK" e "Cancelar".
VbAbortRetryIgnore 2 Exibe os botões "Anular", "Repetir" e "Ignorar".
VbYesNoCancel 3 Exibe os botões "Sim", "Não" e "Cancelar".
VbYesNo 4 Exibe os botões "Sim" e "Não".
VbRetryCancel 5 Exibe os botões "Repetir" e "Cancelar".
VbCritical 16 Exibe o ícone "Mensagem crítica".
VbQuestion 32 Exibe o ícone "Consulta de advertência".
VbExclamation 48 Exibe o ícone "Mensagem de advertência".
VbInformation 64 Exibe o ícone "Mensagem de informação".
VbDefaultButton1 0 O botão "Primeiro" é o padrão.
VbDefaultButton2 256 O botão "Segundo" é o padrão.
VbDefaultButton3 512 O botão "Terceiro" é o padrão.
VbApplicationModal 0 Janela restrita do aplicativo; o usuário deve
responder à caixa de mensagem antes de continuar
seu trabalho no aplicativo atual.
VbSystemModal 4096 Janela restrita do sistema; todos os aplicativos são
suspensos até que o usuário responda à caixa de
mensagem.

O primeiro grupo de valores (05) descreve o número e tipo de botões exibidos na caixa de diálogo; o
segundo grupo (16, 32, 48, 64) descreve o estilo de ícone; o terceiro grupo (0, 256, 512) determina
qual botão é o padrão; e o quarto grupo (0, 4096) determina modalidade da caixa de mensagem.
Quando adicionar números para criar um valor final para o argumento buttons, use somente um
número de cada grupo.
Observação: Estas constantes são especificadas pelo Visual Basic para aplicativos. Assim, os
nomes podem ser usados em qualquer lugar do código em lugar dos valores reais.
BarraDeTítulo: Expressão de seqüência exibida na barra de títulos da caixa de diálogo. Se você
omitir BarraDeTítulo, o nome do aplicativo será incluído na barra de títulos.
Estes são os valores que esta função retorna, para informar qual foi a ação do usuário:
Constante Valor de Retorno Botão escolhido
vbOK 1 "OK"
vbCancel 2 "Cancelar"
vbAbort 3 "Anular"
vbRetry 4 "Repetir"
vbIgnore 5 "Ignorar"
vbYes 6 "Sim"
vbNo 7 "Não"

Se a caixa de diálogo exibir um botão "Cancelar", pressionar a tecla ESC terá o mesmo efeito que
escolher "Cancelar".

134
 Comandos Condicionais e de Laço

Se quiser especificar mais do que o primeiro argumento nomeado, você deverá usar MsgBox em
uma expressão. Se quiser omitir alguns argumentos de posição, você deverá incluir o delimitador de
vírgula correspondente.

MsgBox ("Deseja Continuar?",VbYesNoCancel, "Ativar Bomba Atômica")

Print MsgBox ("Deseja Continuar?",VbYesNoCancel+VbExclamation, "Ativar Bomba

Atômica")

 Crie um formulário conforme modelo abaixo:

 Vamos fazer uma codificação para o botão 1 e o botão 2 como esta abaixo.
Perceba que usamos o MSGBOX não só para enviar uma mensagem para o
usuário, como para executar uma determinada ação dependendo do que o
usuário escolher.

135
 Comandos Condicionais e de Laço

10.2 A FUNÇÃO FORMAT

Formata uma expressão qualquer de acordo com a máscara estabelecida na função.
ExpressãoFormatada = Format(<expressão>[, <Mascara de formatação>)

Formatação de Expressões Numéricas

Para formatar qualquer expressão numérica usamos “#” para representar um digito de 0 a 9, “,” para
representar os milhares e “.” para representar as casas decimais. Como o padrão brasileiro para
milhares e casas decimais é exatamente o contrário, o Visual Basic automaticamente irá colocar no
nosso padrão, pois irá verificar qual o formato usado para o pais de acordo com o que foi
estabelecido no painel de controle.

136
 Comandos Condicionais e de Laço

Print Format(12345.3,”##,###.##”)
Valor Impresso: 12.345,3
Usamos o simbolo “#” para representar a disposição dos números. Não há necessidade de colocar a
mesma quantidade de números e “#”. Se tivessesmos colocado Print
Format(12345.3,”#,###,###.##”), ainda assim seria impresso somente “12.345,3”. Entretanto, se
colocarmos:
Print Format(12345.3, "###.##")
Valor Impresso: 12345,3
Perceba que não podemos colocar uma formatação menor que os números que serão impressos,
pois senão a formatação não irá alcançar toda a extensão dos números.
O símbolo “#” é substituído por números quando existir número para ser substituído. Note que o
número decimal é “.3” e apesar de termos usado uma formatação para casas decimais com dois
símbolos “##”, não apareceu as duas casas decimais. Se quisermos forçar o aparecimento de zeros
quando não tiver número para ser impresso, usados “0” no lugar de “#”. Veja:
Print Format(12345.3,”##,###.00”)
Valor Impresso: 12.345,30
Print Format(12345,”##,###.00”)
Valor Impresso: 12.345,00
Isto vale também para formatação de números sem casas decimais:
Print Format(45,”0000”)
Valor Impresso: 0045
Se quisermos uma formatação diferente para números negativos, basta colocar essa formatação
após o ponto-e-virgula.
Print Format(12345,”##,###.00; (-)##,###.00”)
Valor Impresso: 12.345,00
Print Format(-12345,”##,###.00; (-)##,###.00”)
Valor Impresso: (-)12.345,00

Veja abaixo os caracteres que podem ser usados na formatação de valores numéricos:

0 Exibe um dígito ou um zero. Se a expressão tiver um dígito na posição em que o 0 aparece na

seqüência de caracteres de formato, ele será exibido; caso contrário, é exibido um zero nessa
posição.
Se o número possui um número de dígitos inferior ao de zeros (em qualquer lado da casa decimal)
na expressão de formato, exibe zeros à esquerda ou à direita. Se o número tiver mais dígitos à
direita do separador decimal do que zeros à direita do separador decimal na expressão de formato,
arredonda o número para tantas casas decimais quantos forem os zeros existentes. Se o número
tiver mais dígitos à esquerda do separador decimal do que zeros à esquerda do separador decimal
na expressão de formato, exibe os dígitos a mais sem modificações.

# Exibe um dígito ou nada. Se a expressão tiver um dígito na posição em que o símbolo # aparece
na seqüência de caracteres de formato, ele será exibido; caso contrário, nada será exibido nessa
posição.
Este símbolo funciona como o espaço reservado para o dígito 0, mas os zeros à esquerda e à direita
não são exibidos se o número tiver a mesma quantidade ou menos dígitos do que existem #
caracteres em qualquer um dos lados do separador decimal na expressão de formato.

137
 Comandos Condicionais e de Laço

. Espaço reservado para decimal

Para algumas localidades, é usada uma vírgula como separador decimal. O espaço reservado para
decimal determina quantos dígitos são exibidos à esquerda e à direita do separador decimal. Se a
expressão de formato contiver apenas sinais de números à esquerda deste símbolo, os números
inferiores a 1 começam com um separador decimal. Se você quiser que um zero à esquerda seja
sempre exibido com números fracionários, use 0 como o primeiro espaço reservado para dígito à
esquerda do separador decimal. O caractere real utilizado como espaço reservado para decimal na
saída formatada depende do Formato Numérico reconhecido pelo sistema.

% Espaço reservado para porcentagem

A expressão é multiplicada por 100. O caractere de porcentagem (%) é inserido na posição onde ele
aparece na seqüência de caracteres de formato.

, Separador de milhar
Para algumas localidades, é utilizado um ponto como o separador de milhar. O separador de milhar
separa milhar de centena dentro de um número que tenha quatro ou mais casas à esquerda do
separador decimal. O uso padrão do separador de milhar é especificado no formato que contém um
separador de milhar delimitado por espaços reservados de dígito (0 ou #). Dois separadores de
milhar adjacentes ou um separador de milhar imediatamente à esquerda do separador decimal
(sendo ou não especificado um decimal) significa "aplique uma escala ao número dividindo-o por
1000 e arredonde-o conforme necessário." Use essa técnica para aplicar escalas a números
extensos. Por exemplo, a seqüência de caracteres de formato "##0,," pode ser usada para
representar 100 milhões como 100. Números inferiores a 1 milhão são exibidos como 0. Dois
separadores de milhar adjacentes em qualquer posição que não seja a imediatamente à esquerda do
separador decimal serão considerados apenas como especificação do uso de um separador de
milhar. O caractere real utilizado como o separador de milhar na saída formatada depende do
Formato Numérico reconhecido pelo sistema.

E- E+ e- e+ Formato científico
Se a expressão de formato contiver pelo menos um espaço reservado para dígito (0 ou #) à direita
de E-, E+, e- ou e+, o número é exibido em formato científico, sendo E ou e inserido entre o número
e seu expoente. O número de espaços reservados para dígito à direita determina o número de
dígitos do expoente. Use E- ou e- para incluir um sinal de subtração (-) ao lado de expoentes
negativos. Use E+ ou e+ para incluir um sinal de subtração ao lado de expoentes negativos e um
sinal de adição (+) ao lado de expoentes positivos.

- + $ ( ) space Exibe um caractere literal

Para exibir uma caractere diferente dos listados, preceda-o com uma barra invertida (\) ou coloque-o
entre aspas (" ").

\ Exibe o caractere seguinte da seqüência de caracteres de formato

Muitos caracteres da expressão de formato têm um significado especial e não podem ser exibidos
como caracteres literais a menos que sejam precedidos por uma barra invertida. A barra
propriamente não é exibida. Sua utilização equivale a colocar o caractere seguinte entre aspas. Para
exibir uma barra invertida, use duas barras invertidas (\\).
Exemplos de caracteres que não podem ser exibidos como caracteres literais são caracteres de
formatação de data e hora (a, c, d, h, m, n, p, q, s, t, w, y e /:), caracteres de formatação numérica (#,
0, %, E, e, vírgula e ponto) e os caracteres de formatação de seqüências de caracteres (@, &, <, >, e
!).

138
 Comandos Condicionais e de Laço

"ABC" Exibe a seqüência de caracteres que está entre aspas.

Para incluir uma seqüência de caracteres em Format a partir do código, você deve usar Chr(34) para
delimitar o texto (34 é código de caractere para aspas).

 Usamos também como argumento na formatação de expressões numéricas algumas

palavras-chave que correspondem a algum tipo de formato padrão.

General Number : Exibe o número na forma em que se encontra, sem separadores de milhar.
Print Format(123456.7, "General Number")
Valor Impresso: 123456,7

Currency : Exibe o número com o separador de milhar, se apropriado; exibe dois dígitos à direita do
separador de casa decimal. Note que a saída é baseada nas configurações do Painel de Controle.
Print Format(123456.7, "Currency")
Valor Impresso: R$123.456,70

Fixed : Exibe pelo menos um dígito à esquerda e dois dígitos à direita do separador de casa
decimal.
Print Format(123456.7, "Fixed")
Valor Impresso: 123456,70
Print Format(1, "Fixed")
Valor Impresso: 1,00

Standard : Exibe o número com o separador de milhar, pelo menos um dígito à esquerda e dois
dígitos à direita do separador de casa decimal.
Print Format(123456.7, "Standard")
Valor Impresso: 123.456,70

Percent : Exibe o número multiplicado por 100 com um sinal de porcentagem (%) anexado à direita;
sempre mostra dois dígitos à direita do separador de casa decimal.
Print Format(123456.7, "Percent")
Valor Impresso: 12345670,00%
Print Format(1, "Percent")
Valor Impresso: 100,00%

Scientific : Usa a notação científica padrão.

Print Format(123456.7, "Scientific")
Valor Impresso: 1,23E+05

139
 Comandos Condicionais e de Laço

 Crie um formulário conforme o exemplo abaixo:

 Faça a seguinte codificação para o botão executar:

Formatação de Expressões Lógicas

Yes/No : Exibe “No” se o número for 0; caso contrário, exibe “Yes”.

True/False : Exibe “False” se o número for 0; caso contrário, exibe “True”.
On/Off : Exibe “Off” se o número for 0; caso contrário, exibe “On”.
Print Format(1,”True/False”)
Valor Impresso: True

Formatação de Expressões Data e Hora

Usamos a função Format também para formatar uma data ou hora, configurando assim o formato
que será impresso. Veja os caracteres que podemos usar:

: Separador de hora. Em algumas localidades podem ser usados outros caracteres para representar
o separador de hora. O separador de hora separa horas, minutos e segundos quando os valores de
hora são formatados. O caractere real usado como o separador de hora na saída formatada é
determinado pelas configurações de seu sistema.
/ Separador de data. Em algumas localidades podem ser usados outros caracteres para representar
o separador de data. O separador de data separa o dia, mês e ano quando os valores de data são

140
 Comandos Condicionais e de Laço

formatados. O caractere real usado como o separador de data na saída formatada é determinado
pelas configurações de seu sistema.

c Exibe a data como ddddd e a hora como ttttt, nessa ordem. Exibe apenas informações de data se
não houver parte fracionária para o número de série de data; exibe apenas informações de hora se
não houver parte inteira.
Print Format("01/08/96","c")
Valor Impresso: 01/08/96
Print Format(now,"c")
Valor Impresso: 01/08/96 [Link]

d Exibe o dia como um número sem zeros à esquerda.

Print Format("05/07/96","d")
Valor Impresso: 5

dd Exibe o dia como um número com zeros à esquerda.

Print Format("05/07/96","dd")
Valor Impresso: 05

ddd Exibe o dia da semana como uma abreviado em 3 letras.

Print Format("01/08/96","ddd")
Valor Impresso: Qui

dddd Exibe o dia da semana como um nome completo.

Print Format("01/08/96","dddd")
Valor Impresso: Quinta-feira

w Exibe o dia da semana como um número (1 para domingo até 7 para sábado).

ww Exibe a semana do ano como um número.

Print Format("01/08/96","ww")
Valor Impresso: 31

m Exibe o mês como um número sem zeros à esquerda. Se m vier imediatamente depois de h ou
hh, é exibido o minuto em lugar do mês.
Print Format("01/08/96","m")
Valor Impresso: 8

mm Exibe o mês como um número com zeros à esquerda. Se m vier imediatamente depois de h ou
hh, é exibido o minuto em lugar do mês.
Print Format("01/08/96","mm")
Valor Impresso: 08

mmm Exibe o mês como uma abreviado em três letras.

Print Format("01/08/96","mmm")
Valor Impresso: Ago

141
 Comandos Condicionais e de Laço

mmmm Exibe o mês como um nome completo.

Print Format("01/08/96","mmmm")
Valor Impresso: Agosto

q Exibe o trimestre do ano como um número.

Print Format("01/08/96","q")
Valor Impresso: 3

y Exibe o dia do ano como um número.

Print Format("01/08/96","y")
Valor Impresso: 214

yy Exibe o ano como um número de dois dígitos.

Print Format("01/08/96","yy")
Valor Impresso: 96

yyyy Exibe o ano como um número de quatro dígitos.

Print Format("01/08/96","yy")
Valor Impresso: 1996

h Exibe a hora como um número sem zeros à esquerda.

Print Format("[Link]","h")
Valor Impresso: 9

hh Exibe a hora como um número com zeros à esquerda.

Print Format("[Link]","h")
Valor Impresso: 09

n Exibe o minuto como um número sem zeros à esquerda.

nn Exibe o minuto como um número com zeros à esquerda.
s Exibe o segundo como um número sem zeros à esquerda.
ss Exibe o segundo como um número com zeros à esquerda.
t t t t t Exibe uma hora como uma hora completa (inclusive hora, minuto e segundo), formatada
usando o separador de hora definido pelo formato de hora reconhecido pelo sistema.
Print Format(now,"ttttt")
Valor Impresso: [Link]

 Usando estes caracteres especiais podemos formatar uma data de várias maneiras,
como por exemplo:
Print Format(“01/08/96”,”dd/mmmm/yyyy”)
Valor Impresso: 01/Agosto/1996
Print Format(“01/08/96”,”dd/mmm/yy”)
Valor Impresso: 01/Ago/96

 Veja abaixo a relação das palavras-chaves aceita pela função Format para expressões
de data e hora:

142
 Comandos Condicionais e de Laço

General Date: Exibe a data e a hora nos formatos estabelecidos nas configurações do Windows.
Caso a expressão seja somente uma data, será exibido
Print Format(now,"general date")
Valor Impresso: 01/08/96 [Link]
Print Format("01/08/96","general date")
Valor Impresso: 01/08/96
Print Format("[Link]","general date")
Valor Impresso: [Link]

Long Date: Exibe uma data de acordo com o formato por extenso de data de seu sistema.
Print Format("01/08/96","Long Date")
Valor Impresso: Quinta-feira, 1 de Agosto de 1996

Medium Date: Exibe uma data usando o formato médio de data apropriado para a versão de idioma
do aplicativo host.
Print Format("01/08/96","Medium Date")
Valor Impresso: 01-Ago-96

Short Date: Exibe uma data usando o formato abreviado de data de seu sistema.
Print Format("01/08/96","Short Date")
Valor Impresso: 01/08/96

Long Time: Exibe uma hora usando o formato por extenso de hora de seu sistema: inclui horas,
minutos, segundos.
Print Format("[Link]","Long Time")
Valor Impresso: [Link]

Medium Time: Exibe uma hora no formato 12 horas usando horas e minutos e a designação AM/PM.
Print Format("[Link]","Medium Time")
Valor Impresso: 09:24 AM

Short Time: Exibe uma hora usando o formato 24 horas.

Print Format("[Link]","Short Time")
Valor Impresso: 09:24

143
 Comandos Condicionais e de Laço

 Crie um formulário em branco da seguinte forma:

 Altere a propriedade AutoSize dos labels para True e digite a seguinte

codificação:

Formatação de Expressões String

A manipulação de expressões String podem ser formatados usando os caracteres especiais abaixo:

@ Exibe um caractere ou um espaço. Se a seqüência de caracteres tem um caractere na posição em

que @ aparece na seqüência de formato, ele será exibido; caso contrário, um espaço será
apresentado nessa posição. Os espaços reservados são preenchidos da direita para a esquerda a
menos que exista um caractere ! na seqüência de caracteres de formato. Veja abaixo.

& Exibe um caractere ou nada. Se a seqüência de caracteres tem um caractere na posição em que &
aparece, ele será exibido; caso contrário, nada será exibido. Os espaços reservados são
preenchidos da direita para a esquerda a menos que exista um caractere ! na seqüência de
caracteres de formato. Veja abaixo.
! Força preenchimento da esquerda para a direita dos espaços reservados. O preenchimento padrão
é feito da direita para a esquerda.

< Exibe todos os caracteres no formato de minúsculas.

144
 Comandos Condicionais e de Laço

> Exibe todos os caracteres no formato de maiúsculas.

145
 Comandos Condicionais e de Laço

EXERCÍCIOS PROPOSTOS
1 - Mostre a diferença entre as funções matemáticas FIX e INT:

2 - Para converter uma variável para o tipo Data usamos qual função?

3 - Para conversão de uma variável numérica para o formato String (texto) usamos qual função?

4 - Caso necessitamos de converter uma expressão string “INFORMATICA” para

“informatica” usamos qual função? Exemplifique:

5 - Como usariamos a função DATEADD para incrementar 2 meses na data “27/08/96”?

6 - Para saber o intervalo entre a data 27/08/96 e 31/12/96 em:

Quantidade de dias:
Quantidade de meses:
Quantidade de semanas:

7 - Para extrair o dia de uma data usamos qual função?

8 - Mostre a finalidade das funções:

NOW:
DATE:
TIME:

9 - Mostre a sintaxe completa das funções que:

a) Extrai da frase “Editora Terra” a expressão “Terra”:

b) Extrai da frase “Editora Terra” a expressão “Editora”:

c) Extrai da frase “Gráfica e Editora Terra” a expressão “Editora”:

146
 Comandos Condicionais e de Laço

10 - Mostre como ficaria a codificação de um programa que criasse uma matriz chamada MESES
cujo conteúdo fosse os meses de Janeiro a Dezembro:

11 - Considerando que:
A = “Editora”
B = “Gráfica”
C = “Editora”
D = IIF(A=B, “Igual”, “Diferente”)
E = IIF(A=C, “Igual”, “Diferente”)
F = IIF(C=B, “Igual”, “Diferente”)
QuaL o conteúdo das variáveis D, E e F?

12 - Descreva a finalidade das Funções:

Isdate:
Isempty:
Isnumeric:

13 - Desenvolva um programa que tenha no formulário uma caixa de texto para o usuário digitar um
numero de 0 a 5 e crie um evento Change cuja codificação é a seguinte:
Print Choose([Link], “Zero”,”Um”, “Dois”,”Três”,”Quatro”,”Cinco”)
Descreva o que o programa fará:

14 - Em que situação usamos as funções:

INPUTBOX:

MSGBOX:

15 - Cite um exemplo da utilização da função Format para as expressões:

Numéricas:

Data e Hora:

147
 Comandos Condicionais e de Laço

String:

11 CRIAÇÃO DO BANCO DE DADOS

 Caracteristicas
 Visual Data Manager
 Índices

148
 Comandos Condicionais e de Laço

11.1 BANCO DE DADOS

Sempre que trabalhamos com qualquer tipo de dado devemos gravá-los em arquivos para não
perdê-los quando desligamos o computador. Chamamos esses arquivos que recebem vários dados
de Banco de Dados. Neste livro vamos abordar o padrão MDB (Microsoft Database) que representa
a grande maioria de arquivos de Banco de Dados para Windows existente hoje. Esse padrão é
usado pelo Access e o Visual Basic também o aceita.

11.1.1 Características
Um arquivo que contém dados irá possuir a extensão MDB. Exemplo: Se temos um banco de dados
de um controle de estoque possivelmente ele terá o nome de “[Link]”.
Dentro de um arquivo deste podemos ter várias tabelas. No exemplo de um controle de estoque,
podemos ter uma tabela para Mercadoria, Fornecedor, Cliente, etc. Todas essas tabelas ficam
armazenadas dentro do arquivo MDB.
Cada tabela possui Campos onde serão armazenado os dados. Por exemplo, na tabela Mercadoria
temos o campo de Descrição da Mercadoria, Quantidade no Estoque, Valor de Venda, etc. Tudo isto
representa os Campos que estão armazenados dentro da tabela.
Dentro dos Campos que estão os dados que precisamos armazenar. Veja a disposição da
hierarquia:
BANCO DE DADOS
[Link]

TABELA: TABELA: TABELA:

Mercadoria Fornecedor Cliente

CAMPO: CAMPO: CAMPO:

Descrição Nome Nome
Quantidade Endereço ValorCompra
Valor Telefone

DADOS: DADOS: DADOS:

Calção de Banho Solaris Ind. e Com. Joaquim Pereira
12 Rua 12, 300 - RJ R$ 42,00
R$ 12,00 (021) 451-7854

Quando estamos na fase de desenvolvimento de um programa que irá gerenciar um banco de

dados, podemos deixar já criado o Banco de Dados com suas tabelas e campos. Somente os Dados
é que serão inseridos pelo usuário na medida que for trabalhando com seu programa.
Para criar um banco de dados o Visual Basic traz uma ferramenta chamada Visual Data Manager.
Ele se encontra no menu ADD-INS.

149
 Comandos Condicionais e de Laço

11.1.2 Visual Data Manager (VisData)

No Menu File usaremos duas opções de grande importância para nosso estudo: New Database para
criação de novos Bancos de Dados e Open Database para abrir um banco de dados já criado.
Vamos criar nosso programa de Controle de Estoque rudimentar que apresentamos no organograma
acima. Click na opção New. Pode-se criar Bancos de Dados de vários tipos, como Access, Dbase,
FoxPro, etc. Mas o Visual Basic tem como padrão o Microsoft Access que cria arquivos com
extensão MDB. Escolha então o Microsft Access/Version 7.0 MDB
Irá aparecer uma tela pedindo para digitarmos o nome do Banco de Dados que estamos criando:
Digite “Estoque”. Não é necessário colocar a extensão pois o tipo de arquivo, por padrão, já é MDB.

150
 Comandos Condicionais e de Laço

A próxima janela que irá aparecer é a que gerência as tabelas. Para criarmos uma nova tabela é só
apertar o botão da direita do rato em "Propriedades" e acionar a opção “NEW TABLE”.

Irá aparecer outra janela onde nomeamos a tabela e criamos os campos que esta tabela terá:

Table Name: Nome da Tabela, obedecendo as mesmas regras impostas para nomeação de
variáveis, ou seja, não começar no números, não conter espaços, não usar símbolos como hifem (-),
etc.
Digite: Mercadoria
Field List: é um Listbox onde aparece a lista dos campos que foram inseridos na tabela. Para
inserir os campos aperte o botão "Add Field". Vai aparecer a seguinte janela:

151
 Comandos Condicionais e de Laço

Usamos essa janela para criar todos os campos da tabela.

Name: Nome do Campo.
Digite: Descrição
Type: Uma caixa de combinação onde escolhemos o tipo de dado que terá este campo. Usamos as
mesmas regras para tipo de variável (veja o capítulo sobre variáveis).
Text: Textos e números, como nomes e endereços, números de telefone e códigos postais.
Um campo de texto pode conter de 0 a 255 caracteres. Você deve definir a propriedade Size com a
extensão máxima de seu texto, ao declarar um campo como sendo do tipo Text.
Memo: Textos e números extensos, como comentários ou explicações. O tamanho de um
campo Memo é limitado pelo tamanho máximo do banco de dados.
Date/Time : Datas e horas.
Currency : Utilizado quando um campo contém valores monetá[Link] números à direita da
parte decimal são arredondados durante os cálculos. O tipo de dados Currency mantém um número
fixo de dígitos à direita da parte decimal.
Boolean : Yes/No, True/False, On/Off ou campos que contêm apenas um valor, entre dois.
Binary : Objetos criados em outros programas usando o protocolo OLE. Pode ser Qualquer
valor que possa ser expresso em binários com até 1.2 gigabytes de tamanho. Este tipo é utilizado
para armazenar figuras, arquivos ou outros dados binários não processados.
Byte: Valores positivos de 0 a 255. Armazenado em variáveis tipo Byte.
Integer : Valores de –32.768 a +32.767. Armazenado em variáveis tipo Integer.
Long : –[Link] a [Link] (cerca de 2.1 GB). Armazenado em variáveis tipo
Inteiro Long.
Single : –3,402823E38 a 1,401298E–45 para números negativos e 1,401298E–45 a –
3,402823E38. Armazenado em variáveis tipo Single.
Double : 1,79769313486232E308 a 4,94065645841247E–324 para valores negativos e
4,94065645841247E–324 a 1,79769313486232E308 para valores positivos. Armazenado em
variáveis tipo Double.

Escolha para nosso exemplo o tipo Text

152
 Comandos Condicionais e de Laço

Size: Tamanho definido para o campo. Se colocamos 2 para o campo, poderá ser digitado somente
2 caracteres. Esta opção é liberada somente para o tipo Text.
Digite 30

FixedField: Campo Fixo

VariableField: Campo Variável, que é o padrão.
AllowZeroLength: Permitir comprimento zero, ou seja, quando esta opção esta selecionada o
campo aceita (""). Se esta opção não tiver habilitada e o usurio tentar gravar um campo que não
tenha nada digitado (como um daado não-obrigatório no programa) ocorrerá um erro em tempo de
execução.
Required: Quando esta opção esta marcada o campo se torna obrigatório, ou seja, é necessário
informar valores para o campo, senão ocorre erro em tempo de execução.
DefaultValue: Quando temos um campo que não pode ficar vazio, sempre é interessante digitar algo
aqui nesta opção, pois os valores que informarmos como DefaultValue serão armazenados para o
campo quando nada for digitado pelo usuário. Por Exemplo, existe um campo valor obrigatório, mas
o usuário não digitou nada neste local, então no momento da gravação o programa grava
automaticamente a expressão especificada no DefaultValue.

Aperto o botão "OK" para gravar o campo e continue inserindo outros campos como na tabela
abaixo:
Field Name Data Type Size
Quantidade Integer N/A
Valor Currency N/A
Código Text 3

Geralmente se usa colocar o código no inicio. Se quiser movê-lo para cima é só colocar "0" no ítem
OrdinalPosition.
Veja como ficará depois de pronto:

153
 Comandos Condicionais e de Laço

Aperte o botão Build The Table para que a tabela seja gravada e inserida no banco de dados.

O nome da tabela "Mercadoria" agora já aparece dentro da janela "Database Windows", se clicarmos
com o botão da direita em cima desta tabela ira aparecer um menu onde podemos criar uma outra
tabela (New Table), digitar dados na tabela (Open) ou até modificar a estrutura da tabela (Design).
Crie agora as tabelas abaixo:

Tabela: Cliente
Field Name Data Type Size
CódCliente Text 3
Nome Text 30
LimiteCrédito Currency N/A

154
 Comandos Condicionais e de Laço

Tabela: Vendas
Field Name Data Type Size
Código Text 3
CódCliente Text 3
ValorVenda Currency N/A
QuantidadeVendida Integer N/A

Criamos uma tabela Vendas onde será lançado o código do cliente que efetuou a compra, o codigo
da mercadoria que este cliente comprou, o valor total de sua compra e a quantidade de mercadoria
que ele levou. Este exemplo é simples mas vai servir para nosso aprendizado.

11.1.3 Criando indices

Usamos índices nas tabelas para melhorar a performance do acesso durante uma determinada
procura. Quando criamos um índice o Visual Basic faz uma ordenação lógica da tabela através de
uma chave composta por um ou mais campos.
Se precisamos ordenar uma tabela por código para que a procura de um determinado dado digitado
seja feita pelo código de maneira mais rápida, então indexamos a tabela pelo campo que possui o
código.
Se precisamos colocar uma relação de clientes em ordem alfabética pelo nome digitado, então
indexamos a tabela pelo campo que possui o nome do cliente.
No nosso exemplo, durante a digitação de novos clientes e novas mercadorias, devemos ficar
atentos para não cadastrar dois clientes com o mesmo código ou duas mercadorias com o mesmo
código. Para verificar isto, sempre que o usuário digitar uma nova mercadoria o programa deve fazer
uma procura nas mercadorias já cadastradas para saber se aquele novo código que o usuário
digitou já existe ou não. Então, se temos que fazer uma procura rápida por código será necessário
indexar a tabela Mercadoria pelo campo Código. O Visual Basic então ordenará logicamente a
tabela pelo código de forma ascendente, e sempre que uma nova mercadoria for cadastrada ela será
automaticamente inserida de forma ascendente dentro da tabela.
Para se criar um índice podemos usar também o Visual Data Manager através do Design, onde será
apresentado novamente a estrutura que se criou da tabela. Use o botão "Add Index" para adicionar
indices.

155
 Comandos Condicionais e de Laço

Name: O nome do indice. Através deste nome que ativaremos o indice em nosso programa.
Available Fields: Neste ListBox aparece a relação de campos que nossa tabela contém. Dê um click
no campo que deseja indexar. Ao fazer isto o nome do campo ira aparecer no Indexed Fields
sinalizando que aquele determinado campo irá ser indexado.
Crie então um indice com o nome de "IndCódigo" e selecione o campo CódCliente. Marque a caixa
de verificação Primary Index, habilite também a propriedade Unique e click o botão OK.
Unique informa ao Visual Basic que a chave do indíce é exclusiva (única). Um índice chave ajuda a
otimizar a procura por registros. Ele consiste de um ou mais campos que organizam unicamente
todos os registros de uma tabela em uma ordem predefinida. Se o índice consiste de um campo, os
valores desse campo precisam ser únicos. Se o índice consiste de mais de uma campo, valores
duplicados podem ocorrer em cada campo, mas cada combinação de valores de todos os campos
indexados precisa ser única. Os campos que compõe a chave de índice não são necessariamente
únicos.
Primary Index indica que um objeto Index representa um índice primário para uma tabela. Um índice
primário consiste em um ou mais campos que identificam com exclusividade todos os registros de
uma tabela em uma ordem predefinida. Como o índice do campo tem que ser exclusivo, a
propriedade Unique do objeto Index é definida como True. Se o índice primário consistir de mais de
um campo, cada campo pode conter valores duplicados mas as combinações de valores de todos os
campos indexados devem ser únicas. Um índice primário consiste em uma chave para a tabela e
geralmente contém os mesmos campos da chave primária.

Faça a mesma coisa para a tabela de mercadoria. O nome do indice também pode ser IndCódigo.
Para a tabela de Vendas nomeie o indice como indClienteMercadoria e defina para chave de índice
os campos CódCliente e Código nesta ordem:

156
 Comandos Condicionais e de Laço

Colocamos estes dois campos como chave do índice pois para localizarmos os dados referente a
venda, como quantidade e valor vendido, temos que saber (procurar por) qual cliente comprou e
qual mercadoria ele comprou.
Agora que temos o arquivo "[Link]" (que é o nosso banco de dado) já criado. Vamos fechar
definitivamente o Visual Data Manager e voltar para o projeto do Visual Basic. A utilidade do Visual
Data Manager é somente na criação do banco de dados, as tabelas, os índices, etc.; mas para
manipular os dados, como incluir, alterar, consulta, exclusão e relatórios devemos desenvolver um
programa para isto dentro do Visual Basic.

157
 Comandos Condicionais e de Laço

12 MANIPULAÇÃO DO BANCO DE DADOS

 Abertura do Banco de Dados e suas tabelas

 Adicionar
 Navegação
 Alteração
 Consulta
 Exclusão

158
 Comandos Condicionais e de Laço

12.1 CRIANDO JANELAS

Precisamos criar inicialmente um formulário para cadastrar mercadoria e depois outro formulário
para cadastrar o cliente. Vamos usar o que já aprendemos anteriormente:
Crie um novo projeto e para o formulário nomeio-o “frmEstoque”. O Caption será “Controle de
Estoque”.
Neste formulário vamos criar os menus que irão acessar nossas bases de dados. Veja como ficará:

No menu "Project" do Visual Basic click na opção "AddForm" para inserirmos um novo formulário em
nosso projeto. Será o formulário para cadastramento de mercadoria.

159
 Comandos Condicionais e de Laço

Neste novo formulário altere o Caption para “Cadastro de Mercadoria” e o Name para
“frmCadMercadoria”. Vamos montar esta interface, depois abriremos outros Form para Cliente e
Vendas.
Coloque um frame, 4 labels e 4 caixa de texto com os Names: txtCódigo, txtDescrição, txtQuantidade
e txtValor.
Coloque também 7 botões de comando no formulário como na. Para nomea-los use os Captions de
cada um prefixado com “cmd”:
Importante: Coloque a propriedade TabIndex do Botão "cmdIncluir " como "0" para que ele seja o
primeiro a possuir o foco quando entrar na janela.

Para rodar este programa e ver o resultado será necessário ligar este formulário ao menu
mnuMercadoria. Para fazer isto vamos até o menu localizado no frmEstoque, click no Cadastro para
abrir as opções. Dê dois clickes na opção Mercadoria que uma janela de codificação será aberta.
Digite:

160
 Comandos Condicionais e de Laço

O Método Show abre um novo formulário a partir de outro, e usamos ele para abrir o formulário
frmCadMercadoria.
Vamos aproveitar e codificar a opção Sair do menu também. Dê dois clicks nele e digite:

Este simples comando “END” encerra toda a aplicação fechando todas as janelas que podem estar
abertas.
Para completar este raciocínio, vamos até o formulário frmCadMercadoria e para o botão cmdSair
vamos fazer a seguinte codificação:

O Comando Unload retira a janela informada da memória e da tela, voltando a execução do

programa para a janela anterior, que no nosso caso é o menu principal.
Agora estamos prontos para começar a codificar o nosso Banco de Dados.

161
 Comandos Condicionais e de Laço

12.1.1 Abrindo um banco de dados

Uma vez que vamos trabalhar com manipulação de dados, temos que verificar se o Visual Basic está
apto para fazer esta manipulação. Os serviços necessários para executar essas funções estão em
uma DLL do Microsoft DAO 3.5 Object Library. Para que nosso programa leia essa DLL temos que ir
até o menu Project/References e selecionar esta DLL:

Se este ajuste não for feito e um objeto de banco de dados for declarado, o Visual Basic gerará um
erro. A biblioteca DAO (Data Access Objects) fornece um conjunto de objetos de programação que
precisaremos usar para gerência os Bancos de Dados.

Temos que criar agora duas variáveis do tipo Banco de Dados e outra do tipo Tabela. Uma servirá
para fazer referência ao nome e caminho do Banco de Dados como um todo, e a outra irá fazer
referência a uma tabela especifica.
Onde criar estas variáveis?
No nosso exemplo temos que criá-las na seção General da janela de codificação do formulário.
Variáveis criadas ali possuem abrangência em todo o formulário. Se criarmos ela dentro de alguma
outra rotina (ou vento) a abrangência destas variáveis serão somente dentro da própria rotina.

162
 Comandos Condicionais e de Laço

A variável BancoDeDados é do tipo Database pois ela sempre terá em seu conteúdo o nome do
banco de dados que será aberto. Depois criamos uma variável para a tabela de Mercadoria de nome
TBMercadoria.
O Objeto Recordset é a representação lógica de uma tabela. Usaremos este objeto para manipular
todos os dados da tabela. Veja as principais propriedades de um Recordset (somente manipulados
na codificação do programa):
Sintáxe: [Link]
AbsolutePosition : Indica o numero do registro corrente da tabela em uso.
BOF : Retorna True quando a tabela chegou ao inicio e False quando esta em outro ponto.
DateCreated : Retorna a data de criação da tabela manipulada pelo Recordset.
EOF : Retorna True quando a tabela chegou ao fim e False quando esta em outro ponto.
Index : Especificamos o nome do índice que será associado a tabela.
NoMatch : Retorna True se uma pesquisa efetuada dentro da tabela foi bem-sucedida.
PercentPosition : Retorna um percentual referente a posição que a tabela se encontra com
comparação com o total de registros da tabela.
RecordCount : Retorna a quantidade de registro que uma tabela possui.

Os principais métodos usamos pelo Recordset:

AddNew : Prepara a tabela para receber um novo registro.
Close : Fecha a tabela, e conseqüentemente o objeto recordset.
Delete : Remove a registro atual da tabela.
Edit : Prepara a tabela para que o registro corrente seja alterado.
FindFirst <Condição> : Procura o primeiro registro dentro da tabela que satisfaça a
condição estabelecida (Somente para objeto Recordset tipo dynaset ou snapshot).
FindLast <Condição> : Procura o ultimo registro dentro da tabela que satisfaça a condição
estabelecida (Somente para objeto Recordset tipo dynaset ou snapshot).
FindNext <Condição > : Procura o próximo registro dentro da tabela que satisfaça a
condição estabelecida (Somente para objeto Recordset tipo dynaset ou snapshot).
FindPrevious <Condição> : Procura o registro anterior dentro da tabela que satisfaça a
condição estabelecida (Somente para objeto Recordset tipo dynaset ou snapshot).
MoveFirst : Move a tabela para o primeiro registro.
MoveLast : Move a tabela para o ultimo registro.
MoveNext : Move a tabela para o seguinte seguinte.
MovePrevious : Move a tabela para o registro anterior.
Seek <Operador de Comparação>,<Item a Procurar> : Localiza um registro dentro da
tabela. A tabela tem que estar indexada. (Somente para objeto Recordset tipo table)
Update : Grava as alterações e inclusões na tabela.

O próximo passo será abrir o banco de dados e abrir a tabela de mercadoria. Para fazer i sto
selecione o formulário frmCadMercadoria e abra a janela de codificação dele criando um evento
chamado FORM_LOAD. Este evento é chamado sempre que este formulário é chamado pelo
Windows.

163
 Comandos Condicionais e de Laço

Associamos a variável BancoDeDados ao método OpenDatabase, que vai realmente abrir o arquivo
na prática. Uma vez aberto ao arquivo, sempre que fizermos referência a ele usaremos a variável
BancoDeDados.
Na abertura do arquivo usados o Objeto [Link] que retorna o nome do diretório corrente, onde
esta localizado o arquivo pretendido. Depois concatenamos este diretório com o nome do arquivo a
ser aberto.
Para abrir a tabela usamos o método OpenRecordSet, e como argumento informamos o nome da
tabela a ser aberta e a constante dbOpenTable que informa que o RecordSet a ser aberto é do tipo
tabela.
Note que é necessário antes do método OpenRecordSet usar o nome do objeto Database
BancoDeDados, pois, dentro da hierarquia, a tabela esta dentro do Banco de Dados.
Fizemos tudo isto para deixar disponível para uso o banco de dados Estoque e sua tabela
Mercadoria.

12.1.2 Abrindo um indice

Próximo passo é abrir o índice que esta tabela irá trabalhar. Este índice é necessário para ordenar
os dados que forem digitados num determinada ordem (no nosso caso a ordem é por código) e fazer
uma procura rápida pela chave de indexação.
O índice da tabela Mercadoria é o IndCódigo e possui como chave de indexação o campo Código.

Usamos a propriedade Index para TBMercadoria e determinamos que o índice corrente será
IndCódigo.

12.1.3 Fechando um banco de dados

É extremamente importante Fechar todas tabelas e banco de dados toda vez que sairmos de um
programa ou formulário. Arquivos abertos é perigoso e pode trazer resultados indesejáveis.
Para fecharmos com segurança um banco de dados usamos o Evento do objeto Formulário chamado
Unload. Este evento é chamado sempre que o formulário é retirado da tela (e da memória). Note que
este evento é o contrário do evento Load, que é lido quando o formulário é colocado na tela.
Porque não podemos fechar os arquivos de Banco de Dados no evento click do botão Sair?
Por que o usuário pode querer inventar de sair deste formulário usando outros recursos do Windows
que não seja o botão sair, como a opção Fechar do Control Box, Alt-F4, etc. Para não correr risco
colocamos o fechamento no evento Unload.

164
 Comandos Condicionais e de Laço

Fechamos primeiro a tabela Mercadoria representada pela variável TBMercadoria e depois o banco
de dados Estoque representada pela variável BancoDeDados. Ambas usaram o método Close.

12.1.4 Cuidados especiais

Algo que é extremamente importante no desenvolvimento de qualquer programa é tentar prever o
máximo possivel de erros que o usuário pode cometer e tentar previni-los.
Imagine a situação: o usuário esta no meio de uma inclusão e resolver apertar a tecla excluir ou
alterar, sendo que nem terminou a inclusão. Ou então esta numa alteração e resolve apertar o botão
alterar novamente. Para podermos tentar cercar esses erros usamos a propriedade Enabled nos
botões.
Quando o usuário estiver numa inclusão somente os botões Gravar e Cancelar deve estar
habilitado. Ou seja, ou o usuário confirma o que esta fazendo ou cancela. Se esta numa alteração a
mesma coisa ocorre. E assim por diante. Para fazermos isto temos que usar o Enabled em cada
botão como veremos abaixo:

Fazendo isto quando o usuário apertar o botão incluir, os botões que ele não pode pressionar
enquanto não concluir a inclusão ficarão desabilitados. Deve-se fazer isto para todos os botões.

165
 Comandos Condicionais e de Laço

Na alteração o método é semelhando a inclusão. Durante a alteração o usuário só terá liberado para
ele os botões "Gravar" e "Sair".

No evento click do botão gravar habilite todos novamente. Com exceção do próprio botão gravar que
não pode ser habilitado ate que se incluia ou altere algo.
Outro detalhe que é bom lembrar é desabilitar o botão Gravar no evento Form_Load para que esteja
devidamente desabilitado quando entrar na janela de cadastro de mercadoria. Desabilitamos
também o Frame, pois assim todos os objetos contido dentro dele serão também desabilitados.
Fazemos isto para que o usuário não fique "passeando" pelas caixas de texto sem definir antes
(através dos botões) o que ele quer fazer.

Uma formatação para as caixas de texto que receber numeros é bem vindo para dar um aspecto
visual mais interessante.

166
 Comandos Condicionais e de Laço

Criamos uma formatação para as caixas de texto no evento LostFocus para quando o usuário
terminar de digitar o valor se ajustar.
Habilitamos a tecla Enter criando um evento KeyPress no formulario. Não esquecer de habilitar a
propriedade KeyPreview.

12.1.5 Funções de apoio

Para que nosso programa de cadastro tenha um código mais limpo e de fácil entendimento vamos
criar algumas funções que serão úteis em nossa programação.
Para criar essas funções chame a janela de codificação, selecione TOOLS no menu principal do
Visual Basic, e escolha a opção Add Procedure.

Nomeia a função que estamos criando de AtualizaCampos, coloque do tipo Function e o Scope
(abrangência) Private. Com isto, estamos criando uma função que poderá ser usada somente no
formulário corrente.
Ao clicar em Ok será aberta uma janela de codificação para podermos digitar o que a função ira
conter:

167
 Comandos Condicionais e de Laço

A finalidade desta função é inserir o conteúdo existente nas caixas de textos do formulário para
dentro dos campos da tabela de mercadoria.

Com isto, sempre que precisarmos gravar os dados que o usuário digitou no formulário para dentro
de seus respectivos campos na tabela usamos a função AtualizaCampos.
Repita o processo para criar agora a função AtualizaFormulário:

Note que o AtualizaFormulário faz o caminho inverso: Descarrega os dados existente na tabela de
seus respectivos campos para dentro das caixas de texto existente no formulário.
Por fim, vamos criar uma função para limpar as caixas de texto. Dê o nome de LimpaFormulário:

Vamos usar esta função sempre que precisarmos que as caixas de texto fiquem vazias.

168
 Comandos Condicionais e de Laço

12.2 ADICIONANDO DADOS

Antes de começarmos a fazer a codificação para o botão Incluir, a fim de preparar nosso formulário
para manipular a tabela de Mercadoria, vamos fazer uma modificação nas propriedades MaxLength
das caixas de texto: todas devem possuir o mesmo valor da propriedade Size usada para os campos
na tabela. Usamos isto para não deixar que um usuário coloque um nome com 40 caracteres num
campo que foi definido para receber 30 caracteres.
Outra modificação será efetuada no evento Form_Load do formulário frmCadMercadoria:

Quando uma tabela é aberta o Visual Basic se posiciona no primeiro registro existente dentro dela.
Entretanto, quando ainda não existe nada digitado dentro da tabela, conseqüentemente não existirá
nenhum registro para se posicionar. Neste caso o fim de arquivo é encontrado logo na abertura da
tabela.
A propriedade EOF é quem informa se o fim de arquivo esta ativo ou não. Se EOF for True
(verdadeiro) significa que a tabela chegou ao fim de arquivo, se for False, significa que a tabela esta
posicionada em algum registro em algum lugar.
Recapitulando: A propriedade EOF retorna True se a posição do registro atual for posterior ao último
registro da tabela, ou seja, se o fim do arquivo for localizado, e False se a posição do registro atual
for no último registro ou anterior a ele.
O Visual Basic possui também a propriedade BOF para informar se o inicio do arquivo foi
encontrado.
A propriedade BOF retorna True se a posição do registro atual for anterior ao primeiro registro e
False se a posição do registro atual estiver no primeiro registro ou for posterior a ele.
Os valores de retorno das propriedades BOF e EOF são determinados pela localização do indicador
do registro atual.
Podemos usar as propriedades BOF e EOF para determinar se um objeto Recordset contém
registros ou se você foi além dos limites de um objeto Recordset ao percorrer seus registros.
Perceba que somente se EOF for False que atualizamos o formulário, pois caso contrário, não
poderíamos atualizar o formulário pois não haveria dados a serem atualizados.
O primeiro botão que vamos codificar é o incluir. Ele funcionará da seguinte forma: Quando
clicarmos nele as caixas de textos serão limpas e o método AddNew será acionado. Este método é
usado para avisar à tabela que alguns dados serão incluídos.
Depois de usar o AddNew temos que atualizar os campos, ou seja, passar tudo que foi digitado nas
caixas de texto para seus respectivos campos dentro da tabela TBMercadoria. Fazendo isto usamos

169
 Comandos Condicionais e de Laço

o método Updated para efetuar a gravação propriamente dita e atualizar a tabela com os novos
campos.
Veja um exemplo:
 [Link]
 TBMercadoria("Código") = “001”
 TBMercadoria("Descrição") = “Calça Jeans”
 TBMercadoria("Quantidade") = “12”
 TBMercadoria("Valor") = “100”
 [Link]

Esta rotina é o padrão para inclusão de [Link] que sempre inicia com AddNew e termina
com Updated Neste exemplo colocamos expressões string para serem inseridas nos campos, mas
poderiamos ter colocado variáveis.
No nosso exemplo vamos colocar as caixas de texto. Ficaria assim:
 [Link]
 TBMercadoria("Código") = txtCódigo
 TBMercadoria("Descrição") = txtDescrição
 TBMercadoria("Quantidade") = txtQuantidade
 TBMercadoria("Valor") = txtValor
 [Link]

Desta forma o que o usuário digitar nas caixas de texto serão incluídos dentro dos campos da tabela.
Isto é uma forma simplificada de fazer inclusão de dados. Mas nós vamos usar um forma mais
complexa:

Veja o que foi feito: Sempre que o usuário clicar neste botão o programa limpa o formulário para
deixar as caixas de texto vazias para serem preenchidas com novos dados. O Frame é habilitado
para que as caixas de texto possam ser manipuladas. Em seguida o foco é passado para o caixa de
texto txtCódigo pois é a primeira que deve ser digitada pelo usuário
Ainda não aplicamos o método AddNew pois ainda não sabemos se o usuário vai incluir um código
válido. Primeito o programa tem que analizar o código que ele digitou, verificar se ele real mente não

170
 Comandos Condicionais e de Laço

existe para depois usar o método AddNew. Fazemos isto no evento LostFocus da Caixa de Texto
txtCódigo.
Neste evento verificamos primeiramente se o botão CmdGravar esta habilitado. Se estiver é porque
a inclusão foi acionada.
O programa procura o código digitado. Se ele existir sera dado um aviso ao usuario e o processo de
inclusão será cancelado, caso contrário (ou seja, se o código não existir dentro da tabela) o método
AddNew é chamado a fim de preparar a tabela para receber um novo registro.

Pronto, a janela já esta preparada para receber os dados. Mas agora falta fazer a codificação para o
botão Gravar.

171
 Comandos Condicionais e de Laço

Atualizamos os campos da tabela com os dados digitado nas caixas de textos e depois chamamos o
método Update que fará a gravação fisica dentro do banco de dados.
 Tente incluir vários dados na tabela para podermos usá-los posteriormente nos próximos
exercícios.
 Um recurso interessante que pode ser acrescentado é desabilitar os botões de Alteração,
Consulta , Exclusão, Anterior e Próximo quando a tabela estiver vazia, pois se não houver
nenhum registro, não vai haver nada para alterar, consultar, excluir, etc. Somente o botão de
inclusão que poderá ficar habilitado.
 A maneira mas usual de saber se a tabela esta vazia ou não é através da propriedade
RecordCount que infoma quantos registros existem gravados dentro da tabela.

12.3 PRÓXIMO E ANTERIOR

Estes botões serão usados o usuário “passear” pela tabela, verificando os dados de todos os
registros cadastrados na ordem especificada pelo Index.

O botão Próximo irá mostrar na tela o próximo registro existente. Note que para fazer este
movimento usamos a propriedade MoveNext (mova para o próximo), depois fazermos um teste com
a propriedade EOF para verificar se foi movido para o ultimo registro na tabela. Se estiver no último,
dali ele não pode passar pois não encontrará nada. Encontrando então o último registro, se tentar
passar dali a propriedade MovePrevious (move para o anterior) é acionado. Depois disto
atualizamos o formulário.
O botão Anterior possui a mesma lógica, mas invertemos as outras propriedades para fazer agora o
teste de início de arquivo. Ou seja, se o usuário estiver no primeiro registro ele não poderá voltar um
registro, pois antes do primeiro não existira nada.
Se você usar MoveNext quando o último registro for o atual, a propriedade EOF será configurada
para True e não haverá registro atual. Se você usar MoveNext novamente, um erro ocorrerá; EOF
permanece True. Se recordset referir-se a um Recordset tipo table (que é o nosso caso), a

172
 Comandos Condicionais e de Laço

movimentação segue o índice atual. Você pode definir o índice atual usando a propriedade Index. Se
você não configurar o índice atual, a ordem de registros retornados será indefinida.

12.4 ALTERAÇÃO

Para alteração vamos fazer algo semelhante ao que fizemos na inclusão. A diferença ficará numa
propriedade nova para nós que é EDIT. Esta propriedade abre a tabela para que o dado que esta
sendo alterado seja editado.
Note que não liberamos a caixa de texto txtCódigo para alteração, pois sendo ela a chave de índice,
não pode ser alterada. Quando necessitar de alteração no código, ele deve ser excluído e incluído
novamente.

12.5 CONSULTA
Para consulta vamos usar a função INPUTBOX. Aprendemos a usá-la nos capítulos anteriores. Ela
solicita ao usuário a digitação de algum dado e armazena numa determinada variável.
Então criamos uma variável de nome ProcuraCódigo e usamos ela para receber o que o usuário
digitar.

Feito isto, usamos o método Seek para efetuar uma procura dentro da tabela.

173
 Comandos Condicionais e de Laço

Seek: Localiza o registro de um objeto Recordset tipo table indexado que satisfaça os critérios
especificados para o índice atual e torna esse registro o registro atual.
Após o Seek colocamos um sinal de comparação para determinar o tipo de procura que este método
fara. Podemos usar “=” ,”<”, “>”, “<=”, “>=”, etc
O método Seek pesquisa os campos-chave especificados e localiza o primeiro registro que satisfaça
os critérios especificados na comparação dentro da chave de índice. Uma vez encontrado, esse
registro torna-se o registro atual e a propriedade NoMatch é definida como False. Se o método Seek
falhar em localizar um registro correspondente, a propriedade NoMatch é configurada como True e o
registro atual é indefinido.
Se comparação for igual (=), maior ou igual a (>=) ou maior do que (>), o Seek começa a pesquisa
no início do índice. Se comparação for maior do que (<) ou maior ou igual a (<=), o Seek começa a
pesquisa no final do índice e continua em direção ao início a menos que existam entradas de índice
duplicadas no final. Neste caso, Seek começa por uma entrada arbitrária entre as entradas de índice
duplicadas no final do índice.
Quando informamos uma chave para o método Seek procurar, esta chave deve ser no mesmo
formato que o estabelecido no índice do arquivo (index). Por exemplo: no TBMercadoria a chave do
índice é o Código, então o Seek somente faz a procura pelo código. Não podemos pedir para
procurar pela Descrição da mercadoria, pois para isto deveria existir um índice para descrição.
Em nosso exemplo se NoMatch for True (ou seja, se não encontrou nenhum registro que seja igual
ao conteúdo da variável ProcuraCódigo) movemos para o registro anterior e depois o formulário é
atualizado. Fazemos isto pois quando uma procura não é bem sucedida a tabela é posicionada no
fim de arquivo, e como não existe nenhum registro nesta posição, movimentamos para um registro
antes, onde o ultimo registro incluído se encontra.
Quando clicarmos no botão Consultar uma janela como a que esta abaixo aparecerá no video:

Digitamos o código que queremos procurar e ao clicar Ok a busca é iniciada. Se não encontrar uma
mensagem será apresentada:

174
 Comandos Condicionais e de Laço

12.6 EXCLUSÃO

Quando se ai deletar algo é bom solicitar ao usuário uma confirmação, pois a deleção acidental
pode causar resultados catastróficos. Então é bom que o usuário tenha certeza do que esta fazendo.
Quando usamos a propriedade Delete o registro atual (aquele que esta aparecendo no vídeo) é
excluído da tabela.
Mas para a tela não ficar vazia (uma vez que aquele registro que estava lá foi eliminado) usamos a
procedure cmdAnterior_click que é a rotina que usamos quando o botão anterior é acionado.
Fazemos isto para posicionar a tabela no registro anterior ao que foi deletado e mostrá-lo na tela.
Desta forma a tela não fica vazia.
Em nosso programa podemos localizar um registro com a consulta ou através dos botões Anterior e
Próximo. Localizando podemos clicar no botão Excluir que o registro desaparece.

12.7 CONSIDERAÇÕES FINAIS

Pronto. Esta finalizado este formulário frmCadMercadoria. Agora usando estes mesmos processos
usados aqui programe o Cadastro de Cliente. As vendas é um pouco diferente pois esta tabela
depende da tabela de Mercadoria e da tabela de Clientes, ou seja, é necessário, nas vendas,
informar quem é o cliente que esta comprando e qual mercadoria se esta comprando. Estas
informações são coletadas em suas respectivas tabelas. Mas vamos aprender a codificá-la após
terminarmos com os Clientes.

12.8 CADASTRO DE CLIENTES

175
 Comandos Condicionais e de Laço

Option Explicit
Dim BancoDeDados As Database
Dim TBCliente As Recordset

Private Sub cmdAlterar_Click()

[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = True
[Link] = True

[Link] = True
txtCó[Link] = False
[Link]
[Link]

End Sub

Private Sub cmdAnterior_Click()

[Link]
If [Link] = True Then
[Link]
End If
AtualizaFormulário

End Sub

Private Sub cmdConsultar_Click()

Dim ProcuraCódCliente As String

ProcuraCódCliente = InputBox("Digite o Código do Cliente a ser

consultado")
[Link] "=", ProcuraCódCliente
If [Link] = True Then
MsgBox ("Cliente não cadastrado!")
[Link]
End If
AtualizaFormulário

End Sub

Private Sub cmdExcluir_Click()

If MsgBox("Confirma Exclusão?", vbYesNo) = vbYes Then

176
 Comandos Condicionais e de Laço

[Link]
cmdAnterior_Click
End If

End Sub

Private Sub cmdGravar_Click()

[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = False
[Link] = True

[Link] = False
txtCó[Link] = True

AtualizaCampos
[Link]

End Sub

Private Sub cmdIncluir_Click()

[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = True
[Link] = True

LimpaFormulário
[Link] = True
txtCó[Link]

End Sub

Private Sub cmdProximo_Click()

[Link]
If [Link] = True Then
[Link]
End If
AtualizaFormulário

177
 Comandos Condicionais e de Laço

End Sub

Private Sub cmdSair_Click()

Unload frmCadClientes
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then

SendKeys ("{TAB}")
KeyAscii = 0
End If

End Sub

Private Sub Form_Load()

Set BancoDeDados = OpenDatabase([Link] & "\[Link]")
Set TBCliente = [Link]("Cliente", dbOpenTable)

[Link] = "IndCódigo"

[Link] = False
[Link] = False

If [Link] = False Then

AtualizaFormulário
End If

End Sub

Private Sub Form_Unload(Cancel As Integer)

[Link]
[Link]

End Sub

Private Sub txtCódCliente_LostFocus()

txtCó[Link] = Format(txtCó[Link], "000")

[Link] "=", txtCó[Link]

If [Link] = False Then

MsgBox "Cliente já existente. Tente outro Código"
AtualizaFormulário
[Link] = True
[Link] = True
[Link] = True
[Link] = True

178
 Comandos Condicionais e de Laço

[Link] = True
[Link] = True
[Link] = False
[Link] = True
[Link] = False
Else
[Link]
End If

End Sub

Private Sub txtValor_LostFocus()

txtLimiteCré[Link] = Format(txtLimiteCré[Link], "Standard")
End Sub

Private Function AtualizaCampos()

TBCliente("CódCliente") = txtCódCliente
TBCliente("Nome") = txtNome
TBCliente("LimiteCrédito") = txtLimiteCrédito

End Function

Private Function AtualizaFormulário()

txtCódCliente = TBCliente("CódCliente")
txtNome = TBCliente("Nome")
txtLimiteCré[Link] = Format(TBCliente("LimiteCrédito"), "Standard")

End Function

Private Function LimpaFormulário()

txtCódCliente = ""
txtNome = ""
txtLimiteCrédito = ""

End Function

179
 Comandos Condicionais e de Laço

12.9 LANÇAMENTO DAS VENDAS

A criação do formulário será como no exemplo acima; ou seja, comparando com os anteriores, a
diferença é somente o acréscimo de dois labels que ficarão ao lado do código da mercadoria e do
cliente. O primeiro label conterá a descrição da mercadoria, e vamos nomeá-lo para lblDescrição, e o
segundo terá o nome do cliente, e vamos nomeá-lo para lblNomeCliente.
Para esta tabela é necessário criar um índice em que a chave de procura seja o Código da
Mercadoria e o Código do Cliente. Usamos para isto o Visual Data Manager:

180
 Comandos Condicionais e de Laço

Note que esses dados não existem na tabela de Vendas. O que existe nesta tabela é somente o
código da mercadoria. A descrição esta em outra tabela (Mercadoria), assim como o nome do cliente
também esta em outra tabela (Cliente). Para podermos acessar estas tabelas e capturar somente a
descrição da mercadoria e nome do cliente, temos somente um ponto de referência, que é o código
deles que existe na tabela de Vendas.
A lógica usada neste programa consiste em pegarmos o código existente na tabela de vendas e
buscar a descrição daquele código em outra tabela. Para fazer isto todas as tabelas envolvidas
devem ser abertas, assim como seus índices, pois será através do índice que a procura será feita.
Exemplificando através da tabela de mercadoria:
Como na tabela de vendas existe o código da mercadoria que foi vendida, e na tabela de mercadoria
existe a descrição da mercadoria para aquele código, usamos o índice para procurar dentro da
tabela de mercadoria, o código existente dentro da tabela de vendas. Isto é possível desde que a
tabela de mercadoria esteja indexada pelo código, pois a procura será feita por ele.

Para podermos então codificarmos o formulário que terá acesso aos dados da tabela de vendas,
vamos criar as variáveis que serão usadas para lidar com o banco de dados e as tabelas:

Criamos uma variável para cada tabela que será aberta. Precisamos agora criar um evento
Form_Load para abrir todas essas tabelas.

181
 Comandos Condicionais e de Laço

Veja que abrimos todas as três tabelas que serão usadas neste formulário, e abrimos também todos
os índices relativo a cada uma.
As nossas funções auxiliares sofrerão alguma mudança pois acrescentamos em nosso formulário
dois labels, e um conterá a descrição da mercadoria e outro o nome do cliente.

Note que quando formos atualizar o formulário será necessário apresentar nos dois labels os dados
contido em outras tabelas, por isto é necessário colocar um Seek para cada item a ser procurado.
Quando o usuário, por exemplo, aperta o botão "Avançar" o programa avança um registro na tabela
de Vendas e usa os códigos contidos nela para tentar localizar suas respectivas descrições e nome
do cliente.

182
Comandos Condicionais e de Laço

183
 Comandos Condicionais e de Laço

Para facilitar nosso trabalho, criamos aqui uma função CancelaDigitação que tem por finalidade
anular o que o usuário estiver fazendo, voltar os botões e frame para seu estado natural. Usaremos
esta função quando o usuário digitar algum código inválido.
Com as funções prontas, vamos completar a codificação do Form_Load, pois apenas abrimos as
tabelas, precisamos agora verificar se a tabela de vendas está vazia, e desabilita o botão "Gravar" e
o frame:

A inclusão para esta tabela segue o estilo que usamos para os outros formulários. Existe somente
uma diferença fundamental que é o aparecimento do nome do cliente e a descrição da mercadoria
quando o usuário digitar o código correspondente. Ou seja, numa inclusão, quando o usuário digitar
o código da mercadoria que foi vendida, o programa terá que acessar a tabela de Mercadoria,
procurar o código que o usuário acabou de digitar, e trazer de lá a descrição daquele código.
Este trabalho todo pode ser feito no evento LostFocus da caixa de texto. Por que este evento?
Porque esta procura será feita DEPOIS que o usuário digitar o código e passar para a próxima caixa
de texto (ou seja, quando o objeto perder o foco).
Então, diante disto, precisamos criar dois evento LostFocus. Uma para a caixa de texto txtCódigo e
outro para txtCódCliente:

Usamos o SEEK para efetuar uma procura dentro da tabela TBMercadoria.

O que irá procurar?

184
 Comandos Condicionais e de Laço

Irá procurar o código digitado na caixa de texto txtCódigo.

Se NoMatch for igual a True é sinal que não existe nenhuma mercadoria cadastrada com o código
digitado. Então uma mensagem será mostrada na tela: “Mercadoria não cadastrada”.
Depois chamamos aquela função que criamos chamada Cancela Digitação. Logicamente que se
quisermos incrementar ainda mais nosso programa poderíamos fazer com que o programa abrisse
uma tela mostrando quais as mercadorias que existem cadastradas para o usuário escolher uma, ou
algo assim. Mas para resumir nosso exemplo deixaremos assim.
Se o código digitado na caixa de texto for encontrado então a descrição é inserida dentro do label
"lblDescrição" para que seja mostrada no formulário.
Fazemos a mesma coisa com a evento LostFocus de txtCódCliente:

A inclusão de registros dentro da tabela de vendas é igual ao apresentado nos outros programas:

185
 Comandos Condicionais e de Laço

A alteração segue os padrões anteriores, lembrando que nesta tabela de vendas não podemos
alterar o Código da Mercadoria e o Código do Cliente, pois ambos fazem parte da chave do índice
da tabela. Se necessitar alterar o código, exclua e inclua novamente:

186
 Comandos Condicionais e de Laço

A exclusão também é semelhante aos anteriores:

Os botões Anterior e Próximo devem fazer uma pesquisa na tabela de Mercadoria e Clientes para
atualizar os labels, a fim de que apareça a descrição da mercadoria e o nome do cliente:

Perceba que esta rotina move a tabela de vendas para o registro anterior, e depois ao chamar a
função AtualizaFormulário faz uma procura dentro da tabela de mercadoria e depois dentro da
tabela de clientes usando como chave de busca o conteúdo existente dentro da tabela de vendas.

Dê uma conferida em seu código fonte agora:

Option Explicit

Dim BancoDeDados As Database

Dim TBVendas As Recordset
Dim TBMercadoria As Recordset
Dim TBCliente As Recordset

Private Sub cmdAlterar_Click()

187
 Comandos Condicionais e de Laço

[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = True
[Link] = True

[Link] = True
txtCó[Link] = False
txtCó[Link] = False
[Link]
[Link]

End Sub

Private Sub cmdAnterior_Click()

[Link]
If [Link] = True Then
[Link]
End If
AtualizaFormulário
End Sub

Private Sub cmdExcluir_Click()

If MsgBox("Confirma Exclusão?", vbYesNo) = vbYes Then

[Link]
cmdAnterior_Click
End If

End Sub

Private Sub cmdGravar_Click()

[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = False
[Link] = True

[Link] = False
txtCó[Link] = True
txtCó[Link] = True
AtualizaCampos
[Link]

188
 Comandos Condicionais e de Laço

End Sub

Private Sub cmdIncluir_Click()

[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = True
[Link] = True

LimpaFormulário
[Link] = True
txtCó[Link]

End Sub

Private Sub cmdProximo_Click()

[Link]
If [Link] = True Then
[Link]
End If
AtualizaFormulário

End Sub

Private Sub cmdSair_Click()

Unload frmLançamentoVendas
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then

SendKeys ("{TAB}")
KeyAscii = 0
End If

End Sub

Private Sub Form_Load()

Set BancoDeDados=OpenDatabase([Link] & "\[Link]")
SetTBMercadoria=[Link]"Mercadoria", dbOpenTable)
Set TBCliente=[Link]("Cliente", dbOpenTable)
Set TBVendas=[Link]("Vendas", dbOpenTable)

[Link] = "IndCódigo"

189
 Comandos Condicionais e de Laço

[Link] = "IndCódigo"
[Link] = "indClienteMercadoria"

[Link] = False
[Link] = False

If [Link] = False Then

AtualizaFormulário
End If

End Sub

Private Sub Form_Unload(Cancel As Integer)

[Link]
[Link]
[Link]
[Link]

End Sub

Private Function AtualizaCampos()

TBVendas("Código") = txtCódigo
TBVendas("CódCliente") = txtCódCliente
TBVendas("ValorVenda") = txtValorVenda
TBVendas("QuantidadeVendida") = txtQuantidadeVendida

End Function

Private Function LimpaFormulário()

txtCódigo = ""
txtCódCliente = ""
txtValorVenda = ""
txtQuantidadeVendida = ""

lblDescriçã[Link] = ""
[Link] = ""

End Function

Private Sub txtCódigo_LostFocus()

txtCó[Link] = Format(txtCó[Link], "000")

[Link] "=", txtCódigo

If [Link] = True Then

MsgBox "Mercadoria não cadastrada. Operação Cancelada"
CancelaDigitação

190
 Comandos Condicionais e de Laço

Exit Sub
End If

lblDescrição = TBMercadoria("Descrição")

End Sub

Private Sub txtCódCliente_LostFocus()

txtCó[Link] = Format(txtCó[Link], "000")

[Link] "=", txtCódCliente

If [Link] = True Then

MsgBox "Cliente não cadastrada. Operação Cancelada"
CancelaDigitação
Exit Sub
End If

lblNomeCliente = TBCliente("Nome")

[Link] "=", txtCó[Link], txtCó[Link]

If [Link] = False Then

MsgBox "Vendas já existente. Tente outro código"
CancelaDigitação
Else
[Link]
End If

End Sub

Private Sub txtValorVenda_LostFocus()

[Link] = Format([Link], "Standard")
End Sub

Private Function AtualizaFormulário()

txtCódigo = TBVendas("Código")
txtCódCliente = TBVendas("CódCliente")
txtValorVenda = Format(TBVendas("ValorVenda"), "Standard")
txtQuantidadeVendida = TBVendas("QuantidadeVendida")
[Link] "=", txtCódigo
[Link] "=", txtCódCliente
lblDescrição = TBMercadoria("Descrição")
lblNomeCliente = TBCliente("Nome")

End Function

Private Function CancelaDigitação()

191
 Comandos Condicionais e de Laço

AtualizaFormulário
[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = False
[Link] = True
[Link] = False
End Function

Deixamos o botão Consulta de fora propositadamente. Vamos voltar nele nos próximos capítulos.

13 USANDO O CONTROLE DATA

 Data
 DBGrid

192
 Comandos Condicionais e de Laço

13.1 CONTROLE DATA

Este controle economiza uma séria de linhas de programação, fazendo o intercâmbio entre os
controles de um formulário com a tabela do Banco de Dados.
Vamos usar a mesma tabela de Mercadoria para criar um formulário e manipular esta tabela através
do controle data.

Crie um projeto novo e coloque os seguintes controles nele. Repare que é semelhante ao que
fizemos no capítulo anterior, mas na verdade tem grandes mudanças na codificação. Mude o
Caption deste controle para "Mercadoria".
As duas propriedades principais deste controle são: DatabaseName e RecordSource.
DatabaseName: Nesta propriedade selecionamos o nome do banco de dados que será manipulado.
Uma caixa igual a que aparece abaixo será apresentada. Em nosso exemplo, selecione
[Link] que é o banco de dados que estamos trabalhando.

193
 Comandos Condicionais e de Laço

RecordSource: Nesta propriedade deve ser selecionado o nome da tabela que será manipulada
pelo objeto Data. Dentro do Banco de Dados escolhido ([Link]) existem 3 tabelas: Vendas,
Mercadoria e Cliente. As 3 irão aparecer. Escolha "Mercadoria".
Cada caixa de texto deve ser agora anexada ao controle data e, por conseguinte, aos seus
respectivos campos. Por exemplo: A caixa de Texto txtCódigo deve ser anexada ao campo Código.
Esta anexação é feita usando as propriedades DataField e DataSource das caixas de texto.

DataSource: Origem dos dados. Aqui é informado o nome da controle data que possui a tabela que
vamos manipular. Selecione Data1
DataField: Nome do Campo. Na caixa de combinação que aparece, esta o nome de todos os
campos da tabela existente no controle data. Escolha o campo que corresponda com a caixa de
texto selecionada.
Pronto. Não precisa digitar nada na codificação do programa. Com somente este passos já temos
pronto um programa que altera os dados da tabela, pois tudo que for digitado nas caixa de texto será
inserido automaticamente dentro dos registros da tabela. Use o controle data para avançar ou voltar,
ir para o primeiro registro ou o ultimo.

194
 Comandos Condicionais e de Laço

Este controle data anexa dados não somente em caixas de texto, mas tambem em outros controles,
como por exempo o DBGrid, que é muito útil para o programador.

13.2 DBGRID
No projeto desenvolvido no capítulo anterior, deixamos de codificar o botão de Consulta. Vamos
fazer isto agora usando um DBGrid para auxiliar na consulta. Adicione um novo formulário e mude a
propriedade Name para frmConsulta. Neste formulário vamos criar todas as rotinas de consulta que
irão aparecer para o usuário.
Insira um CommandButton no formulário, um objeto do tipo Data e um objeto do tipo DBGrid:

DBGrid Data
Estes Controles serão inseridos na seguinte disposição:

No objeto Data mude a propriedade name para datVendas e o Caption para “Dados das Vendas”.
No objeto DBGrid mude a propriedade name para gridVendas e o Caption para “Lançamento das
Vendas”.
O Objeto Data possui algumas propriedades que devem ser alteradas, como o DatabaseName e
RecordSource. Escolha "[Link]" para uma e "Vendas" para outra.
Trabalhando somente com essas duas propriedade anexamos a tabela Vendas do Banco de Dados
[Link] no objeto Data, que nomeamos para datVendas.
Com isto, sempre que fizermos agora qualquer evento no datVendas será refletido diretamente na
tabela Vendas.
O objeto que manipulará os dados foi então criado, que é o Data, mas onde os registros do irão
aparecer?
Poderíamos colocar cada Campo anexado a uma caixa de texto, mas em lugar disto vamos colocar
todos os registros existentes na tabela Vendas dentro de um objeto DBGrid.
O DBGrid possui uma propriedade chamada DataSource. Nesta propriedade informamos o nome do
objeto Data que inserimos no formulário. Fazendo isto estaremos fazendo uma ligação entre o banco
de dados e a tabela, já definida no objeto Data, para o objeto DBGrid. Com isto o DBGrid já saberá
qual tabela que ele irá manipular.

195
 Comandos Condicionais e de Laço

A propriedade Custom deste objeto abre uma janela onde estão as principais propriedades deste
objetos. Ao clicar será mostrado uma janela para configurar estas propriedades que irão dar forma
ao DBGrid.

No Caption digitamos o título que será exibido no Grid.

AllowAddNew: Habilita a possibilidade de se poder acrescentar registros na tabela.
AllowDelete: Habilita a possibilidade de apagar registros
AllowUpdate: Habilita a possibilidade de alterar os registros existentes
ColumnHeaders: Determina se o cabeçalho de cada coluna será exibido.
RecordSelectors: Determina se no DBGrid irá aparecer um seletor de registros
AllowRowSizing: Habilita a possibilidade do usuário mudar o tamanho das colunas.
Enabled: Habilita ou não a interação do DBGrid com o usuário.

Selecionando no topo desta janela a seção Columns abriremos novas propriedades para serem
configuradas.

196
 Comandos Condicionais e de Laço

Columns: Seleciona em qual coluna de dados do DBGrid que terá as propriedades abaixo
disponível para serem configuradas.
Caption: Título da Coluna selecionada.
DataField: Campo da tabela que terá seus dados exibidos na coluna selecionada.
DefaultValue: Valor padrão para um determinado campo.
NumberFormat: Determina o formato com que os dados da coluna serão mostrados no vídeo. Usa
as mesmas regras da função FORMAT.

197
 Comandos Condicionais e de Laço

Locked: Trava os dados contidos nas colunas.

AllowSizing: Habilitada a possibilidade de mudar o tamanho da coluna
Visible: Indica se a coluna será visível ou não.
Alignment: Alinha dos dados na coluna na forma determinada nesta propriedade.

Uma forma rápida e recomendada para transferir os dados da tabela para suas respectivas
propriedades é a seguinte:
 Selecione o DBGrid no formulário.
 Posicione o ponteiro do rato sobre ele e pressione o botão da direita.
 Irá aparecer um menu como o que esta abaixo:

 Selecione a opção Retrieve Fields.

198
 Comandos Condicionais e de Laço

Isto fará com que todos os dados relativo a tabela que foi informada na propriedade DataSource
sejam automaticamente ajustadas no DBGRid. Use a propriedade (Custom) somente para modificar
os Caption das Colunas, se houver necessidade. Desta forma o DBGrid ficará assim:

O botão fechar será configurado para esconder este formulário e retornar para o formulário anterior.

Note que usamos o Hide no lugar de Unload, pois o Unload retirna o formulário da tela e da
memória também, enquanto que o hide mantém o formulário na memória. A vantagem disto é que o
acesso a esta janela se torna mais rápido no segundo acesso que for feito a ela e os valores das
variáveis do formulário ainda continuará em uso. Neste caso vamos precisar dos valores dos
campos que o usuário selecionou para, na tela de Vendas, usá-las.
Este tipo de consulta que foi feito é bastante simples. Logicamente que pode-se usar outros métodos
mais sofisticados, como o SQL por exemplo. Mas isto já faz parte dos recursos avançados do Visual
Basic.
Volte agora na tela de Vendas para podermos codificar o botão "Consultar"

No método Show de frmConsulta, usamos como argumento a constante "vbModal" para indicar que
essa janela deve ser do tipo modal, ou seja, exclusiva. Não se tem acesso a outra janela enquanto o
usuario não concluir o que deseja fazer na janela aberta.

199
 Comandos Condicionais e de Laço

Usamos o Seek para procurar os códigos que foi selecionado na janela frmConsulta.
Note que usamos o "_" para fazer uma quebra de linha.

200
 Comandos Condicionais e de Laço

14 IMPRESSÃO

 Printer
 Crystal Reports

201
 Comandos Condicionais e de Laço

14.1 PRINTER
No nosso programa vamos acrescentar um item no menu principal chamado “impressão do Estoque”
e com isto vamos imprimir o conteúdo da tabela mercadoria.

Usaremos um novo objeto para os chamados Printer. E será este objeto que manipulará tudo que
enviaremos para a impressora, criando, assim, um canal de comunicação entre nosso programa e a
porta em que a impressora esta ligada.
Muitas peculiaridades de uma impressão, como falta de papel, impressora em linha, fila de
impressão, etc.. Tudo isto será organizado pelo próprio Windows, deixando o programador livre para
executar somente uma tarefa: Despachar seu relatório para a impressora.
As propriedades principais do Printer são:
ColorMode: Determina ou mostra a capacidade de impressão colorida do dispositivo.
Copies: Especifica a quantidade de cópias de uma página que deve ser impressa.
CurrentX: Determina a coordenada horizontal que a impressora irá imprimir.
CurrentY: Determina a coordenada vertical que a impressora irá imprimir.
DeviceName: Mostra o nome da impressora padrão suportada pelo dispositivo
FontName: Determina qual fonte de letra a impressora usará para impressão.
FontBold: Determina se a fonte será em negrito.
FontItalic: Determina se a fonte será em itálico.
Fonts: Fornece uma lista de todas as fontes disponíveis para impressão.
FontSize: Determina o tamanho que a fonte de letra escolhida usará.
FontUnderline: Determina se a fonte será sublinhada.
Orientation: Determina a orientação do papel: Retrato ou Paisagem. Usamos as constantes
para definir o tipo escolhido:
vbPRORPortrait 1 Retrato
vbPRORLandscape 2 Paisagem
Page : Retorna o número da página que esta sendo impressa.

202
 Comandos Condicionais e de Laço

PaperSize: Determinamos o tamanho do papel. Podemos usamos as seguintes constantes:

vbPRPSLetter 1 Letter, 8 1/2 x 11 in.
VbPRPSLetterSmall 2 Letter Small, 8 1/2 x 11 in.
VbPRPSTabloid 3 Tabloid, 11 x 17 in.
VbPRPSLedger 4 Ledger, 17 x 11 in.
VbPRPSLegal 5 Legal, 8 1/2 x 14 in.
VbPRPSStatement 6 Statement, 5 1/2 x 8 1/2 in.
VbPRPSExecutive 7 Executive, 7 1/2 x 10 1/2 in.
vbPRPSA3 8 A3, 297 x 420 mm
vbPRPSA4 9 A4, 210 x 297 mm
vbPRPSA4Small 10 A4 Small, 210 x 297 mm
vbPRPSA5 11 A5, 148 x 210 mm
vbPRPSB4 12 B4, 250 x 354 mm
vbPRPSB5 13 B5, 182 x 257 mm
vbPRPSFolio 14 Folio, 8 1/2 x 13 in.
VbPRPSQuarto 15 Quarto, 215 x 275 mm
vbPRPS10x14 16 10 x 14 in.
vbPRPS11x17 17 11 x 17 in.
VbPRPSNote 18 Note, 8 1/2 x 11 in.
vbPRPSEnv9 19 Envelope #9, 3 7/8 x 8 7/8 in.
vbPRPSEnv10 20 Envelope #10, 4 1/8 x 9 1/2 in.
vbPRPSEnv11 21 Envelope #11, 4 1/2 x 10 3/8 in.
vbPRPSEnv12 22 Envelope #12, 4 1/2 x 11 in.
vbPRPSEnv14 23 Envelope #14, 5 x 11 1/2 in.
VbPRPSCSheet 24 C size sheet
vbPRPSDSheet 25 D size sheet
vbPRPSESheet 26 E size sheet
vbPRPSEnvDL 27 Envelope DL, 110 x 220 mm
vbPRPSEnvC3 29 Envelope C3, 324 x 458 mm
vbPRPSEnvC4 30 Envelope C4, 229 x 324 mm
vbPRPSEnvC5 28 Envelope C5, 162 x 229 mm
vbPRPSEnvC6 31 Envelope C6, 114 x 162 mm
vbPRPSEnvC65 32 Envelope C65, 114 x 229 mm
vbPRPSEnvB4 33 Envelope B4, 250 x 353 mm
vbPRPSEnvB5 34 Envelope B5, 176 x 250 mm
vbPRPSEnvB6 35 Envelope B6, 176 x 125 mm
vbPRPSEnvItaly 36 Envelope, 110 x 230 mm
vbPRPSEnvMonarch 37 Envelope Monarch, 3 7/8 x 7 1/2 in.
vbPRPSEnvPersonal 38 Envelope, 3 5/8 x 6 1/2 in.
vbPRPSFanfoldUS 39 U.S. Standard Fanfold, 14 7/8 x 11 in.
vbPRPSFanfoldStdGerman 40 German Standard Fanfold, 8 1/2 x 12 in.
vbPRPSFanfoldLglGerman 41 German Legal Fanfold, 8 1/2 x 13 in.
vbPRPSUser 256 User-defined

Port: Retorna o nome da porta de impressão que será usada pela impressora padrão.

203
 Comandos Condicionais e de Laço

PrintQuality: Determina ou seta a resolução que a impressora irá usar.

VbPRPQDraft -1 Resolução Draft
vbPRPQLow -2 Baixa Resolução
vbPRPQMedium -3 Média Resolução
vbPRPQHigh -4 Alta Resolução

Os métodos:
EndDoc: Finaliza a impressão de um relatório
KillDoc: Termina imediatamente a impressão
NewPage: Força a impressão passar para a próxima página.
Print <expressão> : Imprime uma expressão ou variável especificada.

O Objeto Printer não aparece na caixa de ferramentas, nem possui um ícone como outros objetos.
Ele é interno que não possui formato visual.
Para desenvolver nossa rotina de impressão, dê um click na opção “Impressão Estoque” no menu e
vamos codificar o programa:

Criamos primeiro as variáveis que irão manipular o Banco de Dados e a tabela. Como vamos
imprimir o conteúdo da tabela de mercadoria isto se torna necessário.
A variável Linha irá fazer um contador de linhas, para podermos controlar quantas linhas estão
sendo impressa numa página.
Depois colocamos uma mensagem para o usuário ter certeza que realmente quer imprimir o
relatório. Se o MsgBox retornar o número 7 é sinal que o usuário digitou escolheu não.

Na seqüência definimos o contador de linha para 1, e abrimos o banco de dados e a tabela de

mercadoria. Não é necessário abrir o índice. Se não tivéssemos aberto a ordem em que os registros

204
 Comandos Condicionais e de Laço

iriam aparecer no relatório seria a ordem em que foram digitados. Como abrimos um índice que
ordena todos os dados na ordem de código, o relatório será impresso então nesta ordem. Caso
houvesse necessidade de criar um relatório na ordem alfabética da descrição das mercadorias,
então seria necessário criar um índice pelo campo “Descrição”, ou uma SQL ordenado pela
"Descrição", e abri-lo na rotina de impressão.
Usamos o objeto Printer para definir com qual fonte de letra o relatório será impresso e qual o
tamanho usado

Abrimos um DO WHILE para sempre verificar se o fim do arquivo foi atingido. Enquanto não for (Not
[Link]) executa as rotinas definidas entre o DO WHILE e o LOOP.
Em seguida é verificado se o contador de linha é igual a 1. Se for chama uma função chamada
Cabeçalho. Esta função irá imprimir o cabeçalho de nosso relatório.
O conteúdo dos campos da tabela de mercadoria é inserido dentro das variáveis, para depois
podermos imprimir no papel estas variáveis. Usamos a função Format para melhorar a formatação
numérica.
Usamos a propriedade CurrentX para definir qual será a coordenada horizontal a ser utilizado
durante a impressão.
A propriedade Print é quem efetivamente faz a impressão. Em conjunto com o Print usamos a função
TAB que efetua uma tabulação para cada variável que será impressa. Isto ajuda a alinhar as
expressões impressas.
Note que colocamos um “;” após o nome da variável que será impressa. Usamos isto para o Objeto
Printer continuar imprimindo na mesma linha. No ultimo campo a ser impresso
TBMercadoria("Valor") já não é necessário, pois a próxima impressão já será na linha seguinte.
Fazemos depois um incremento de + 1 na variável linha. Isto é para atualizar o contador de linha.
MoveNext posiciona a tabela no próximo registro, pois o atual já foi impresso e agora é necessário
ler o registro seguinte. Se o registro seguinte for o fim do arquivo, quando a execução do programa
encontrar o LOOP esta rotina será encerrada.

205
 Comandos Condicionais e de Laço

No nosso exemplo definimos que numa página pode conter no máximo 50 linhas. Então quando o
contador de linha chegar neste ponto, o Objeto Printer chamará uma nova página (NewPage) e o
contador de linha volta a ser igual a 1.

Encerramos nossa rotina com um EndDoc que finaliza a impressão e um Close fechando a tabela e
o banco de dados.
Neste programa esta faltando, para encerrar, a função que cria o cabeçalho:

Quando colocamos um print sozinho, sem nenhuma expressão acompanhado, indica que queremos
forçar a impressão de uma linha em branco.

Private Sub mnuImpressão_Click()

Dim BancoDeDados As Database

Dim TBMercadoria As Recordset

Dim Linha As Integer

If MsgBox("Inicia a impressão?",36,"Relação Mercadoria")=7 Then

Exit Sub
End If

Linha = 1

Set BancoDeDados = OpenDatabase([Link] & "\[Link]")

Set TBMercadoria = [Link]("Mercadoria", dbOpenTable)
[Link] = "IndCódigo"

[Link] = "Arial"
[Link] = 10

206
 Comandos Condicionais e de Laço

Do While Not [Link]

If Linha = 1 Then
Cabeçalho
End If

[Link] = 300

[Link] Tab(3); TBMercadoria("Código");

[Link] Tab(10); TBMercadoria("Descrição");
[Link] Tab(50); Format(TBMercadoria ("Quantidade"), "##,###");
[Link] Tab(70); Format(TBMercadoria("Valor"), "Currency")

Linha = Linha + 1
[Link]

If Linha >= 50 Then

[Link]
Linha = 1
End If

Loop
[Link]
[Link]
[Link]
End Sub

Private Function Cabeçalho()

[Link] Tab(3); "Cód";

[Link] Tab(10); "Descrição";
[Link] Tab(50); "Quantidade";
[Link] Tab(70); "Valor"
[Link] String(100, "-")
[Link]

End Function

14.2 CRYSTAL REPORTS

O Crystal Reports consegue dar uma aparecia mais profissional para os relatórios, alem do usuário
poder dar um "preview" de seus relatórios antes deles serem impressos.
Usar o Crystal é muito simples e fácil. Muito mais fácil que usar o Printer para relatórios.

207
 Comandos Condicionais e de Laço

Entre no programa através do menu Add-Ins e entre na opção Report Designer.

Vamos usar este gerador de relatório para criar um relatório de Mercadoria. Não serão necessárias
codificações complexas, pois o programa automatiza muitas tarefas.
Ao aparecer o Programa Crystal Reports entre na opção NEW.

208
 Comandos Condicionais e de Laço

Irá aparecer uma janela onde devemos escolher qual estilo de relatório será criado. Vamos usar o
"Standard"

Para que o programa crie nosso relatório devemos passar algumas informações, e essas
informações serão coletadas através dessas opções que vem a seguir:

Aperte o botão Data File para escolher o banco de dados que sera usado no relatório. Depois de
escolhido irá aparecer a relação de todas as tabelas existentes no Banco de Dados. Escolha o
Arquivo "[Link]".

209
 Comandos Condicionais e de Laço

Aperte o botão "Next >>"

210
 Comandos Condicionais e de Laço

Na próxima tela aparece as tabelas e um gráfico mostrando o relacionamento entre as tabelas.

Nesta tela selecionamos os campos que vão compor o relatório. Escolha um campo na lista que
aparece no "Database Fields", aperte o botão "Add" e dê um título para o campo (que irá aparecer
no cabeçalho) no item Column Heading.

211
 Comandos Condicionais e de Laço

Escolha somente os campos da tabela de Mercadoria.

Se quisermos criar grupos ou subgrupos, usamos esta tela. Como por exemplo, um relatório que
aparece primeiro o grupo de Material Esportivo e depois o Grupo de Roupa Social. Quando
escolhemos um campo que será a chave do grupo, o relatório ordena o relatório primeiro pelo grupo.
No nosso caso, não existe grupo. Aperte o "Next"

Irá aparecer esta mensagem, alertando que como não foi escolhido nenhum grupo não será possível
entrar nesta opção. Aperte o botão OK e vamos direto para a opção "6 - Select"

212
 Comandos Condicionais e de Laço

Nesta tela pode-se fazer um filtro dos registros que irão compôr o relatório. Não faremos nenhum
tipo de filtro.

Aqui colocamos um título para o relatório e escolhemos um estilo na lista que aparece em "Style".
Escolha Shading . Cada estilo monta o relatório num formato diferente. Deve-se escolher o que
mais se adapta ao tipo que relatório que se esta criando.
Aperte agora o botão "Preview Report" para ver como ficou.

213
 Comandos Condicionais e de Laço

Vamos agora colocar um total para o "Valor". Dê um click com o mou se em cima do registro e aperte
o botão da direita.
Dentre as várias opções que irá aparecer, escolha "Inset Grand Total". Será então inserido um
totalizador para o "Valor".

214
 Comandos Condicionais e de Laço

Uma vez feito tudo isto, nosso relatório esta pronto. Vamos agora salvar o arquivo e mandar
executar em nosso programa.
Va no menu "File", opção "Save" e grave este relatório com o nome de "Mercadoria".
Feche o Cristal Reports e volte para o nosso programa.
Crie mais um formulário para o projeto, e dê o nome de "frmRelatórios". Abra uma opção no menu
principal do programa e acrescente-o nele.

Nesta janela o usuário irá escolher o tipo de relatório que ele deseja e pressiona o botão "Imprimir".
Note que inserimos no formulário um novo controle chamado CrystalReports. Ele quem irá na
verdade fazer todo o trabalho "pesado" de gerar o relatório.
Vamos então codificar o botão imprimir:

215
 Comandos Condicionais e de Laço

Primeiro verificamos se o usuário escolheu o relatório de mercadoria. Caso seja positivo mudamos o
ponteiro do rato para uma ampulheta (para não deixar o usuário fazer nada ate que o relatório seja
concluido.
Na propriedade ReportFileName coloque o arquivo que criamos. Lá existe a matriz de nosso
relatório. Em DataFiles especificamos o nome do banco de dados que será lido pelo relatório.
CopiesToPrinter determina quantas copias terá o relatório. Na propriedade Destination informamos
que o relatório deve ser gerado na tela primeiro antes de ir para a impressora. Por fim, usamos o
Action que envia todas as informações captadas para o Crystal e cria o relatório.

Quando o relatório é criado e mostrado na tela, usamos os botões que fica na parte inferior para
manipular o relatório.

Os botões em forma de seta são utilizados para navegar nas páginas do relatório. O botão em forma
de impressora envia o relatório para a porta de impressão.
O relatório de Vendas tem uma particulariadade. Nele deve conter o nome do cliente e o nome da
mercadoria comprada, entretanto na tabela de Vendas não existe esses dados, existe somente os
códigos relacionados. Como o Crystal Reports faz o relacionamento entre tabelas de forma quase
que automaticas, temos que somente inserir os respectivos campos.

216