Imports System.Windows.Forms
Public Class BrowserInterno
Dim Tempo As Integer = 0
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Close()
End Sub
Private Sub TimerCaricamento_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerCaricamento.Tick
Tempo += 1
End Sub
Private Sub Browser_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles Browser.DocumentCompleted
TimerCaricamento.Stop()
Dim DettagliTempo As New TimeSpan(0, 0, 0, 0, Tempo)
TempoCaricamento.Text = "Tempo di caricamento della pagina: " & DettagliTempo.Minutes & "m " & DettagliTempo.Seconds & "s " & DettagliTempo.Milliseconds & "ms"
txtURL.Text = Browser.Url.ToString()
End Sub
Private Sub Browser_FileDownload(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Browser.FileDownload
Tempo = 0
TimerCaricamento.Start()
End Sub
Private Sub Indietro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Indietro.Click
Browser.GoBack()
End Sub
Private Sub btnAvanti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAvanti.Click
Browser.GoForward()
End Sub
Private Sub btnHome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHome.Click
Dim FileCorr As String = MainForm.SitoCorr & "/index.htm"
If My.Computer.FileSystem.FileExists(FileCorr) = True Then
Browser.Navigate(FileCorr)
Else
Browser.Navigate(MainForm.SitoCorr & "/index.html")
End If
End Sub
Private Sub btnVai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVai.Click
Browser.Navigate(txtURL.Text)
End Sub
End Class