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.
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.
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
Todos os direitos reservados
====================================================================
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
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
Todos os direitos reservados
====================================================================
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
Text2.Width = Val(Me.Width) - 600
Tela 01
Criado por Alexandre Carneiro da Motta
Formado em Tecnologia em Gestão de Sistema de Informação - Uninove 2006
11/03/2023
Todos os direitos reservados
====================================================================
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
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
Todos os direitos reservados
====================================================================
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
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
Todos os direitos reservados
====================================================================
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
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
Todos os direitos reservados
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
====================================================================
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
Todos os direitos reservados
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)
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
Todos os direitos reservados
====================================================================
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
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
Todos os direitos reservados
====================================================================
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
Todos os direitos reservados
====================================================================
0 comentários:
Postar um comentário