End Sub

do seu arquivo será feita no caminho indicado: Código VBA Frm_Login Private Sub UserForm_Activate() Application.Visible = False TBx_Senha.Enabled = TBx_Usuario.Text "" CBt_Ok.Enabled = (TBx_Usuario.Text "" And TBx_Senha.Text "") End Sub Private Sub CBt_OK_Click() Dim Linha As Integer On Error GoTo NaoEncontrado Linha = Sheets("Login").Range("A:A")

resultado. Utilize a interface sugerida. Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If (Val(TextBox1.Text) < 0) Then TextBox2.Text = Val(TextBox1.Text) * 3 ElseIf (Val(TextBox1.Text) > 0) Then TextBox2.Text = Val(TextBox1.Text) * 2 Else TextBox2.Text = "ZERO" 'MsgBox("Zero.", MsgBoxStyle.Information, "RESULTADO") End If End Sub Private Sub Button3_Click(ByVal sender As System.Object,…

Klébia Thomé – klebia@uninove.br – Tecnologia em Informática Public Sub abrebanco() conecta = New ADODB.Connection conecta.Open("Provider = MICROSOFT.JET.OLEDB.4.0;data Source=bdredes.MDB") 'bdredes.mdb deverá ser substituido pelo nome do banco de dados que foi desenvolvido. LEMBRE-SE, coloque-o no subdiretório: Bin> DEBUG End Sub Public Sub limpa() With Form1 .txtcod.Text = "" .txtnome.Text = "" End With End Sub Public Sub carregagrid() 'exibe informação da tabela no grid tabela…

Public x As Single y As Single r As Single operador As String 'Ponto Decimal Private Sub Ponto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ponto.Click Dim blnPonto As Boolean = False If blnPonto = False Then 'Se não existir vírgula no número 'Coloca-se a vírgula Display2.Text = Display2.Text & "." blnPonto = True 'alterando o valor da variável para TRUE End If End Sub Private Sub Zero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)…

procedimento / método / evento criado em tempo de projeto? Funções/procedimento: Private Sub Private Sub CalcBS_Click Private Sub CalcCan_Click Procedimento privado pode ser utilizado apenas Private Sub CalcCE_Click pelo módulo em questão Private Sub CalcDiv_Click Private Sub CalcRes_Click Private Sub CalcSub_Click Private Sub CalcMul_Click Private Sub CalcPlus_Click Private Sub CalcSign_Click End Sub e) Comente o que ocorre em cada linha de código inserida…

que descreva o função daquele form. A tela de código deverá estar desta forma, antes de iniciar a programação: Public Class Form1 e End Class. A programação será desenvolvida entre essas linhas. Atividade somar dois valores. Para programar o botão somar, você deve clicar duas vezes sobre ele. A tela de programação se abrirá com duas novas linhas. Private sub btnsomar_click..... Observe que o nome se refere ao nome do botão. Agora vamos programar esse botão, copiando o código…

valor de reajuste e salário reajustado. Public Class Form1 Private Sub btnproc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproc.Click 'Botão Processar Dim salario, reajuste, salreaj As Double salario = Val(txtsal.Text) If salario > 1500 Then reajuste = salario * 0.08 Else reajuste = salario * 0.1 End If salreaj = salario + reajuste lblreaj.Text = "Reajuste

Explicit Dim bancodedados As Database Dim tbagenda As Recordset ' passo 4 Private Sub Command1_Click() End End Sub Private Sub Command11_Click() Exit Sub End Sub ' passo 5 – abrir banco de dados, tabela e índice Private Sub Form_Load() Set bancodedados = OpenDatabase(App.Path & "\bdagenda.mdb") Set tbagenda = bancodedados.OpenRecordset("tbagenda", dbOpenTable) tbagenda.Index = "icod" End Sub ' passo 6 ' renomear TODOS os textbox para TXTnome_do_campo Exemplo:…

(administrador ou usuário), ter acesso total ou não ao sistema AlphaCE. 34 5.2.1.2 Códigos da tela de login Imports MySql.Data.MySqlClient Public Class Form_login Dim senha, nome_do_login As String Dim tentativa, tentativa2, tentativa3 As Integer Private Sub Btn_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_ok.Click Try conexao() cmd.CommandText = "select senha, login, tipo_usuario, status from funcionario where login = '" & MaskedTextBox1.Text &…

Public Class Form1 Dim espaços As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim nomes As String 'tirar espaços nomes