Truques e Dicas - Tutoriais de Visual Basic

tutoriais

Photoshop

ASP

PHP

jogos

Galerias

fóruns

Flash

TUTORIAIS DE VISUAL BASIC

1. Introdução

Página:

1º Projecto

Constroi um pequeno projecto, cujo objectivo é pegar nos valores introduzidos em Escudos (PTE) e transformá-los em Euros (EUR).

Clica em Project da Toolbar, seguido de Components e activa a CheckBox "Microsoft Mask Edit Control 6.0", seguido de OK, o que te fará aparecer na ToolBox mais um objecto.

Para este projecto, clica em File da Toolbar, New Project. Será aberta uma caixa de diálogo cujo projecto por defeito será o Standard EXE. bastará clicares em OK. Abrir-se-á um novo Form. Alteras a propriedade Caption para "Valores em Euros a partir de PTE". Adicionas uma TextBox, com o nome txtpte e uma MaskEdBox com o nome maskeuro. Duas Labels a indicar o que significa cada uma das caixa e dois botões. O 1º terá o nome de cmdfim com a propriedade Caption= "TERMINAR" e a letra "T" sublinhada. O 2º com o nome de cmdoutro, e a propriedade Caption="OUTRO CÁLCULO", sendo o 1º "O" sublinhado. Fixa a janela no meio do Ecran.

MaskEdBox

Tenta fazer este projecto sem ajuda, recorrendo unicamente aquilo que já aprendeste.

De seguida irei mostrar-te a imagem do projecto, assim como o código utilizado.

Private Sub cmdfim_Click()
End
End Sub

Private Sub cmdoutro_Click()
txtpte.SetFocus
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
     If KeyAscii = 13 Then
     SendKeys "{tab}"
     KeyAscii = 0
     End If
End Sub

Private Sub txtpte_GotFocus()
txtpte.Text = ""
MaskEdBox1.Text = ""
End Sub

Private Sub txtpte_KeyPress(KeyAscii As Integer)
     Select Case KeyAscii
       Case vbKeyDelete
       Case vbKeyBack
       Case 48 To 57
       Case Else
          Beep
          KeyAscii = 0
     End Select
End Sub

Private Sub txtpte_LostFocus()
     If txtpte <> "" Then
          txtpte.Text = Format(txtpte.Text, "Currency")
          MaskEdBox1.Text = txtpte.Text / 200.482
     End If
End Sub

Espero que tenhas tido sucesso.

Seguinte

ANÚNCIOS