End Sub

[evento] é um dos eventos na lista visível ‘ no drop-down na parte superior direita desta ‘ janela. Private Sub buttonAdd_Click() ‘ Exibe uma mensagem de erro se o usuário ‘ não tiver preenchido os campos inputNome ‘ e inputEmail. Em seguida, encerra a ‘ execução da rotina. If inputNome.Value = Empty Or inputEmail = Empty Then MsgBox “Você deve fornecer os dados para cadastrar.” Exit Sub End If Dim i As Integer ‘ Percorre a região definida como tabela ‘ de registros…

Then cheio = True Return cheio End Function 'O propósito deste método é recuperar a posição da primeira ocorrência do nome procurado Public Function getPosicaoSequencial(ByVal nome As String) As Integer Dim posicao As Integer = -1 For i = 0 To indice If (Me.nome(i) = nome) Then posicao = i Exit For End If Next Return posicao End Function 'O propósito deste…

1. OCULTAR BARRAS DE FERRAMENTAS: Sub Ocultando_Barras_Ferramentas() ActiveWindow.DisplayGridlines = False Application.DisplayFormulaBar = False ActiveWindow.DisplayHeadings = False ActiveWindow.DisplayHorizontalScrollBar = False ActiveWindow.DisplayVerticalScrollBar = False ActiveWindow.DisplayWorkbookTabs = False End Sub 2. BUSCAR PALAVRA: IMPORTANTE: a) activevecell.address  mostra o endereço da célula ativa b) Format(Now(), "dd/mm/yyyy hh:mm:ss")  formata celula de acordo

Raio Sub circulo() Dim raio As Single Dim superficie As Single Const pi As Single = 3.14 raio = InputBox("Qual o raio do circulo?") superficie = pi * raio ^ 2 MsgBox " a superficie do circulo é " & superficie End Sub Rectangulo Sub rectangulo() Dim L1 As Single Dim C1 As Single Dim area As Single L1 = InputBox("Qual a largura do rectangulo?") C1 = InputBox("Qual o comprimento do resctangulo") area = L1 * C1 MsgBox " A Area do rectangulo é " & area End Sub Media…

Private Sub Button1_Click(ByVal sender As System.Object, Handles Button1.Click TextBox1.Text = TextBox1.Text & 1 End Sub Private Sub Button2_Click(ByVal sender As System.Object, Handles Button2.Click TextBox1.Text = TextBox1.Text & 2 End Sub Private Sub Button3_Click(ByVal sender As System.Object, Handles Button3.Click TextBox1.Text = TextBox1.Text & 3 End Sub Private Sub Button4_Click(ByVal sender As System.Object, Handles Button4.Click TextBox1.Text = TextBox1.Text & 4 End Sub Private…

DataTable Private conn As New Odbc.OdbcConnection("DSN=pousadatech") Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load txtLogin.Focus() conn.Open() tentativas = 0 Dim adp As New Odbc.OdbcDataAdapter("Select * from login", conn) dtb.Clear() adp.Fill(dtb) conn.Close() End Sub Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)…

Formulário Cadastro de Produto Private Sub btnCadastrar_Click() 'declarar variaveis Dim linha As Integer Dim ws As Worksheet Dim codigoProduto As Integer Dim descricao As String Dim quantidadeEstoque As Integer Dim valorUnitario As Currency Dim valorTotal As Currency 'Identificar qual Planilha ta a Tabela Set ws = Worksheets(1) 'Posicionar celula abaixo da ultima prenchida linha = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row 'verificar o que o usuário digitou certo If Not…

'************************************************* '* subrotinas '************************************************* ' ' Declare Sub Apaga_disp() Declare Sub Atampa() Declare Sub Centro() Declare Sub Desvia_robo(byval Dir As Byte) Declare Sub Ftampa() Declare Sub Imp_comando(byval C As Byte) Declare Sub Msg_lixo() Declare Sub Msg_obst() Declare Sub Msg_pronto() Declare Sub Para() Declare Sub Pfrente() '************************************************* '* variáveis…

referência absoluta. 1. a. Sub Fonte() ' ' Fonte Macro ' 'Altera a fonte da tabela para Tahoma, 11, titulos em negrito e campo dos valores ‘para formato moeda ' Range("A1:D9").Select With Selection.Font .Name = "Tahoma" .Size = 11 End With Range("A2:D2").Select Selection.Font.Bold = True Range("B3:B9,D3:D8").Select Selection.NumberFormat = "$ #,##0.00" End Sub b. Sub Cor() ' ' Cor Macro ' Altera…

Private Sub entrar_Click() If usuario.Text = "Renato" And senha.Text = "Senai" Then ' MsgBox "Login realizado com sucesso", vbExclamation, "Seja bem vindo!" Unload login menu.Show Else MsgBox "SENHA ou USUARIO incorreto", vbInformation, "Login" usuario.Text = "" senha.Text = "" End If End Sub ================================================ Private Sub sair_Click() Application.Quit End Sub ================================================ Código da tela menu:…