[vb.net] Applicazione Browser Web

[Sevenjeak]

Salve.

In questi giorni ho iniziato a fare la mia prima applicazione(ovviamente dopo un paio di applicazioni di prova), questa applicazione in poche palore è un browser web composto da:
Una barra dei menu la barra dei strumenti (che il CamboBox per inserire l'indirizzo del sito e un pulsante per confermarlo e passarlo a la visualizazzione), il controllo WebBrowser ( che visualizza la pagina), una StatuBar ( con una progressbar che viene visualizata solo per caricare la pagina).

Tuttavia nel mio browser non riesco a far si che nel CamboBox (presente nella barra dei menu) mi si aggiorna all'indirizzo del WebBrowser quando clicco su un link di esso o per altro motivo, ho provato e riprovato ma non ci riesco.

Come posso fare per far si che il CamboBox mi si aggiorna quando il WebBrowser mi cambia pagina?

aspetto vostre risposte

[andreaciao_22]

ecco un esempio:

    Private Sub ComboBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
        If e.KeyCode = Keys.Return Then WebBrowser1.Navigate(ComboBox1.Text)
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        AggiornaCronologia()
        ComboBox1.Text = WebBrowser1.Url.AbsoluteUri
    End Sub

    Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click
        WebBrowser1.Navigate(ComboBox1.Text)
    End Sub

    Sub AggiornaCronologia()
        Dim FindIndirizzo As Boolean = False
        For Each indirizzo As String In ComboBox1.Items
            If indirizzo = ComboBox1.Text Then
                ComboBox1.Text = indirizzo
                FindIndirizzo = True
                Exit For
            End If
        Next
        If FindIndirizzo = False Then ComboBox1.Items.Add(ComboBox1.Text)
    End Sub

fammi sapere se funziona e se lo devi ampliare...

[Sevenjeak]

Grazie, ora lo provo:
era solo che al posto di questo:

ComboBox1.Text = WebBrowser1.Url.AbsoluteUri

mettevo questo:

CamboBox1.Text(WebBrowser1.Navigator)

Invece per quando riguarda la progressbarr che carica anche quando clikki su un link?

cmq ti farò sapere se funziona

P.S: in ComboBox1.Text = WebBrowser1.Url.AbsoluteUri AbsoluteUri che fa?

[andreaciao_22]

AbsoluteUrl ti restituisce l'indirizzo completo del sito...

ad esempio per html.it ti restituisce http://www.html.it

ora mi studio il problema della progressbar

[andreaciao_22]

per la progressbar(la mia si chiama Progress):

    Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
        Dim d, t As Long
        Progress.Visible = True
        d = e.CurrentProgress
        t = e.MaximumProgress
        If d <= 0 Then
            Progress.Value = 0
            Progress.Visible = False
        Else
            Progress.Value = Math.Min(Progress.Maximum, Convert.ToInt32(Math.Floor(Progress.Maximum * (d / t))))
        End If
    End Sub

[Sevenjeak]

Ok, lo provato, va tutto bene, solo una cosa, mi apri i collegamente che devono essere aperti in un'altra pagine me la apre sul browser di sistema e nn sulla mia applicazione: ho gia creato una variabile globare per aprire una nuova finestra, devo utilizare quella? se e si come fare?

[andreaciao_22]

fammi vedere il tuo codice...

[Sevenjeak]

Il codice di tutti gli elementi ho di qualcosa in particolare?

[andreaciao_22]

SOLO DEL BROWSER E DI DOVE FAI IL NAVIGATE...

comunque controlla che la proprietà allownavigation sia true

[Sevenjeak]

la proprietà allownavigation e true e i codici sono questi:

Private Sub WebPage1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles WebPage1.DocumentCompleted
Tool1AdressBox.Text = WebPage1.Url.AbsoluteUri
End Sub

Private Sub WebPage1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEven tArgs) Handles WebPage1.ProgressChanged
Dim d, t As Long
ToolStripProgressBar1.Visible = True
d = e.CurrentProgress
t = e.MaximumProgress
If d <= 0 Then
ToolStripProgressBar1.Value = 0
ToolStripProgressBar1.Visible = False
Else
ToolStripProgressBar1.Value = Math.Min(ToolStripProgressBar1.Maximum, Convert.ToInt32(Math.Floor(ToolStripProgressBar1.M aximum * (d / t))))
End If
AggiornaCronologia()
End Sub

eccoli qui