Baixe Visual Basic e outras Notas de estudo em PDF para Cultura, somente na Docsity!
Centro de Computação
Gerência de Atendimento ao Cliente (e-mail [email protected])
Visual Basic 5.
Exercício 4: Calculadora
Fazer uma calculadora que tenha as seguintes operações: soma, subtração, divisão e multiplicação.
Tela do Exercício. Private Sub cmdcalcular_Click()
If OptSoma.Value = True Then
txtresult = Val(txtprim_num) + Val(txtseg_num) ElseIf OptSub.Value = True Then
txtresult = Val(txtprim_num) - Val(txtseg_num) ElseIf OptMult.Value = True Then
txtresult = Val(txtprim_num) * Val(txtseg_num) ElseIf OptDiv.Value = True ThenIf Val(txtseg_num) <> 0 Then
txtresult = Val(txtprim_num) / Val(txtseg_num)Else MsgBox "Divisão por Zero!"End If End If End Sub
Resolução do Exercício:
Form Caption =Formulário do ExercícioName = Frmexerc
Frame
Caption = OperaçõesName = Frame
TextBox
Name = txtresultText = (BRANCO)
TextBox
Name = txtseg_numText = (BRANCO)
HScrollBar
Name = hScrPrim_valorLargeChange = 10Max = 1000
HScrollBar
LargeChange = 10Max = 1000Name = HScrSeg_valor
CommandButton
Caption = &CalcularName = cmdcalcular
CommandButton
Caption = &SairName = cmdsair
OptionButton
Caption = SubtraçãoName = OptSub
OptionButton
Caption = SomaName = OptSoma
OptionButton
Caption = DivisãoName = OptDiv
OptionButton
Caption = MultiplicaçãoName = OptMult
TextBox
Name = txtprim_numText = (BRANCO)
Label
AutoSize = TrueCaption = Primeiro Valor:Name = lblprim_valor
Label^ AutoSize = TrueCaption = Resultado da Operação:Name = lblresult
Label^ AutoSize = TrueCaption = Segundo Valor:Name = lblseg_valor
Private Sub hScrPrim_valor_Change()
txtprim_num = hScrPrim_valor.Value End SubPrivate Sub hScrPrim_valor_Scroll()
txtprim_num = hScrPrim_valor.Value End SubPrivate Sub HScrSeg_valor_Change()
txtseg_num = HScrSeg_valor.Value End Sub
Private Sub HScrSeg_valor_Scroll()
txtseg_num = HScrSeg_valor.Value Private Sub cmdsair_Click()End Sub
End End Sub
Centro de Computação
Gerência de Atendimento ao Cliente (e-mail [email protected])
Visual Basic 5.
Criando Efeitos Especiais em Forms
No VB, existem controles
que permite a
criação de imagens
geométricas.
Controle Line
é usado para criar uma linha em seu
formulário (form). Suas propriedades mais importantes são:BorderWidth, BorderStyle, BorderColor, Visible.
Controle Shape
é usado para desenhar uma figura
geométrica em seu formulário (form). É possível selecionar o formatodessa figura. Os formatos são: retângulo, retângulo arredondado,quadrado, quadrado arredondado, oval, circular.
Suas principais propriedades são: FillColor
: permite definir a cor do objeto. (Preenchimento)
FillStyle
: permite definir o padrão do preenchimento.
Visible
: permite que você oculte ou exiba seu objeto.
NOTAS:Teste! Crie um novo Project (A partir do menu File, escolha a opção New
Project). No formulário, desenhe os controles Line, Shape e modifiquesuas propriedades.
Centro de Computação
Gerência de Atendimento ao Cliente (e-mail [email protected])
Visual Basic 5.
Exercício 5: Criando botões Gráficos
Faça um programa que permita que o usuário digite seu texto numa caixa de texto e formate-o (Negrito, Itálico e Sublinhado) damaneira que desejar.
Tela do Exercício Private Sub Image7_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Image7.Tag = "Para cima" Then
Image7.Picture = Image4.Picturetxttexto.FontBold = TrueImage7.Tag = "Para baixo" Else
Image7.Picture = Image1.Picturetxttexto.FontBold = FalseImage7.Tag = "Para cima" End If End Sub
Resolução do Exercício:
Form^ Caption
=
Formulário
para ExercícioName = frmexerc
Label^ AutoSize = 'TrueCaption = Clique nos botões para formatar otexto.Name = Label
TextBox^ MultiLine = TrueName = txttexto
Image^ Name = Image1^ Picture = ...\bld-up.bmp^ Tag = Para cimaVisible = False
Image^ Name = Image2Picture
= ...\itl-up.bmp
Tag = Para cimaVisible = False
Image^ Name = Image3^ Picture = ...\ulin-up.bmp^ Tag = Para cimaVisible = False
Image Name = Image4 Picture = ...\bld-dwn.bmp Tag = Para baixoVisible = False
Image^ Name = Image5^ Picture =...\itl-dwn.bmp^ Tag = Para baixoVisible = False
Image^ Name = Image6^ Picture = ...\ulin-dwn.bmp^ Tag = Para baixoVisible = False
Image^ Picture=Tag = Para cimaName = Image
Image^ Picture =Tag = Para cimaName = Image
Image^ Picture =Tag = Para cimaName = Image
CommandButton^ Caption = &SairName = cmdsair
Private Sub Image8_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Image8.Tag = "Para cima" Then
Image8.Picture = Image5.Picturetxttexto.FontItalic = TrueImage8.Tag = "Para baixo" Else
Image8.Picture = Image2.Picturetxttexto.FontItalic = FalseImage8.Tag = "Para cima" End If End Sub
Private Sub Image9_
MouseDown(Button As Integer,
Shift As Integer, X As Single, Y As Single) If Image9.Tag = "Para cima" Then
Image9.Picture = Image6.Picturetxttexto.FontUnderline = TrueImage9.Tag = "Para baixo" Else
Image9.Picture = Image3.Picturetxttexto.FontUnderline = FalseImage9.Tag = "Para cima" End If End Sub
Centro de Computação
Gerência de Atendimento ao Cliente (e-mail [email protected])
Visual Basic 5.
Arrastar-e-Soltar (Drag and Drop)
Em aplicações
desenvolvidas
em
Visual
Basic,
você
pode
utilizar muitos recursos para facilitar e “agradar” o usuário. Umadessas características do VB, é o Drag-and-Drop que permite que ousuário arraste um objeto até outro e solte-o.
Usando as propriedades, eventos e métodos que o VB possui,
você pode especificar como esse recurso deve se comportar em suaaplicação.
DragMode
Permite que seu objeto sejaarrastado
automaticamente
ou manualmente
Propriedades
DragIcon
Especifica qual o ícone quedeve ser mostrado quando oobjeto é arrastado.
DragDrop
Reconhece
quando
um
controle
é^
solto
em
outro
objeto.
Eventos
DragOver
Reconhece
quando
um
controle é arrastado em cimade outro.
Métodos
Drag
Inicia ou termina a ação dearrastar manualmente.
Você pode configurar a propriedade DragMode de seu objeto
para 1 (que permite que o objeto seja “arrastado”).
NOTAS:
Se você configurar
a^
propriedade
DragMode
do
objeto
para
Manual, para iniciar e terminar a ação de arrastar-e-soltar,
será
preciso programar o método Drag.
Os valores aceitos por este método é: Constante
Valor
Ação
VbCancel
Cancela a operação Drag-and-Drop
VbBeginDrag
Inicia a operação de arrastar.
VbEndGrag
Termina
a^
operação
para
arrastar
e
solta o objeto.
Evento
DragDrop()
Este evento possui 3 argumentos:
Source
: que identifica o objeto que você esta arrastando. Você
pode
utilizar
esse
argumento
com
métodos
e^
propriedades.
Por
exemplo: source.visible = false.
X, Y
: que são coordenadas. X é a coordenada horizontal e Y é
a coordenada vertical.
Centro de Computação
Gerência de Atendimento ao Cliente (e-mail [email protected])
Visual Basic 5.
CommonDialog
Esse objeto permite exibir cinco caixas de diálogo nos padrões do Windows.
Apenas uma caixa de diálogo pode ser exibida a partir de um objeto Common Dialog.
Para exibir uma determinada caixa de diálogo, deve ser utilizado o método correspondente à caixa desejada.
Os
conteúdos
das
caixas
são
controlados
através
de
suas
propriedades, ou seja, quando uma caixa é preenchida, os resultadossão apresentados por suas propriedades.
Caixas de Diálogo e sua utilização: Abrir
: para abrir um arquivo. Método correspondente: ShowOpen Salvar Como
: para salvar um arquivo.
Método correspondente: ShowSave Imprimir
: para definir as opções de impressão.
Método correspondente: ShowPrinter Fonte
: para definir uma fonte e um estilo para textos. Método correspondente: ShowFont Cor
: para escolher uma nova cor da paleta. Método correspondente: ShowColor
NOTAS: Um objeto CommonDialog não é visível ao usuário em tempo de
execução do programa.
Propriedades correspondentes à CommonDialog Abrir: Filter
: define quais os tipos de arquivos deverão ser exibidos.
Por exemplo: commondialog1.filter = “Bitmaps (*.BMP) | .BMP |Metafiles (.WMF) | *.WMF”
Filename
: define o nome do arquivo selecionado.
Propriedades correspondentes à CommonDialog Color: Flags
: define qual o tipo da caixa Color deverá ser exibida. Os
Flags podem ser:
&H1&
: Exibe a CommonDialog Cor padrão, com as cores
personalizadas como opção.
&H2&
: Exibe a paleta padrão e a personalizada.
&H4&
: Exibe a paleta padrão com o botão de Cores
Personalizadas desabilitado.
&H8&
: Exibe o botão de ajuda na CommonDialog Cor.
Color:
esta propriedade é utilizada para configurar a cor dos
objetos do VB que suportam cor. É possível modificar a cor do fundode um formulário, as cores das formas no formulário e as cores defundo dos objetos.
Centro de Computação
Gerência de Atendimento ao Cliente (e-mail [email protected])
Visual Basic 5.
Controle ImageList
O controle ImageList é utilizado para armazenar uma lista de imagens para serem utilizadas nas barras de ferramentas, animações eaplicativos. Cada ImageList é responsável pela criação de apenas umalista de imagens.
Sua capacidade é limitada pela mémoria de seu micro. Página de Propriedades.Para exibir a Página de Propriedades do ImageList, selecione o objeto no formulário, clique-o com o botão direito do mouse e escolhaa opção propriedades.
A guia Images é a parte principal para a criação da lista de imagens, pois é nela que se encontram as propriedades para inserçãoda imagem na lista.
Propriedades: Current Image:
Index:
índica
da
imagem inserida
no
vetor
da
lista
das
imagens.
Key/Tag
: palavra-chave utilizada
para
fazer
referencia
a
imagem.
Images
Mostra todas as imagens inseridas na lista na ordem em que
foram inseridas.
Image Count
: exibe o número de imagens inseridas na lista
Para inserir um imagem à Lista:
Utilize o botão Insert Picture, escolha a imagem e clique no
botão Open. Para remover uma imagem da lista:
Selecione
a^
imagem
desejada
e^
clique
o^
botão
Remove
Picture.
NOTAS:
Centro de Computação
Gerência de Atendimento ao Cliente (e-mail [email protected])
Visual Basic 5.
Exercício 7: Utilizando as Common Dialog
Fazer uma aplicação que permita a
abertura
de imagens e a
configuração
do
ambiente
de
trabalho
pelo
usuário
(cores
do
Formulário). Deve tambem limpar a tela da Imagem quando o usuáriodesejar.
Tela do exercício em tempo de Design.
Resolução do Exercício:
Form^ Name = Form1Caption = Abrindo Figuras
Imagem Box^ Name = Image
ToolBar^ Name = Toolbar
Image List^ Name = ImageList
CommonDialog^ Name = CommonDialog1Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)Select Case Button.KeyCase "Abrir"
CommonDialog1.Filter = "Metafiles (*.WMF) | .WMF |Bitmaps (.BMP) | *.BMP _ |JPEG
(*.JPG) | *.JPG"
CommonDialog1.ShowOpenIf CommonDialog1.CancelError <> True Then
Image1.Picture = LoadPicture(CommonDialog1.filename) End If Case "Color"
CommonDialog1.Flags = &H8&CommonDialog1.ShowColorIf CommonDialog1.CancelError <> True Then
Form1.BackColor = CommonDialog1.Color End If Case "Fechar"
Image1.Picture = LoadPicture() Case "Sair"
End End Select End Sub
Centro de Computação
Gerência de Atendimento ao Cliente (e-mail [email protected])
Visual Basic 5.
Acesso ao Sistema de Arquivos
O VB possui controles que permitem o acesso ao seu sistema de arquivos, ou seja, são controles que permitem fazer a pesquisa emdiretórios e drives e a seleção de arquivos.
Os controles são:
Controle DriveList
: permite a pesquisa dos drives
válidos em seu sistema.
Controle DirListBox
: permite a pesquisa em pastas
(diretórios) existentes no drive selecionado.
Controle FileListBox
: permite a
seleção de um
arquivo específico em uma pasta (diretório).
Trabalhando com as Propriedades: Existem propriedades que não podem ser configuradas em tempo de
design
do
programa,
ou
seja,
não
é^
possível
configurá-las
utilizando a janela Properties (Janela de Propriedades). Elas só podemser configuradas em tempo do execução:
Drive
: recebe a letra do drive selecionado (utilizado pelo
controle DriveListBox).
Path
: recebe o nome do diretório selecionado (utilizado pelos
controles DirectoryListBox e FileListBox).
FileName
: quando um nome de arquivo é selecionado, o VB o
coloca nesta propriedade (utilizado pelo controle FileListBox).
NOTAS:Eventos mais utilizados:Para DirListBox
Change
() – modifica o diretório selecionado. Ocorre quando o
usuário dá um duplo clique em um novo diretório ou quando vocêmuda a propriedade Path através de código de programação.
Para DriveList
Change
() – Modifica o drive selecionado. Ocorre quando o
usuário
seleciona
um
novo
diretório
ou
quando
você
muda
a
propriedade Drive através de programação.
Para FileListBox
Click
: Ocorre quando o usuário pressiona o botão do mouse
em um objeto. Pode também ocorrer quando o valor de um controle(objeto) é mudado.
Outras propriedades do FileListBoxArchive
: define
se
os
arquivos
do tipo Archive
devem ser
listados
pelo
controle.
Hidden
: define se os arquivos do tipo Hidden devem ser listados pelo controle.
Normal
: define se os arquivos do tipo Normal devem ser listados pelo controle.
System
: define se os arquivos do tipo System devem ser listados pelo controle.
Estas
propriedades
recebem
apenas
valores
True/False.
As
propriedades Archive e Normal, por default, tem o valor True.
] Utilize a propriedade
Pattern
da FileListBox para definir quais os
tipos de arquivos que poderá ser selecionados.
Para especificar mais de um arquivo, utilize a seguinte sintaxe: .bmp;.wmf;*.ico (sem espaçamento entre os ponto-e-vírgula).
Centro de Computação
Gerência de Atendimento ao Cliente (e-mail [email protected])
Visual Basic 5.
Formulários MDI (Multiple Document Interface)^ A Interface para Multiplos Documentos é uma característica muito
marcante na programação em ambiente Windows. Esses tipos deFormulários criam uma relação hierárquia entre um formulário (que éo Formulário MDI-pai) e os outros (que são os formulários CHILD).Esses
programas
são
como
o^
Word,
que
permite
que
vários
documentos sejam abertos simultaneamente.
Características do Formulários MDI
Um
Formulário
Child
é^
sempre
exibido
na
área
interna
do
formulário MDI-pai. Não é possível mostrá-lo fora desta área.
Quando esse formulário é minimizado, seu ícone aparecerá no Formulário MDI-pai e não como um botão na barra de tarefas.
Quando o Formulário MDI-pai é minimizado, todas as janelas existentes nele são minimizadas e são exibidas como um botão nabarra de tarefas.
As barras de menus dos formulários Child são exibidos na barra de menus do formulário MDI-pai.
NOTAS:
Para criar uma aplicação MDI:
Crie um novo Project
A partir do Menu Project, escolha a opção Add MDI
Form.Assim, você criou um formulário-pai.
Para
criar
formulários-
filhos, você precisa:
A partir do menu Project, escolha a opção Add Form.
Nas propriedades do Formulário-filho, configura a propriedade MDI Child para True.
Para
exibir
todos
os
formulários
Child
do
seu
Project
num
Formulário
MDI-pai,
configure
a^
propriedade
AutoShow
(do
formulário MDI-pai) para True.
Em formulários do tipo MDI, não é possível “desenhar” controles que não possuam a propriedade Align. Para “desenhar” objetos quenão
possuam
esta
propriedade,
desenhe
um
controle
Picture
no
formulário
e^
depois,
dentro
dele,
desenhe
os
demais
controles.
Exemplo:
Centro de Computação
Gerência de Atendimento ao Cliente (e-mail [email protected])
Visual Basic 5.
Exercício 9: Crie um programa MDI
Crie um novo Project. Neste Project, crie um formulário-pai e três formulários-filhos.
Tela do Exercício
Resolução do Exercício: MDIForm Caption = Controle de EstoqueWindowState = MaximizedName = MDIControl_est Form Caption = Formulário para InclusãoMDIChild = TrueName = FrmInclusão Form Caption = Formulário para Alteração/ExclusãoMDIChild = TrueName = FrmAlt_Excl Form Caption = Formulário para ConsultaMDIChild = TrueName = FrmConsulta
Centro de Computação
Gerência de Atendimento ao Cliente (e-mail [email protected])
Visual Basic 5.
Para construir um menu (continuação)
Checked
: define se deve ou não aparecer um check inicialmente
do lado esquerdo do item do menu.
Enabled
: define se este menu deve ou não estar abilitado.
Visible
: define se o item do menu deve estar visível ou não.
Use estes botões para mudar de nível em um menu do
mais alto até o mais baixo. Você pode criar até 4 níveis de submenusno VB.
Use estes botões para mudar de posição de um item de
menu no mesmo nível (para cima ou para baixo na lista de menu).
Os seguintes botões são para: •^
Next
- é utilizado para adicionar novos itens dentro do seu Menu.
•^
Insert
menus
entre os
menus
já
listados.
•^
Delete
- utilizado para remover itens do seu Menu.
NOTAS:
Para trabalhar com formulários em menus, é preciso utilizar alguns métodos para visualização:
O método
Show
é utilizado para visualizar um Form.
<nome do formulário>.Show Com método Hide, o Form permanece carregado na memória, mas não é visualizado pelo usuário.
<nome do Formulário>.Hide Os comandos Load e Unload trazem e tiram um Form da memória respectivamente.
Load <nome do Formulário>Unload <nome do Formulário>
Centro de Computação
Gerência de Atendimento ao Cliente (e-mail [email protected])
Visual Basic 5.
Exercício 10: Construa um Menu
Para
este
exercício,
abra
o^
Project
do
exercício
anterior
(exercício 9). E construa um menu como a figura abaixo mostra:
Tela do Exercício
NOTAS: Para
mostrar
os
formulários
de
Inclusão,
Alteração/Exclusão
e
Consulta a partir dos menus, utilize os métodos apresentados napágina anterior (54).
Centro de Computação
Gerência de Atendimento ao Cliente (e-mail [email protected])
Visual Basic 5.
O que é um Recordset?
É um conjunto de linhas e colunas que contém todos dados da tabela.
O
Data
Control
que
abre
um
banco
de
dados
carrega
esse
Recordset.
Métodos do Recordset
MoveFirst
: este método move do registro atual para o primeiro
registro da sua tabela.
MoveNext
: este método move do registro atual para o próximo
registro.
MovePrevious
: este método move do registro atual para o registro
anterior.
MoveLast
: move do registro atual para o último registro da tabela.
Sintaxe: data1.Recordset.Movefirst.Para especificar um tipo de Recordset, configure a propriedade RecordsetType para:
Recordset Type
Value
Table
Dynaset
Snapshop
NOTAS:^ BOF (Begin of File)
Ana CamposJosé SilvaJoão CastroSueli PivaRute Salim
EOF (End of File)
Métodos para controlar o início e o fim do arquivo
BOF: controla o início do arquivo.EOF: controla o final do arquivo.Sintaxe: data1.recordset.BOF (para controlar o início do arquivo).
data1.recordset.EOF (para controlar o fim do arquivo).
Por exemplo:Private Sub cmdProximo_Click()
‘este botão tem a função de ‘navegar para o próximo registro‘do Data Control.If data1.recordset.EOF then
MsgBox “Final de Arquivo!!”
Else
Data1.recordset.movenext ‘MoveNext é o método utilizado para mover a posição do‘Data Control para o próximo registro. End If
End Sub
Centro de Computação
Gerência de Atendimento ao Cliente (e-mail [email protected])
Visual Basic 5.
Acessando um Banco de Dados através do
DATA CONTROL (continuação)
Propriedades para a manipulação de Final de arquivo (EOF - end of file) e início de arquivo (BOF - begin of file):
O objeto Data Control também gerencia o que acontece quando encontra um Recordset vazio (sem registros). As propriedades quedevemos trabalhar para controlar as ações que o Data Control devetomar são:
BOFAction
: indica qual a ação que o Data Control deve tomar
quando a propriedade BOF for igual a TRUE, ou seja, quando forcomeço de arquivo. Valores possíveis:
Move First: o Data Control moverá o ponteiro para oprimeiro registro do arquivo.
BOF: o Data Control continua na posição de começo dearquivo.
EOFAction
: indica qual a ação que o Data Control deve tomar
quando a propriedade EOF for igual a TRUE, ou seja, quando for fimde arquivo. Valores possíveis:
Move Last: o Data Control moverá o ponteiro para oúltimo registro do arquivo.
EOF: o Data Control continua na posição de fim dearquivo.
AddNew: indica que o Data Control deve ir para um novoregistro.
NOTAS:
