VIsual Basic 6.0

Introdução do Visual Basic 6.0

AULAS DE VISUAL BASIC 6.0 FREE

Vovê pode utilizar mas de uma opção, somando - se os valores. Veja os exemplos:

data1.options = 64+1

RecordsefType
Especifica a forma de montagem dos dados. Suas opções são table: Dynaset e Snapshof.

RecordSoure:
Especifica a tabela ou visão lógica a ser aberta.

Visible:
Inibe a tabela ou visão lógica a ser aberta.

PRINCIPAL EVENTO DE DATA

Reposition

Ocorre quando é movimentado o ponteiro de registro.

====================================================================

PRINCIPAIS MÉTODOS RECORDSET APLICÁVEIS A DATA

MoveFirst

Movimenta o ponteiro de dados ppaa a primeiro registro.

objeto.recordser.movefirst

MoveLast

Movimenta o ponteiro de dados para o último registro

objeto.recordser.movelasr

MoveNext

Movimenta o ponteiro de dados para o próximo registro.

objeto.recordset.MoveNext

MovePrevious

Movimenta o ponteiro de dados para o registro anterior.

objeto.recordset.MovePevious

BOF

Indicador para o início do arquivo.

objeto.recordset.Movebof

EOF

Indicador de fim do arquivo.

objeto.recordset.Moveeof

EDIT

Permite alterações efetuadas.

objeto.recordsetedit.

Update

Grava as alterações efetuadas.

objetodata.recodset.Update.

CancelUpdate

Restaura o valor original do registro desde o último Edit

objetodata.recotdset.CancelUpdate.

AddNew

Adiciona um registro em branco ao Banco de Dados.

objetodata.recordset.AddNew

Delete

exclui o registro carrente no ponteiro de dados.

objetodata.recordset.Delete

MatchEntry

Configura o modo de pesquisa na lista. A opções para MatchEntry são:

0 A pesquisa é realizada pela primeira letra dos textos canstantes na lista. Cada letra digitada pelo usuáio corresponde a uma pesquisa na lista.

1 A pesquisa énto após o realizada pela conjunto de letras digitadas pelo usuário. A pesquisa é completada após término da digitação. O texto digitado para pesquisa será cancelado se o usuário teclar Backspace ou se a digitação for interrompida por um curto período de tempo.

Além dos métodos citados acima, existem outros que em sua maioria, podem ser utilizados no recordset por Data Experimentr-os.

Criado por Alexandre Carneiro da Motta

Formado em Tecnologia em Gestão de Sistema de Informação - Uninove 2006

11/03/2023

====================================================================

COMANDO PARA CADA TIPO DE ESTILO PARA LETRAS O CÓDIGO ABAIXO COMRESPONDE A CADA TIPO.

IF TEXT1.FONTITALIC = FALSE THEN
TEXT1.FOTITLIC = TRUE
ELSE
TEXT1.FONTITALIC = FALSE
END IF

IF TEXT1.FONTUNDERLINE = FALSE THEN
TEXT1.FONTUNDERLINE = TRUE
ELSE
TEXT1.FONTUNDERLINE = FALSE
END IF

IF TEXT1.FONTSTRIKETHRU = FALSE THEN
TEXT1.FONTSTRIKETHRU = TRUE
ELSE
TEXT1.FONTSTRIKETHRU = FALSE
END IF

Criado por Alexandre Carneiro da Motta

Formado em Tecnologia em Gestão de Sistema de Informação - Uninove 2006

11/03/2023

====================================================================

CÓDIGO PARA AJUSTAR O FORMULÁRIO TEXTO DE ACORDO COM A TELA

Text1.Width = Val(Me.Width) - 600
Text2.Width = Val(Me.Width) - 600

Tela 01

Tela 02

Criado por Alexandre Carneiro da Motta

Formado em Tecnologia em Gestão de Sistema de Informação - Uninove 2006

11/03/2023

====================================================================

Option Explicit

Private Sub FROM()
Timer1.Enabled = True

End Sub

Private Sub Form_Resize()

barra.Width = Val(Me.Width) - 1000

End Sub
Private Sub cmdiniciar_Click()
Timer1.Enabled = True
End Sub

Rem comando para a barra de progresso...
Rem sistema criado por alexandre carneiro da motta...
Rem FOrmado em TECNOLOGIA EM GESTÃO DE SISTEMA DE INFORMAÇÃO - UNINOVE, CENTRO UNIVERSITÁRIO NOVE DE JULHO - 2006..
Rem CRIADO POR ALEXANDRE CARNEIRO DA MOTTA... 13-03-2023...

Private Sub Timer1_Timer()
lblsegundo.Caption = barra.Value & "%"
barra.Value = barra.Value + 1
If (barra.Value = barra.Max) Then
Timer1.Enabled = False

frmmenu.Show
Me.Hide

End If

Criado por Alexandre Carneiro da Motta

Formado em Tecnologia em Gestão de Sistema de Informação - Uninove 2006

13/03/2023

====================================================================

MINI EDITOR DE TEXTO

Private Sub Check1_Click()

If Text1.FontBold = False Then
Text1.FontBold = True
Else
Text1.FontBold = False

End If

End Sub

Private Sub Check2_Click()

If Text1.FontItalic = False Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End If

End Sub

Private Sub Check3_Click()

If Text1.FontUnderline = False Then
Text1.FontUnderline = True
Else
Text1.FontUnderline = False

End If

End Sub

Private Sub Check4_Click()

If Text1.FontStrikethru = False Then
Text1.FontBold = True
Else
Text1.FontBold = False

End If
End Sub

Private Sub Combo1_Click()
Text1.FontSize = Val(Combo1.Text)
End Sub

Private Sub Combo2_Click()

If (Combo2.Text = "red") Then
java.ForeColor = RGB(255, 0, 0)
End If
    If (Combo2.Text = "green") Then
    Text1.ForeColor = RGB(0, 255, 0)

End If

If (Combo2.Text = "blue") Then
Text1.ForeColor = RGB(0, 255, 0)
End If

End Sub

Private Sub Form_Resize()

java.Width = Val(Me.Width) - 1330

End Sub

Private Sub Option1_Click()

Text1.Text = UCase(Text1.Text)
End Sub

Private Sub Option2_Click()

Text1.Text = LCase(Text1.Text)
End Sub

Criado por Alexandre Carneiro da Motta

Formado em Tecnologia em Gestão de Sistema de Informação - Uninove 2006

13/03/2023

====================================================================

TELA DE LOGIN NO VISUAL BASIC 6.0

CÓDIGO FONTE

Private Sub Command1_Click()

Command1.ToolTipText = "Precione o botão delogin"
If txtlogin.Text = "admin" And txtsenha.Text = "admin" Then
Form1.Show
End If
End Sub

Private Sub Form_Resize()

txtlogin.Width = Val(Me.Width) - 1330
txtsenha.Width = Val(Me.Width) - 1330

End Sub

Criado por Alexandre Carneiro da Motta

Formado em Tecnologia em Gestão de Sistema de Informação - Uninove 2006

15/03/2023

====================================================================

BRINCANDO COM CALENDÁRIO

Private Sub cmdcalendario_Click()

Label1.Caption = Calendar1.Value

End Sub

Private Sub cmdLimpar_Click()

Rem comando para limpar a data
Rem sistema criado em 16/03/2023..
Rem criador alexandre carneiro da motta...
Rem formado em TECNOLOGIA EM GESTÃO DE SISTEMA DE INFORMAÇÃO - UNINOVE 2006...
Rem NA FACULDADE CENTRO UNIVERSITARIO NOVE DE JULHO...

Label1.Caption = Clear

End Sub

Private Sub mnuexecutar_Click()

Label1.Caption = Calendar1.Value

End Sub

Private Sub mnuLimpar_Click()

Rem comando para limpar a data
Rem sistema criado em 16/03/2023..
Rem criador alexandre carneiro da motta...
Rem formado em TECNOLOGIA EM GESTÃO DE SISTEMA DE INFORMAÇÃO - UNINOVE 2006...
Rem NA FACULDADE CENTRO UNIVERSITARIO NOVE DE JULHO...

Label1.Caption = Clear
End Sub

Private Sub mnusair_Click()
End
End Sub

Private Sub mnusobre_Click()

frmAbout.Show

End Sub

Criado por Alexandre Carneiro da Motta

Formado em Tecnologia em Gestão de Sistema de Informação - Uninove 2006

16/03/2023

====================================================================

CENTRALIZAR O FORMULÁRIO NO CENTRO ATRAVÉS DE CÓDIGOS

,DÍGITE

top = ( screen.height/2 ) - (height /2)
left = ( screen.width/2 ) - (width /2)

Criado por Alexandre Carneiro da Motta

Formado em Tecnologia em Gestão de Sistema de Informação - Uninove 2006

29/03/2023

====================================================================

Projeto de 2024 Navegador da Beta designer

Salve! Salve galera estou aqui para ensinar a vocês como criar um navegador de internet este navegador foi feito no visual basic 6.0, é também vai ser o nosso projeto de 2024... para o nossos blog e site... Um novo navegado, no mercado vamos desenvolver passo a passo vai levar anos mais vai ser top um dia...

Private Sub Command1_Click()

WebBrowser1.Navigate Text1.Text

End Sub

Private Sub Command2_Click()

End Sub

Não se preocupe galera vou criar um video...

Criado por Alexandre Carneiro da Motta

Formado em Tecnologia em Gestão de Sistema de Informação - Uninove 2006

05/03/2024

====================================================================

CRIA O SEU PRÓPRIO BROWSER

em

Visual Basic 6.0

1.1 Galera Este e o nosso navegador, ele estar saindo do papel e começando a tomar um corpo legal as setas já estão funcionando e o botão ir também em breve até a metade do ano, mais um navegador no mercado. Agora vamos ajustas ele e corrigir alguns bug antes de lançar oficialmente...O Navegador da Beta Designer já funcional.

Criado por Alexandre Carneiro da Motta

Formado em Tecnologia em Gestão de Sistema de Informação - Uninove 2006

13/03/2024

====================================================================

Dentro do botão CHECKBOX DIGITE O SEGUINTE CÓDIGO

If Me.CSENHAS.Value Then
Me.txtsenha.PasswordChar = ""
Else
Me.txtsenha.PasswordChar = "*"
End If

Criado por Alexandre Carneiro da Motta

Formado em Tecnologia em Gestão de Sistema de Informação - Uninove 2006

10/08/2024

====================================================================

CALCULADORA CIENTIFICA

Primeiro, crie um novo projeto no VB6 e adicione os seguintes controles ao formulário:

TextBox (txtDisplay) para mostrar os números e resultados
CommandButtons para números (0-9), ponto decimal, operações básicas (+, -, *, /), e funções científicas (sin, cos, tan, log, etc.)

Aqui está o código básico:

' Declarações no topo do formulário
Option Explicit
Private Operando1 As Double
Private Operando2 As Double
Private Operacao As String
Private NovoNumero As Boolean

Private Sub Form_Load()
    ' Configurações iniciais
    txtDisplay.Text = "0"
    NovoNumero = True
End Sub

' Botões numéricos (0-9)
Private Sub cmdNumero_Click(Index As Integer)
    If NovoNumero Then
        txtDisplay.Text = cmdNumero(Index).Caption
        NovoNumero = False
    Else
        txtDisplay.Text = txtDisplay.Text & cmdNumero(Index).Caption
    End If
End Sub

' Botão ponto decimal
Private Sub cmdPonto_Click()
    If InStr(txtDisplay.Text, ".") = 0 Then
        txtDisplay.Text = txtDisplay.Text & "."
    End If
End Sub

' Botões de operações básicas
Private Sub cmdOperacao_Click(Index As Integer)
    Operando1 = CDbl(txtDisplay.Text)
    Operacao = cmdOperacao(Index).Caption
    NovoNumero = True
End Sub

' Botão de igual
Private Sub cmdIgual_Click()
    Operando2 = CDbl(txtDisplay.Text)
    
    Select Case Operacao
        Case "+"
            txtDisplay.Text = Operando1 + Operando2
        Case "-"
            txtDisplay.Text = Operando1 - Operando2
        Case "*"
            txtDisplay.Text = Operando1 * Operando2
        Case "/"
            If Operando2 <> 0 Then
                txtDisplay.Text = Operando1 / Operando2
            Else
                txtDisplay.Text = "Erro: Divisão por zero"
            End If
    End Select
    NovoNumero = True
End Sub

' Funções científicas
Private Sub cmdSin_Click()
    txtDisplay.Text = Sin(CDbl(txtDisplay.Text) * 3.1415926535 / 180) ' Convertendo para radianos
    NovoNumero = True
End Sub

Private Sub cmdCos_Click()
    txtDisplay.Text = Cos(CDbl(txtDisplay.Text) * 3.1415926535 / 180)
    NovoNumero = True
End Sub

Private Sub cmdTan_Click()
    txtDisplay.Text = Tan(CDbl(txtDisplay.Text) * 3.1415926535 / 180)
    NovoNumero = True
End Sub

Private Sub cmdLog_Click()
    If CDbl(txtDisplay.Text) > 0 Then
        txtDisplay.Text = Log(CDbl(txtDisplay.Text)) / Log(10) ' Log base 10
    Else
        txtDisplay.Text = "Erro: Log de número inválido"
    End If
    NovoNumero = True
End Sub

' Botão de limpar
Private Sub cmdLimpar_Click()
    txtDisplay.Text = "0"
    Operando1 = 0
    Operando2 = 0
    Operacao = ""
    NovoNumero = True
End Sub

Para montar a interface:

Crie um Array de CommandButtons para os números (0-9) com Index 0 a 9
Crie botões individuais para cada função científica (Sin, Cos, Tan, Log)
Crie um Array de CommandButtons para operações (+, -, *, /) com Index 0 a 3
Adicione botões para Igual (=), Ponto (.), e Limpar (C)

Características do código:

Usa variáveis globais para armazenar operandos e operação
Converte graus para radianos nas funções trigonométricas
Trata divisão por zero
Implementa controle de novo número após operações
Inclui funções científicas básicas

Para melhorar esta calculadora, você pode:

Adicionar mais funções (raiz quadrada, potência, exponencial)
Implementar parênteses
Adicionar memória (M+, M-, MR, MC)
Melhorar o tratamento de erros
Adicionar atalhos de teclado

Para usar:

Crie um novo projeto no VB6
Adicione os controles mencionados
Copie e cole este código
Ajuste os nomes dos controles se necessário
Compile e execut

Formado em Tecnologia em Gestão de Sistema de Informação - Uninove 2006

21/02/2025

====================================================================

Novo projeto ainda em branco só a tela de login pronto

com tédio em 1 de agosto de 2025, criando uma tela de login em VB rsrs as 00:00 criando do zero mas uma tela em 2025... Tela de Login já funcionando já nascido rsrs...

2º Tela

nascendo a segunda tela de acesso aqui a onde vai ficar o menu rsrs 01-08-2025 kkk vamos ver o que vai nascer até o fim de agora kk no dia 31 de agosto qual vai ser o aplicativo kkk... Programa ainda em Branco ainda não nasceu... kkk

kkk.

Formado em Tecnologia em Gestão de Sistema de Informação - Uninove 2006

23/08/2025

====================================================================

Pages

SIGMA DIGITAL

Translate

MARÇO DE 2026

VIsual Basic 6.0

0 comentários:

MENU