Baixe Criando Navegador com Visual Basic 2010 (básico) e outras Notas de estudo em PDF para Engenharia Elétrica, somente na Docsity!
Hello, this is a Web navegator. Created with Visual Basic 2010.
Do you need create 5 Botoons
Button1- Página inicial Button2- Parar Button3- Voltar Button4- Avancar Button5- Pesquisar Button6- Atualizar
Insert - Textbox insert - WebBrowser insert - ArquivoToolStripMenuItem:
Arquivo> Nova aba Imprimir Visualizar impressao Salvar Sair
Editar> Desfazer Refazer Recortar Copiar Colar
Public Class Form
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 Form 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
