VB.Net

Dicas

Como ao dar um enter no Textbox ele funcionar como um Tab

Como permitir somente números, vírgula em uma caixa de textos (TextBox, MaskedTextBox)

Como permitir somente letras em uma caixa de textos (TextBox, MaskedTextBox)

Como criar Array

Selecionar todo o texto de um controle TextBox

Propriedades do Formulário

Propriedades do Label

Propriedades do TextBox

Propriedades do Botão

Classes de acesso a dados

Abrir o combo box quando o foco entra

Codificação para formatação do datagridview

Tratamento de datas no VB.NET

Como ao dar um enter no Textbox ele funcionar como um Tab

Dê um duplo clique no TextBox e no evento KeyPress coloque o código abaixo:
If (e.KeyChar = ChrW(13)) Then
SendKeys.Send("{TAB}")
e.Handled = True 'Para remover aquele som...
End If
Dica: Se você colocar este código dentro do Form_KeyPress, todas as caixas funcionarão. Deverá ser alterada a propriedade KeyPreview para True.

Como permitir somente números, vírgula em uma caixa de textos (TextBox, MaskedTextBox)

Dê um duplo clique no TextBox e no evento KeyPress coloque o código abaixo:
If Not Char.IsNumber(e.KeyChar) And Not e.KeyChar = vbBack And Not e.KeyChar = "," Then
e.Handled = True
End If

Como permitir somente letras em uma caixa de textos (TextBox, MaskedTextBox)

If Not Char.IsLetter(e.KeyChar) And Not e.KeyChar = vbBack And Not e.KeyChar = "." And Not e.KeyChar = "," Then
e.Handled = True
End If

Como criar Array

Dentro do Form_Load, digite o código abaixo:
'Monta um ArrayList de Softwares
Dim ArraySoft As New ArrayList
With ArraySoft
.Add("Word")
.Add("Excel")
.Add("Access")
.Add("PowerPoint")
.Add("Visual Studio")
.Add("Visio")
.Sort() 'Classifica a lista em ordem alfabética
End With
With Me.lstSoftwares 'listbox onde será exibida a lista
.DataSource = ArraySoft 'Origem dos dados que serão exibidos no listbox
.SelectedIndex = 0 'Será selecionado o primeiro item
End With

Selecionar todo o texto de um controle TextBox
Private Sub txtNome_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtNome.Enter
    ' Faz a selecão do texto ao receber o foco
    txtNome.SelectAll()
End Sub

Existem propriedades comum em vários, outras específicas de cada componente.

Propriedades do Formulário

Size: 107; 147 'Indica a largura e a altura de um componente
Location: 17; 80 'Indica a posição do componente referente a esquerda e a parte de cima de um componente
StarPosition: CenterScreen: 'Centraliza o formulário
Opacity: 'Indica a opacidade (transparência) do formulário. Mínimo 0% e o Máximo 100% (Padrão)
WindowState: Tem as seguintes opções:
0: Normal: o formulário é apresentado no tamanho que foi montado
1: Minimized: o formulário é apresentado minizado. É só dar um clique na Barra de Tarefas, para ele ser exibido
2: Maximized: o formulário é apresentado maximizado.
IsMdiContainer: True: Especifica que o formulário será MDI.
AcceptButton: Permite selecionar qual dos botões ao pressionar a tecla Enter, será executado a codificação existente no mesmo
CancelButton: Permite selecionar qual dos botões ao pressionar a tecla ESC, será executado a codificação existente no mesmo
MaximizedBox: False: Desabilita o botão maximizar
MinizedBox: False: Desabilita o botão minimizar
Observação: Se os dois botões estiverem como false, só será exibido o botão fechar
FormBorderStyle:

KeyPreview: Quando True faz com que uma determinada tecla definida no evento KeyPress seja acionada
Icon: Permite inserir um ícone com extensão .ico na barra de título
StartPosition:

Propriedades do Label

ForeColor: Cor da fonte
BackColor: Cor de fundo
AutoSize: Quando True (padrão) ajusta o conteúdo de acordo com o tamanho do label
TabIndex: É a ordem de inserção do label no formulário. Inicia em zero. Quando você clica no formulário, indo até o Menu View / Tab Order, você pode definir no geral a ordem de cada componente.
Visible: Quando True (padrão) exibe o label.

Propriedades do TextBox

BorderStyle:

Propriedades do Botão

DialogResult: Permite especificar em um determinado botão, algumas opções como: Yes, No, Cancel.
Em um determinado form, você pode controlar qual das teclas o usuário pressionou. Veja o código abaixo:
Dim frmModal As New frmModal
frmModal.ShowDialog()

Select Case frmModal.DialogResult
Case Windows.Forms.DialogResult.Yes
MessageBox.Show("Você pressionou Sim", "Formulário Modal - Botão Sim", MessageBoxButtons.OK)
Case Windows.Forms.DialogResult.No
MessageBox.Show("Você pressionou Não", "Formulário Modal - Botão Não", MessageBoxButtons.OK)
Case Windows.Forms.DialogResult.Cancel
MessageBox.Show("Você fechou o formulário", "Formulário Modal - Botão Não", MessageBoxButtons.OK)
End Select
BackgroundImage: Exibe a imagem como se fosse um papel de parede
Image: Exibe uma imagem
ImageAlign: Especifica o alinhamento da imagem
TextAlign: Especifica o alinhamento do texto

Prefixos utilizados em nomes de controle (na propriedade name)

frm formulário
lbl label
txt textbox
cmd button
cmb combobox
lst listbox
msk maskedtextbox
pic picturebox
dtp datetimepicker
chk checkbox
rb radiobutton
gb groupbox
tmr timer
tab tabcontrol

 

Classes de acesso a dados

Open Connection
Classes:

OleDB
Imports System.Data.OleDB
Dim cn As OleDbConnection
cn = New OleDbConnection("Provider=SQLOLEDB; Server=servidor; DataBase=Northwind;user id=sa;
pwd=senha")
cn.Open()

Utilizando o SQL Express
Imports System.Data.SqlClient
Dim dt As DataTable
Dim da As SqlDataAdapter
Dim ds As DataSet
Dim conBD As SqlConnection
Dim cn As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Northwind\Northwind.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
Dim sSQL As String = "Select * From Customers"
conBD = New SqlConnection(cn)
ds = New DataSet
'O SqlDataAdapter preenche (popula) o DataSet, permitindo inserir, atualizar, excluir registros da tabela
'Através do método Fill, preenche ou exibe os registros por exemplo em um grid, listbox
da = New SqlDataAdapter(sSQL, cn)
da.Fill(ds, "Customers")
dt = dsVendedor.Tables("Customers")
cn.Open()

Utilizando o Access
Imports System.Data.OleDB
Dim cn as OleDbConnection
cn = New OleDbConnection("Provider=Microsoft.JET.OLEDB.4.0; Data Source=C:\Northwind\Northwind.mdb")
cn.Open()

Abrir o combo box quando o foco entra
Selecione o combo no formulário. Vá até janela de Propriedades (onde você altera o name, text, etc.) e no ícone Events, dê dois cliques no Evento Enter.
Digite o código: System.Windows.Forms.SendKeys.Send("{F4}")
Agora todo a vez que o foco chegar no combo box, ele será aberto automaticamente. Você poderá apertar as iniciais, para selecionar o item que deseja.

Codificação para formatação do datagridview
Crie a subrotina abaixo:
Private Sub cabecalho()
dgvclientes.Columns(0).HeaderText = "CPF"
dgvclientes.Columns(0).Width = 100
dgvclientes.Columns(1).HeaderText = "Nome"
dgvclientes.Columns(1).Width = 240
dgvclientes.Columns(2).HeaderText = "Lim. Crédito"
dgvclientes.Columns(2).Width = 75
dgvclientes.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
dgvclientes.Columns("limiteCredito").DefaultCellStyle.Format = "C2" 'formata com o tipo moeda
dgvclientes.Columns(3).HeaderText = "Rendimento"
dgvclientes.Columns("rendimento").DefaultCellStyle.Format = "C2"
dgvclientes.Columns(3).Width = 75
dgvclientes.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
dgvclientes.Columns(4).HeaderText = "Gasto"
dgvclientes.Columns(4).Width = 75
dgvclientes.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
dgvclientes.Columns("gasto").DefaultCellStyle.Format = "C2"
End Sub