Criando se próprio navegador WEB com visual Basic - Iniciando na programação.

Esse é um navegador criado com Visual Basic 2010.

Segue os passos para a criação,em caso de dúvidas, por favor; deixe seu recado especificando o que não entendeu. Boa diversão!

Você precisa Criar 5 Botões (5 Botoons)

Button1- Página inicial Button2- Parar Button3- Voltar Button4- Avancar Button5- Pesquisar Button6- Atualizar

Insert - Textbox1 insert - WebBrowser1 insert - ArquivoToolStripMenuItem:

Arquivo> Nova aba Imprimir Visualizar impressao Salvar Sair

Editar> Desfazer Refazer Recortar Copiar Colar

----------------------------------------------------------------------------------------------------

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click WebBrowser1.GoHome() End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click WebBrowser1.Navigate(TextBox1.Text)

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click WebBrowser1.Refresh()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click WebBrowser1.GoForward() End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click WebBrowser1.GoBack()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click WebBrowser1.Stop() End Sub

Private Sub NovaAbaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NovaAbaToolStripMenuItem.Click Dim f As New Form1 End Sub

Private Sub ImprimirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImprimirToolStripMenuItem.Click WebBrowser1.ShowPrintPreviewDialog() End Sub

Private Sub VisualizarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VisualizarToolStripMenuItem.Click WebBrowser1.ShowPrintDialog() End Sub

Private Sub SalvarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalvarToolStripMenuItem.Click WebBrowser1.ShowSaveAsDialog() End Sub

Private Sub SairToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SairToolStripMenuItem.Click End End Sub

Private Sub DesfazerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DesfazerToolStripMenuItem.Click WebBrowser1.Document.ExecCommand("undo", False, vbNull) End Sub

Private Sub RefazerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RefazerToolStripMenuItem.Click WebBrowser1.Document.ExecCommand("redo", False, vbNull) End Sub

Private Sub RecortarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RecortarToolStripMenuItem.Click WebBrowser1.Document.ExecCommand("cut", False, vbNull) End Sub

Private Sub CopiarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopiarToolStripMenuItem.Click WebBrowser1.Document.ExecCommand("copy", False, vbNull) End Sub

Private Sub ColarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColarToolStripMenuItem.Click WebBrowser1.Document.ExecCommand("paste", False, vbNull) End Sub

Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked

End Sub

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub End Class 

------------------------------------------------------------------------------------------------------

Obrigado!

Deixe seu recado sobre o tutorial, dúvidas e críticas ajudaram nos proxímos posts.

Grande abraço!