Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Web1.Navigate("WWW.GOOGLE.IT")
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Web1.Navigate(URL.Text)
End Sub
Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If tex2.Text = Nothing Then
MessageBox.Show("Impossibile ricercare una chiave di ricerca vuota", "Ricerca", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Exit Sub
End If
Me.Web1.Navigate("http://www.google.it/search?hl=it&q=" & tex2.Text.ToString)
End Sub
Private Sub Annulla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Web1.Stop()
End Sub
Private Sub Ricarica_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Web1.Refresh()
End Sub
Private Sub Home_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Web1.Navigate("www.google.it")
End Sub
Private Sub Indietro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Web1.GoBack()
End Sub
Private Sub Avanti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Web1.GoForward()
End Sub
Private Sub Info_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
about1.Visible = True
End Sub
Private Sub IndietroToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IndietroToolStripMenuItem.Click
Web1.GoBack()
End Sub
Private Sub AvantiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AvantiToolStripMenuItem.Click
Web1.GoForward()
End Sub
Private Sub TerminaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TerminaToolStripMenuItem.Click
Web1.Stop()
End Sub
Private Sub AggiornaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AggiornaToolStripMenuItem.Click
Web1.Refresh()
End Sub
Private Sub PaginaInizialeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PaginaInizialeToolStripMenuItem.Click
Web1.Navigate("www.pierotofy.it")
End Sub
Private Sub InformazioniAutoreToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
about1.Visible = True
End Sub
Private Sub GoogleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoogleToolStripMenuItem.Click
Web1.Navigate("www.google.it")
End Sub
Private Sub PieroTofyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PieroTofyToolStripMenuItem.Click
Web1.Navigate("www.pierotofy.it")
End Sub
Private Sub EsciToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EsciToolStripMenuItem.Click
End
End Sub
Private Sub InformazioniPtogrammaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InformazioniPtogrammaToolStripMenuItem.Click
Dim about1 As New about1
about1.Visible = 1
End Sub
Private Sub DataToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataToolStripMenuItem.Click
Dim data As New data
data.Visible = True
End Sub
End Class