VB : condition selon l'url d'un WebBrowser
VB : condition selon l'url d'un WebBrowser - VB/VBA/VBS - Programmation
Sujets relatifs:
- Copier/coller des cellules sous condition
- Condition If...End if à l'intérieur d'une boucle For...Next
- VB : Insérer le contenu d'un textbox dans une page web
- Taper Entrée pour Valider VB urgent
- VB Applications MDI
- [VB.NET] Lister des imprimantes réseaux
- Convertir SHARP en VB
- Convertir VB en HTML ?!
- [VBA - Macro Excel] Masquer colonne sous condition
- Condition IF ne fonctionne pas.
Marsh Posté le 08-05-2010 à 20:46:58
Bonjour forum
Je travaille sous Visual Studio 2008, en Visual Basic.
Je souhaiterais donc faire une condition selon l’url actuel du WebBrowser.
Sur une form j’ai un bouton, un WebBrowser, un Timer et une ProgressBar. Ce que je voudrais c’est quand la progressbar arrive à son maximum, si l’url du WebBrowser est celui que je souhaite, cela quitte cette forme et ouvre la form2. Si c’est un autre url, une infobulle apparait dans la zone de notifications.
Pour cela j’avais pensé à :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
If WebBrowser1.Document.Url = New Uri("http://www.google.fr/") And ProgressBar1.Value = ProgressBar1.Maximum Then
Form2.Show()
Me.Close()
Else
NotifyIcon1.ShowBalloonTip(3000, "Titre", "Texte", ToolTipIcon.Info)
End Sub
la progressbar arrive bien a 100%, mais cela n'affiche ni l'infobulle, ni le changement de form