[ Home | Linux Sites | Tutoria / Cursos |Internet Rapido | HP | Hacker | Internet Grátis
| Registre o Seu Site | Dicas de Sites | Ganhe Dinheiro na WEB | Museu | Busca | E-Mail ]
Anúncio publicado pelo Soft Click
Mini Curso de Visual Basic 6.0
[ Home | Linux Sites | Tutoria / Cursos |Internet Rapido | HP | Hacker | Internet Grátis
| Registre o Seu Site | Dicas de Sites | Ganhe Dinheiro na WEB | Museu | Busca | E-Mail ]
Anúncio publicado pelo Soft Click
Mini Curso de Visual Basic 6.0
Label
List Box Combo Box
MaskEdit
Data Control
Visual
Data Manager
Printer
Visual Studio.Net
Após a instalação vomos abrir o VB, opte por "Microsoft Visual Basic 6.0" como mostra abaixo
 |
Abrindo, temos: |
 |
Temos as opções abaixo:
Standard EXE Programa padão Windows
ActiveX EXE Programa de automação remota OLE com multiplos acessos
ActiveX DLL Programa de automação remota com DLL. O DLL nãoconseque executar sem o auxilio de outro programa
ActiveX Control Controle no formato Active X, para estrutura de internet
VB Aplication Wizard Assistente que elabora estrutura básica de um aplicativo
ADD IN Adiciona controle adicional ao VB
ActiveX Document DLL Cria aplicativo DLL, passivel de ser aberto pelo Internet Explore
ActiveX Document EXE Cria aplicativo executável que pode ser executado pelo Internet Explore
Opte por Standard.Exe
Standard.Exe é um projeto padrão
Agora temos:
 |
Temos a sua esquerda a Caixa de Ferramentas
Temos tambem a área de trabalho à direita
|
 |
Na área de trabalho encontramos com uma cor cinza claro e cheio de pontinhas. É, la que vomos construir o layout do nosso programa.
Agora clique com o mouse sobre o botão command botton e arraste para a sua área de trabalho, ou se preferir de um duplo clique sobre ele, na caixa de ferramentas.
|
Este botão recebe o nome de Command1 e se vier a criar outros
receberão os nomes de Command2, Command3, Command4, e sim por
diante. Porem veremos mais adiante como mudar este nome. Estes botões podem ser arrastado usando o mouse e colocando
no lugar que achar mais adequado Propriedade é caracteristica de um objeto, tamanho, posição,
cor, etc... Evento é uma ação iniciada pelo usuário
ou sistema, como clicar, passar o mouse por cima Método é a maneira que se faz, que define o comportamento, into é feito pelo código de programação Objetos são os botões encontrado em Toolbox (caixa
de ferramenta) |
 |
Em propriedades podemos definir cor, tamanho, nome, entre outras caracteristica que estudaremos mais adiante
Nesta caixa temos "Alphabetc" (ordem alfabética) e "Categorized" (ordem p/ categoria) em ambos os casos temos as mesmas instruções. A diferença é que se encontra em ordens diferentes, alfabética e por categoria
| Na caixa de propriedades temos " Form1 Form " isto mostra que nos temos na caixa de propriedades, as propriedades do formulário Form1 |  |
|
Veja que na propriedade 0-None |
 |
1-Fixed Single 2-Sizable |
| Opçoes de Border Style | Caracteristicas | Dimensionável ? | Borda | Controle |
Aparência
|
| 0-None (nehum) | O Formulário não apresenta borda, título ou controle |
não
|
não
|
não
|
 |
| 1- Fixed Single (fixo simples) | Apresenta barra de titulo e borda com um botão de controle |
não
|
sim
|
sim
|
 |
| 2- Sizable (padrão, dimensionável) | Apresenta borda com todos os controles, permitindo redimensionar, configulação padrão |
sim
|
sim
|
Sim, todos
|
 |
| 3-Fixed Dialog (dialogo fixo) | Apresenta borda fixa ,barra de titulo |
não
|
sim
|
sim
|
 |
| 4- Fixed ToolWindows (janela de ferramenta fixa) | Borda única, com barra e botão close, com tamanho de fonte reduzido |
não
|
sim
|
sim
|
 |
| 5-Sizable Tool Windows (janela de ferramenta dimensionável) | Igual ao Fixed ToolWindows diferença, borda dimensionável |
sim
|
sim
|
sim
|
 |
Agrarde em breve nova atualização
Em propriedade temos Windows State , podemos optar por minimized
ou maxmized
Se optar por maxmized ao iniciar este Form ele ficará maximizado
ou seja ocupara a tela inteira
Se optar por minimized não irá ocupar espaço na
sua tela ele ficará minimizado portanto só aparecerá
na sua barra do inferior do windows
Agrarde em breve nova atualização
Label é um rotulo, serve para criar rotulo ou até mesmo para exibir resultado
Agrarde em breve nova atualização
Clikando em ListBox e ComboBox, podemos desenhar estes na área de trabalho
Ambos cria um a lista de opções, porem o ComboBox usa menos espaço na sua tela
Após criado, na caixa de propriedades temos "List"
onde pode adicionar a lista de items que irá compor
Ao terminar de escrever um item dentro de "List" tecle "enter"
verá que a caixa "List" fechou e tera que abrir outra
vez para introduzir outra linha. Não tem um jeito mais fácil
? Sim tem Ao inves de "enter" esperimente "Ctrl +
Enter" , agora ficou melhor não
| Porem tem uma outra maneira de criar a tal lista sem usar a caixa de propriedades, vomos usar o código como mostra na figula ao lado |  |
Teste e verá que o resultado é o mesmo
Text Box é uma caixa de texto, serve para inserir dados e ou para exibir resultados
Após ter criado o Text Box vomos mudar as propriedades
Na caixa de propreidade procure Multiline agora veja que de padrão
está false "Multiline = false" mude para "Multiline
= true" rode o programa apertando a trecla F5
Perseba que agora pode receber varias linhas de texto (de "enter"
apos terminar a linha)
Agora que ja vimos o Multiline, mantenha o "Multiline = true" e agora veja o ScrollBar está por padrão 0-none porem tem outras opçoes, escolha a opção 1-Horizontal rode o programa apertando a trecla F5, Temos a barra de rolagem horizontal
Vomos ver a opção 2-Vertical na propriedade ScrollBar rode o programa apertando a trecla F5, Temos a barra de rolagem vertical
Novamente na propriedade ScrollBar vomos mudar outra vez, agora para 3- Both, Verifique que tem as duas barras de rolagem
Agrarde em breve nova atualização
Frame é uma moldura, onde pode-se colocar varios objetos, muito usado com Option Botton
Agrarde em breve nova atualização
Check Box é uma caixa de Checagem e pode-se selecionar vários Check Box, se preferir
Agrarde em breve nova atualização
O botão Option Botton só pode ser usado para optar por apenas uma das opções existente
Agrarde em breve nova atualização
Introduzindo imágens usando os botões Image e Picture Box, ambos os botões estão na caixa de ferramenta e basta clickar para introduzir na sua área de trabalho
Após criado na sua área de trabalho clike em Picture na caixa de propriedades e mostre o caminho para a respectiva imágem que deseja colocar
OBS:. Aceita-se as imágens no formato .bmp .jpg .wmf .ico .cur etc...
Em ambos os casos, image e picture box, o procedimento é o mesmo. Afinal onde esta a diferença ?
Mesmo almentando ou diminuir a caixa de imágens (Image e Picture Box) a imágem continua com o mesmo tamanho, apenas a caixa é que muda de tamanho, mostrando toda a imágem ou mostrando uma parte da imágem
Selecionando "Image" e indo para a caixa de propriedades temos "STRECH", por padrão esta desabilitado, note que PictureBox não tem esta opção
Abilitando Strech, depois mude o tamanho da caixa de imágens image. Veja que a imágem se adapta no tamanho da sua caixa de imágens Este é o efeito Strech que o PictureBox não tem
Cuidado com o efeito Strech, ele pucha e repucha a imágem criando distorções
Pode-se clickar na imágem e pode usar este botão como um commond botton, criando códigos para esta botão imágem, para isto basta criar o código apropriado e pronto
Grid é os pontinhos que você vê no fundo da tela Form1, estes pontinhos podem ser configulado para ficar mais juntinhos ou mais distantes, conforme o gosto de cada um, porem não se preocupe em dizer que é feio pois quando o programa estiver pronto estes pontinhos não aparecerão para o usuário
Grid existe para facilitar a localização dos objetos na tela
Agrarde em breve nova atualização
Não estou encontrando Common Dialog na minha caixa de Ferramentas !! O que fazer?
Na caixa de ferramentas de um clicke em um lugar vazio com o segundo botão do mouse e escolha a primeira opção da caixa flutuante, "Components".
Agora procure "Microsoft Common Dialog", pronto agora aplique
Agora sim já temos o botão Common Dialog na caixa de ferramentas
Desenhando o Common Dialog, temos que ele está visível somente quando estamos trabalhando com ele, mas quando rodamos o programa, não está visível, ele só aparece, o seu efeito, no período da execução quando nos o chamarmos via código
O Common Dialog é muito útil, ele chama 4 caixas de diálogo do windows
Agora precisa configular controle Common Dialog para que possamos começar a trabalhar
rem nome_do_CommondDialog.Show.Save
CommondDialog1.Show.Save
rem nome_do_CommondDialog.ShowOpen
CommondDialog1.ShowOpen
rem nome_do_CommondDialog.Flags = 3
CommondDialog1.Flags = 3
rem nome_do_CommondDialog.Show.Font
CommondDialog1.Show.Font
rem nome_do_CommondDialog.Show.Color
CommondDialog1.Show.Color
rem nome_do_CommondDialog.Show.Printer
CommondDialog1.Show.Printer
Está parte de "Common Dialog" não está pronto volte em breve, nova atualização em breve
Agrarde em breve nova atualização
Objetos DriveListBox , DirListBox , FileListBox
Crie na área de trabalho os Objetos DriveListBox , DirListBox , FileListBox e Image
Criando códigos:
Private Sub Drive1_Change ()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change ()
File1.Path = Dir1.Path
End Sub
Private Sub File1_Change ()
Image1.Picture = LoadPicture (File1.Path & "\" File1.FileName)
End Sub
Agora temos um Visualizador de imágens ele pode abrir arquivo imágem, metafiles.wmf ; ícones.ico ; bitmaps .bmp ; .gif ; .jpg
Agrarde em breve nova atualização
Usando o Microsoft Masked Edit
|
O Masked Edit é uma mascara de entrada, que pode
ser criado para padronizar melhor o seu banco de dados |
 |
 |
Agora escolha "Microsoft Masked Edit Control 6.0" Clicke em aplicar Agora sim temos o Masked Edit p/ trabalhar com ele Veja o simbolo abaixo
Dê dois cliques nele, e ajuste o seu tamanho na área de trabalho |
|
Neste exemplo temos 2 Label sendo o OBS:.a aparencia do Mask é semenhante ao TextBox, não confunda Clike uma vez em Mask1 só para selecionar, vá em propriedade Mask |
 |
|
Testando
Ao introduzir um numero no "MaskEdBox1", digitando esta reservado 3 digitos p/ DDD e 4 digitos p/ prefixo mais 4 digitos
Ao introduzir um nome no "MaskEdBox2", digitando em minusculo, observe que a primeira letra fica sempre em maiusculo e ou demais em minusculo
Observe tambem no "MaskEdBox2" ,caso tenha digitado 15 letras "C" na mascala só ira entrar 15 digitos neste campo
Usa-se os caracteres especiais abaixo p/ a criação de mascara no Mask
|
Máscara
|
Descrição
|
|
"#" ou "9"
|
Qualquer digito de 0- 9
|
|
?
|
Qualquer letra de A- Z
|
|
A
|
Qualquer tipo de digito, exceto espaços
|
|
&
|
Qualquer tipode digito, caracter ou espaço
|
|
C
|
Qualquer caracter ou dígito, incluindo espaço
|
|
>C<
|
Converte o caracter que estiver no lugar de C p/ maiusculo ou minúsculo
|
|
.
|
Este pontinho serve p/ separar milhares ( Ex.: 1.000 )
|
|
,
|
Virgula, marcador de pontodecimal
|
|
/
|
Barra Separador de data ( dd/mm/aaaa )
|
|
:
|
Dois pontos Separador de hora ( hh : min : seg )
|
Caixa de menságem é muito usado para informar sobre alertas ao usuário
Esta caixa não pode ser redimensionado pelo usuário
Para dar um exemplo crie um Commad Botton e ponha o código abaixo:
Private Sub Command1_Click()
MsgBox "Feche este aplicativo e execute-o novamente", 48, "Mensagem
de Alerta"
End Sub
Agora execute e clike o botão Command1 e teste
Aparece uma mensagem de alerta
Em qualquer Sub rotina pode-se introduzir o MsgBox
A primeira menságem "Feche este aplicativo e execute-o novamente" é a menságem que aprece na parte interior do MsgBox e a segunda menságem "Mensagem de Alerta" é o Title, ou seja o Titulo que aparece na parte superio e entre as duas menságens tem um numero 48 que representa o tipo de Icone (desenho) que aparece
MsgBox não está terminado, agrarde, em breve nova atualização
Menu Editor é um conjunto de botões do tipo Command Botton, porem deve ter observado que para fazer um programa, vai precisar de muitos botões Command Botton e que o tornaria inviável, pois ficaria com a tela cheia de botoes e não teria espaço para mais nada portanto precisamos de botoes que não ocupe muito espaço da tela, para isto temos Menu Editor
Crie o menu editor de forma a agrupar em funções semelhantes, o primeiro menu (à sua esquerda) costuma ser um FILE (arquivo), e nele se faz tudo relacionado ao arquivo, tais como, novo arquivo, abrir arquivo, salvar arquivo, salvar arquivo como... ,exportar arquivo, importar arquivo, fechar arquivo, sair do programa
Agrupando desta forma fica mais fácil a navegação no seu programa
Agora vomos iniciar a construção do menu
|
 |
Os campos CAPTION e NAME são de preenchimento obrigatório
Em Caption coloca-se o nome que irá aparecer para o usuário, emquanto que Name é o nome para fins de programação que não irá aparecer para o usuário, somente para o uso do programador
Em Caption colocamos "&Arquivo" e em Name colocamos "mnuArquivo"
OBS:. em Name use a nomenclatura Microsoft
No primeiro caso "&Arquivo" usou o simbolo "&" para que o usuário possa navegar via teclado, trata-se de um atalho "ALT + A"
OBS:. em um bom programa permite-se que possa usa-lo, sem o uso do mouse
|
No campo "Name" é o nome deste objeto que o usuário não ficara sabem da sua existencia e tem que usar a nomeclatura Microsoft ficando "mnuArquivo". O simbolo "mnu" siginifica "menu" segundo padrão Microsoft e deve ser escrito em minusculo e o nome a sequir dever ser tambem escrito em minusculo, porem com a primeira letra em maiusculo Clique em NEXT escreva a segunda linha Caption = "A&brir" Name = "mnuNome" Caption = "F&echar" Name = "mnuFechar" O Abrir ficou da forma "A&brir" , selecione e click na seta p/ a direita agora ficou da forma "....A&brir" faça o mesmo com o "F&echar" Ficando conforme a figula ao lado |
 |
| Agora vomos tester esta rotina |
|
Veja que ao Clikar em "Arquivo" abre um janela com "Abrir" e "Fechar" Volte ao código e introduza mais uma linha contendo Caption "-"Name "mnuDidisao1" |
| Agora temos o código ao lado |  |
E veja o seu efeito
|
Na navegação via teclado, é possivel acionar o "Abrir", teclado primeiro "ALT+A", depois techando "b" para "Abrir" ou "e" p/ "fechar"
OBS:. Caso teste, ira ver que ao teclar ou Clickar não ira iniciar nehuma rotina, ou seja não acontecerá nada, pois não tem nehum código escrito para o botão "Abrir" ou "Fechar"
Você escreveu "&Arquivo" e criou um menu ao digitar "....A&brir" deve ter percebido que criou um sub menu, ou seja, um nivel abaixo, porem o VB permite criar até 4 níveis
Portanto pode-se criar outro sub menu, ou seja um nivel mais abaixo
Isto facilita a organização mais racional do seu menu
SHORTCUT
Como usar Shortcut
|
Volte ao Menu Editor, de um clike em cima de "....A&brir" e Clike na seta para baixo de "Shortcut" e escolha "Crtl+B" Faça o mesmo com o "....F&echar" escolhento "Crtl+E" Agora temos 3 maneiras para acionas estes botões: 1 - Via mouse 2 -Via tecaldo "ALT+A" depois teclar "b" ou "e" ( tecla de ativação ) 3 -Teclar direto "Ctrl+B" ou "Ctrl+E" ( tecla de atalho ) |
 |
Abaixo temos algumas teclas de atalho padrão
|
Menu
|
Tecla de atalho
|
Descrição
|
| Edit, Cut | Ctrl + X | Recorta |
| Edit, Copy | Ctrl + C | Copia |
| Edit, Paste | Crtl + V | Cola |
| Edit, Undo | Crtl + Z | Desfaz a ultima ação |
| Edit, Find | Crtl + F | Localiza um fragimento de texto |
| File, Open | Crtl + O | Abre um arquivo ou projeto |
| File, Save | Crtl + S | Salva arquivo |
| File, Print | Crtl + P | Imprime na impressora |
BOTÃO "VISIBLE"
Este botão vem selecionado por padrão, e desta forma o botão será visibel e pasivel de ser clikado, porem pode des selecionar este botão e deixar o botão invisivel, impedindo que o usuário clike sobre ele
Dentro de código pode-se usar Visible = true
ou false ele vai mostrar o botão ou esconder
Caso esconda não será possivel para o usuário saber
que ela existe. No caso do Enabled o usuário sabe que existe,
porem c/ Visible = true não
Deve ter visto a opção Enabled Esta opção é abilitar ou desabilitar o Enabled , normalmente deixa como esta (abilitado), porem se desabilitar o usuário ira ver em um tom de cinza claro e perceberá que não esta disponível naquele momento para ser utilizado, esta opção normalmente é usado atravéz de códigos
Inserindo código no botão "Fechar"
 |
Entre Private Sub mnuFechar_Click() "end" Portanto fica assim: Entre Private Sub mnuFechar_Click() |
Ao ativar este botão "Fechar" ele irá fechar o programa, para isto é possivel usar um das três maneiras abaixo:
1 - Via mouse
2 - Via tecaldo "ALT+A" depois teclar "e"
3 - Teclar direto "Ctrl+E"
Pode se criar um menu dentro do outro
Menu Instantâneo (Menu Pop Up)
Está é um outra forma de menu, trata se de um menu flutuante acionado pelo segundo botão do seu mouse
Cria-se da mesma forma que o menu anterior, usando Menu Editor, porem deve estar invisivel ( oculto ) visible = False
 |
Entre em Menu Editor e crie Caption = nome_do_form Ao textar não ira encontrar nada, porque está invisível, into não quer dizer que não existe Como faço para fezer aparecer o menu ao clikar c/ o segundo botão do mouse ? Para isto precisamos abrir o código e criar algumas rotinas: |
Fim do código
Agora sim vai aparecer o menu flutuante com os "Sub1", "Sub2" e "Sub3" porem não adinata clikar em "Sub1", "Sub2" ou "Sub3" , pois não foi escrito código algum dentro de "Sub1", "Sub2" ou "Sub3"
Debugando o código temos
O que é: Form_MouseDown ?
MouseDown é quando clikar com o mouse ( qualquer botão do mouse
)
Portanto com a sub rotina abaixo entra em ação
assim que o mouse for clikado
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
End Sub
O que ela faz ?
Executa a rotina If....Then.....End If
If .....Then
End If
Mas o que é isto de If (Se) Then (Então) End If ( fim da rotina )?
IF (Se) indica uma condição, Se a condição
for verdadeira Then (então) faz o que estiver escrito após o
termo Then
se a condição não for verdadeira então termina
a rotina c/ End If
Nesta rotina temos como condição "Button =2" ou seja se o botão 2 do mouse for clikado então.... faça algo
Button poderia ser igual a 1, 2 ou 4
1 se for o primeiro botão do mouse, 2 se for o segundo botão do mouse e 4 se for o botão do meio do mouse (se houver e se estiver devidamente configulado o mouse em seu sistema)
O que é nome_do_form .PopupMenu nome_ do_formulario ?
É o Pop Menu que criamos 
Abas
Abas, trata se de uma maneira de criar menus em formato de Abas, ou melhor em formato de fichario
 |
Clicke em um lugar vazio da caixa de ferramentas usando o segundo botão do mouse e escolha componets Agora verá a caixa ao lado, escolha "Microsoft Windows Common Controls 6.0" caso esteje usando VB 6.0 Caso esteja usando VB 5.0 escolha "Microsoft Windows Common Controls 6.0" e pronto Agora temos as ferramentas adicionais na caixa de ferramentas |
Agora sim podemos começar a trabalhar
Clike em TabStrip na caixa de ferramentas e coloque na área de trabalho
Redimencione comforme o seu gosto e desenhe outros comando por cima dele
Abas de formulários
1- Project , Microsoft Forms 2.0 Object Library
botão Multi Page
botão Tab Strip
Abas de formulários,
1) escolha a opção do menu "Project"
2) então escolha a opção "Components" (anexo VBForm1.gif)
3) então escolha no na caixa de texto opção "Microsoft Forms 2.0 Object
Library" (anexo VBForm2.gif)
4) após escolher clique no botão OK , e então o seu Visual Basic já esta
configurado com o controle "Multi Page" que você encontrará na barra
"Geral", ( anexo VBForm3.gif)
Bom se você já tem noções basicas do VB 6, então você falcilmente irá trabalhar com esse controle:
Analizando suas propriendas, UMA DICA PARA SELECIONAR AS "ABAS" ou etiquetas
do controle, de um clique com o botão direito do mause e escolha a opção
EDIT, que normalmente é a ultima opção, e então você podera selecionar as
paginas do controle usando o mause normalmente, clique na pag1 ou pag2 com o
botão normal do mouse.
ABAS não está pronto agrarde nova atualização
Barra de Progresso
Clike em Progress Bar na caixa de ferramentas e coloque na área de trabalho
Agrarde em breve nova atualização
Nomenclatura Microsoft
|
OBJETO
|
PREFIXO
|
| "Outline" | out |
| "TabStrip" | tab |
| Árvore (Tree view) | tre |
| Barra de Ferramenta (toolbar) | tlb |
| Barra de progresso (progress bar) | prg |
| Barra de Rolágem Horizontal (horizontal scroll bar) | hsb |
| Barra de Rolágem Vertical (vertical scroll bar) | vsb |
| Barra de Status (status bar) | sta |
| Botão de Comando (command button) | cmd |
| Botão para Animação(animated button) | ani |
| Caixa de Texto (text box) | txt |
| Caixa de Verificação (check box) | chk |
| Combo box | cbo (ou cmb) |
| Combo de Dados (data-bound combo box) | dbcbo |
| Comunicação (communications) | com |
| Contador de tempo (timer) | tmr |
| Contole de dado (data control) | dat |
| Diálogo (common dialog) | dlg |
| Figura (picture) | pic |
| Formulário | frm |
| Formulário MDI | mdi |
| Grade (grid) | grd |
| Grade de dado (data-bound grid) | dbgrd |
| Imagem | img |
| Legnda (label) | lbl |
| Linha | lin |
| Lista ( list box ) | lst |
| Lista de "Drive" (drive list box) | drv |
| Lista de Arquivo ( file list box ) | fil |
| Lista de dado (data-bound list box) | dblst |
| Lista de diretório (directory list box) | dir |
| Lista de imagens (image list) | ils |
| Menu | mnu |
| Moldura (frame) | fra |
| MS Flex grid | msg |
| MS Tab | mst |
| OLE | ole |
| Painel tridimensional (3D Panel) | pnl |
| Relatório (report) | rpt |
| Texto formatado (Rich TextBox) | rtf |
Comentário
Dentro do código deve por uma linha de comentário antes de cada rotina, este comentário é para auxiliar o programador que estiver dando manutenção no código deste programa
O comentário não faz parte do processamento de códigos, não influencia em rotinas de código
abaixo temos o código "form2.show" em seguida o comentário explicando para que serve este código
form2.show 'comentário
Na sua empresa tem inumeros programadores, portanto o que um escreve pode não ser interpretado corretamente pelo outro programador Mesmo que só tenha um programador na empresa, mais tarde a empresa pode contratar outro programador e ele pode ter que dar manutenção em seu programa
Se este programador for pouco competente ele pode não entender os códigos escrito por você e ele pode querer apagar tudo e refazer, para isto escreva comentários para que qualquer pessoa de baixo conhecimento possa entender
O comentário se introduz com o simbolo apostrofe ' ou escreva " rem " antes do comentário
shell "c:\windows\calc.exe"
Pronto ao Clikar neste botão aparecerá a Calculadora do Windows
If KeyAscii =13 Then
Key Ascii = 0
SendKeys "{Tab}"
End IfEnd Sub
Agrarde em breve nova atualização
|
Com o Controle Data podemos manipular dados de um banco
de dados |
  |
Precisamos dar um caminho para que o VB encontre o banco de dados, portanto selecione o objeto Controle Data em propriedades procure "DataBaseName" clicke" ao lado e dê o caminho (lembre se que você tem previamente o banco de dados pronto, caso não tenha providencie)
Pronto agora já criamos um vinculo com o arquivo, porem ainda não funciona, só fizemos uma parte do trabalha, ainda mais
Deve saber que dentro de um banco de dados do tipo Access ou Dbase tem um ou mais tabelas, pois bem não definimos o vinculo com as tabelas existentes dentro deste banco de dados. E como fazer ?
Em propriedades procure RecordSource e vomos criar o
vinculo com a tabela, clickando do lado de RecordSource temos
a lista de tabelas existente neste banco de dados (caso o seu banco de dados
não tenha tabela não aparecerá nada, providencie uma
tabela)
Ainda não funciona !!! Calma tem mais trabalho pela frente
O controle Data já criou o vinculo, ainda precisa criar novos TextBox
Exemplo:
Vomos dizer que na tabela do seu banco de dados tenha o campo "num" (numérico) e o campo "nome" (String)
Crie 2 TextBox o primeiro para o campo "num" e o segundo para o campo "nome"
Agora vomos criar as ligações destes TextBox com o banco de dados
No TextBox1 temos em propriedades "Data Source" Clike e vincule ao campo Data1 ( Data1 é o nome do objeto Controle Data ) agora em "Data Field" Clike e vincule ao campo "num"
Vomos fazer o mesmo com TextBox2, temos em propriedades "Data Source" Clike e vincule ao campo Data1 ( Data1 é o nome do objeto Controle Data ) agora em "Data Field" Clike e vincule ao campo "nome"
Pronto agora está funcionado basta rodar o programa (F5) e clickar na seta de Controle Data para mudar de registro
Próximo passo, Manipulando Registro
nome_data.Recordset.AddNew
Está linha irá limpar todos os campos da sua tela e ira adicionar na memória, ou seja não ira inserir na tabela de dados
nome_data.Recordset.update
Agora com este botão, vomos inserir os dados da memória p/ a tabela
nome_data.Recordset.Delete
Após deletar (apagar) um registro, pode-se observar que continua vendo o registro apagado, como se não trivese sido apagado, portanto pode-se mover para um outro registro a fim de mostrar ao usuário que realmente foi apagado
Para isto veja os códigos abaixo
Agrarde em breve nova atualização
Variáveis são aquilo que guarda um informação, para ser utilizado posteriormente
Restrições quanto ao nome da variável
Não é obrigatório declarar as variáveis, porem
isto deve ser feito
Declarar variáveis é definir caracteristicas para estas variáveis,
ou seja é definir o tipo de variável
Tipos de Variáveis
As variaveis tem a função de receber as informações
e armazenar temporariamente
Elas podem armazenar quase tudo, seja numero, ou letras
Primeiro, se deve declarar uma variável antes de usar, usando o termo
"Dim"
As variáveis podem ser do tipo:
|
Tipo de Dados
|
Armazena
|
Caracter
|
Tamanho
|
Faixa de Valores
|
| Byte |
Numero Inteiro
|
Nenhum |
1 byte
|
0 até 255
|
| Integer ( Inteiro ) |
Numero Inteiro
|
%
|
2 bytes
|
de -32.768 à 32.767
|
| Long Integer ( Inteiro Longo ) |
Numero Inteiro
|
&
|
4 bytes
|
de -2.147.483.648 à 2.147.438.647
|
|
Single |
Numero Decimal
|
!
|
4 bytes
|
de -3,042823E38 à 3.402823E38
|
|
Double |
Numero Decimal
|
#
|
8 bytes
|
4.94065645841247E324 até 1.79769313486232E308
|
| String |
Texto
|
$
|
10 bytes + 1 byte por caracter
|
0 até aproximadamente 2 bilhões |
| Boolean |
Valor lógico
|
Nenhum |
2 bytes
|
Verdadeiro ou falso
|
| Date ( Data ) |
Data e hora
|
Nenhum |
8 bytes
|
de 1 de janeiro de 100 à 31 de dezembro de 9999
|
| Currency |
Numero até 15 digitos à esquerda e até 4 digitos
à direita do separador decimal
|
@
|
8 bytes
|
+/- 9E14
|
| Variante ( Variant ) |
Qualquer coisa
|
Nenhum
|
16 bytes (c/ numeros); 22 bytes + 1 byte por caracter (c/ strings)
|
Qualquer tipo de dados
|
Declarando Variáveis
Pode-se declarar variáveis de modo explícita ou implícita
Declara-se as variáveis de modo explícita usando "DIM"
O "nomedavariavel_1" é o nome da variavel e é definida o tipo da variável usando "As tipodevariavel", note que foi usado virgula para definir uma segunda variável, poderia definir quantar variáveis quiser na mesma linha de código, usando virgulas
Exemplo:
Dim nomevariavel As Integer
Definimo a variavel de nome "nomevariavel" , "As" como sendo do tipo "Integer" numerico inteiro
Decalra-se variáveis de modo implícita usando os simbolos "%","@", "!","&" "#" e "$" conforme a tabela acima
String de Comprimento Fixo
Dim nomevariavel As String *num
Exemplo:
Dim variavel As String*15
A variável de nome " variavel " recebe a caracteristica de String com o maximo de 15 caracteres
Este Option Explicit obriga a usar as variáveis declarando
de modo explicito, into pode evitar erros nos nomes das variáveis
caminho Tools, Option
Agrarde em breve nova atualização
Constantes nada mais é que uma variável com valor fixo definido pelo código
Const nomedacosntante As tipodaconstante = valor
O "tipodaconstante" nada mais é que os tipos de variáveis já visto anteriormente
Exemplo:
Const pi As Currency = 3,14159265359
Criamos a constante de nome "pi" do tipo "Currency" com valor "3,14159265359"
Sempre que houver nescecidade deste numero basta usar a constante "pi" ao inves de usar o numero "3,14159265359"
| Operação | |
| Adição |
+
|
| Subtração |
-
|
| Multiplicação |
*
|
| Divisão |
/
|
| Modulo |
mod
|
| Exponenciação |
^
|
| Divisão Inteira |
\
|
Divisão Interira divide o numero e retorna apenas a parte intera do numero
Somando String ou Concatenação de String
Para somar String usa se o simbolo "&"
novostring = string1 & string2
No exemplo acima, caso o valor de string1 seja = 1 e o valor de string2 for = 2, temos como resultado novostring = 12
Ou seja somou "1" (string=letra) com "2" (string=letra) e resultou em "12"(string=letra)
Pode ser útil para uma mala direta, nos campos de nome enderço e outros pode usar a soma de String para personalizar as correspondencias
Controlando Data, somando, subtraindo, data do sistema, hora do sistema
nome_do_botão = Date ' mostra a data do sistema,
pode-se usar TextBox ou Labe
nome_do_botão = Time ' mostra a hora do sistema, pode-se usar
TextBox ou Label
Agrarde em breve nova atualização
DateDiff
DateDiff Calcula a diferença de duas datas
DateDiff (intervalo,data1,data2)
intervalo é uma String escrito entre aspas
Exemplo:
| Crie a tela ao lado Com 3 Label , 3 textbox e 1 commond Botton |  | mantenha os nomes dos campos no botão command1 crie o códigos abaixo |
Introduza uma data no primeiro campo, uma segunda data no segundo campo e clike o botão calcular e o resultado aparecerá no terceiro text box (Text3)
DateAdd
DateAdd Soma ou subtrai datas
DateAdd (intervalo,data1,data2)
Exemplo:
| Crie a tela ao lado Com 3 Label , 3 textbox e 1 commond Botton |
|
mantenha os nomes dos campos no botão command1 crie o códigos abaixo |
Private Sub Command1_Click()
Dim num1 As Date ' Decrara a valiável "num1" como data
Dim num2 As Date ' Decrara a valiável "num2" como data
num1 = Text1.Text ' A variável "num1" recebe o valor do campo Text1.text
num2 = Text2.Text ' A variável "num2" recebe o valor do campo Text2.text
resultado = DateAdd("d", num1, num2) ' A variável "resultado" recebe o valor do DateAdd
Text3.Text = resultado ' O campo Text3.text mostra o valor da variável "resultado"
End Sub
Introduza a primeira data no primeiro campo, introduza a segunda data no segundo campo e clike no botão "calcular" e mostrará o resultado no terceiro campo
Agrarde em breve nova atualização
O recurso OLE é um mecanismo para "chamar" outro aplicativo Microsoft como por exemplo Excel ou Word, desdeque tenha este programa instalado na máquina em questão
Primeiro clike duas vezes no icone OLE na caixa de ferramenta, depois clike duas vezes na figula OLE para entrar no código
Private Sub OLE1-dblClik()
OLE1.CreateEmbed "". "excel.sheet" ' Cria uma planilha incorpolada do Excel
End sub
Private Sub OLE1-dblClik()
OLE1.InsertObjDlg ' Permite o usuário escolher o objeto a ser criado
End sub
Propriedade SizeMode
Vá para caixa de Propriendades procure SizeMode e veja as opções abaixo
| Codigó de SizeMode |
Valor
|
Modo de Uso |
| vbOLESizeClip ( padrão ) |
0
|
Recorta o objeto para se adaptar ao controle OLE |
| vbOLESizeStretch |
1
|
Aumenta ou diminui a altura e largura p/ adaptar ao controle, não mantem as proporções originas do objeto |
| vbOLEAutoSize |
2
|
Redimenciona o comtrole com o objetivo de ajustar altura e largura do objeto |
| vbOLESizeZoom |
3
|
Ajusta altura ou largura do objeto p/ adequar ao controle |
Agrarde em breve nova atualização
 |
Clike em "Add-Ins" "Visual Data Manager" |
 |
Clike "File" "News", Podese criar banco de dados Access, Dbase, FoxPro,Paradox ODBC ou txt escolha "Microsoft Access" "Version 7.0 MDB..." e pronto agora basta dar o nome do arquivo MDB que quer criar e está criado um banco de dados access verão Office 97 |
Versão 7.0 MDB é o Access do Office 97
OBS:. o VB 6.0 não aceita Access do Office 2000, portanto caso esteja usando o Office 2000 deve salvar como se fose a versão anterior
Naturalmente que este banco de dados não contem tabela de dados tão pouco informação
Proximo passo criar um tabela de dados
Agrarde em breve nova atualização
Agora iremos mostrar como trabalhar com arquivos texto
Abrindo um arquivo texto
Open CaminhoDoArquivo For Modo As #NumDoArquivo
CaminhoDoArquivo é o caminho para se chegar ao arquivo
Modo é a palavra chave como Input, Output
NumDoArquivo é um numro inteiro de 1 a 255
Este numero de arquivo sera associado na ocasiom em que for aberto o arquivo Este numero se refere ao arquivo aberto pois pode ter diverços arquivos abertos ao mesmo tempo
Usando CommonDialog :
Opem CommonDialog1.NomeArquivo For Input As #1
OPEN Abre um arquivo para entrada ou saida de dados
LINE INPUT
EOF Verifica o fim do arquivo
Agrarde em breve nova atualização
Enviando dados para impressora
O código abaixo altera a fonte p/ tamanho 14
Printer.FontSize = 14
O código abaixo imprime o respectivo Forme
NomeDoform.PrintForm
A função " If .....Then " é uma função condicional
If significa SE e Then significa ENTÃO ,ou sejá IF (Se) condição for verdadeira THEN (Então) faça algo
Sintaxe
IF (Se) ...condição for veridica... THEN (Então)
...faça algo....
END IF
Se a condição for verdadeiura executa as instruçoes contidas entre THEN e END IF porem se a condição não for verdadeira o processamento pula para logo após o END IF
Uma função IF .... THEN ...... ENDIF pode estar dentro de um outro IF .... THEN ...... ENDIF criando assim uma condição mais complexa
If .....Then ....
Else .... End If
Sintaxe
IF (Se) ...condição ... THEN (Então) ...faça
algo se a condição for True ( verdadeira )....
ELSE ...faça algo se a condição for False ( falsa )...
END IF
O Select Case faz o papel de varios If ...Then...
Sintaxe:
Select Case <variável>
Case índice1
instrução 1
Case índice 2
instrução 2
Case índice N
instrução N
Case Else
instrução
End Select
Exemplo:
Com If Then pode-se criar (primeira opção):
If num =1 Then
soma = soma + 1
End If
If num =2 Then
soma = soma + 1
End If
If num =3 Then
soma = soma + 1
End If
Com If Then pode-se criar (segunda opção):
If num =1 Or num =2 Or num =3 Then
soma = soma + 1
End If
Ou pode usar Select Case p/ fazer a mesma coisa (terceira opção):
Select Case num
Case 1,2,3
soma = soma +1
End Select
Mais uma função condicional
Sintaxe
IF (Se) ...condição ... THEN (Então) ...faça
algo se a condição for True ( verdadeira )....
ELSEIF
Tambem conhecido como loops For
For Next é uma sub rotina, na forma de looping e normalmente usa uma variável usada como contador, para contar os ciclos do looping.
For i = 1 to 5
MsgBox "Ver num."& i " `mostra a mensagem Ver num e o valor
de i
Next i `vai para o prox passo
Laço Do
Laço Do ou Loops Do é muito semelhante ao For Next
Trata-se de uma outra maneira de Looping (rotina loop)
Existe dois tipo o "Do While" e "Do Until"
" Do While " repete a rotina enquanto a condição for verdadeira (valor True)
" Do Until " repete a rotina até que a condição seja verdadeira (valor True)
A rotina "Do While" inicia com a palavra chave "Do While" e termina com "Loop"
A rotina "Do Until" inicia com a palavra chave "Do Until" e termina com "Loop"
Obs:. Pode se encontrar rotinas (loops) iniciando com "While" e terminando com "Wend" , porem não a utilize pois são pouco flexíveis
API
API
Agrarde em breve nova atualização
.NET
A Microsoft vai lançar o pacote .Net (deve ler "ponto NET"ou "dot NET"), este pacote é destinado a programadores, e já está no mercado
Possui as linguagens Visual Basic.net, Visual C++ e C# este ultimo é uma nova linguagem de programação baseado em C e tem como finalidade facilitar a vida do programador e é um ferramenta voltado para a WEB O o recurso Framework.Net vai permitir desenvolver aplicativo multiplataforma (para cliente).( aplicativo multiplataforma é um aplicativo que funciona em qualquer sistema operacional )
Para instalar o Visual Studio.Net recomenda se um micro com pelo mesnos 128 MB de RAM
EM BREVE NOVA ATUALIZAÇÃO, AGUARDE
[ Home | Linux Sites | Tutoria / Cursos |Internet Rapido | HP | Hacker | Internet Grátis
| Registre o Seu Site | Dicas de Sites | Ganhe Dinheiro na WEB | Museu | Busca | E-Mail ]
