Bonjour,
J'ai créé un navigateur web VB avec plusieurs on onglets et je voudrais pouvoir créer un évennement pour la variable webcourant (voir code ) qui me permettrait de modifier le texte de l'onglet quand elle a fini de charger.
Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34 Public Class Form1 Private Sub NouveauToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NouveauToolStripMenuItem.Click Dim Navigateur As New WebBrowser Dim NouvelOnglet As New TabPage With Navigateur .Navigate("www.google.com/fr") .Parent = NouvelOnglet .Dock = DockStyle.Fill End With With NouvelOnglet .Controls.Add(Navigateur) End With TabControl1.TabPages.Add(NouvelOnglet) End Sub Private Sub bt_go_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_go.Click Dim onglet As TabPage onglet = TabControl1.SelectedTab For x As Integer = 0 To onglet.Controls.Count If (TypeOf (onglet.Controls(x)) Is WebBrowser) Then Dim WebCourant As WebBrowser WebCourant = onglet.Controls(x) WebCourant.Navigate(txt_go.Text) TabControl1.SelectedTab.Text = WebCourant.DocumentTitle End If Exit For Next End Sub End Class
Partager