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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
Public Class VisualBrowser
Private countOnglet As Integer = 0
#Region "Raccourci"
Private Sub ctrlf_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
If e.KeyChar = Chr(17) Then
B_addOnglet.PerformClick()
End If
End Sub
#End Region
#Region "Interaction (retour, home ...)"
Private Sub Rafraichir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Rafraichir.Click
WebBrowser1.Refresh()
End Sub
Private Sub B_back_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_back.Click
If WebBrowser1.CanGoBack Then
WebBrowser1.GoBack()
End If
End Sub
Private Sub B_next_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_next.Click
If WebBrowser1.CanGoForward Then
WebBrowser1.GoForward()
End If
End Sub
Private Sub B_arrete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_arrete.Click
WebBrowser1.Stop()
End Sub
Private Sub B_Home_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_home.Click
WebBrowser1.Navigate("http://www.google.fr")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
B_home.PerformClick()
MenuStrip1.Visible = False
End Sub
Private Sub B_Envoyer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Envoyer.Click
End Sub
Private Sub rechercher(ByVal browser As WebBrowser)
If Tb_url.Text <> "" Then
If Tb_url.Text.Substring(0, 3) = "www" Then
browser.Navigate(Tb_url.Text)
Else
browser.Navigate("http://www.google.com/search?aq=f&sourceid=chrome&ie=UTF-8&q=" & Tb_url.Text)
End If
End If
End Sub
Private Sub B_config_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_config.Click
MenuStrip1.Visible = True
End Sub
#End Region
#Region "Navigation"
Private Sub WebBrowser1_Navigating(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs)
'Tb_url.Text = WebBrowser1.Url.OriginalString
If Me.WebBrowser1.CanGoForward Then
Me.B_next.Enabled = True
Else
Me.B_next.Enabled = False
End If
If Me.WebBrowser1.CanGoBack Then
Me.B_back.Enabled = True
Else
Me.B_back.Enabled = False
End If
End Sub
Private Sub WB_NAVIGATEUR_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
'Affiche le nouveau statut, désactive le BT stop
Me.Lb_statut.Text = WebBrowser1.StatusText
'on récupère l'adresse de la page et on l'affiche
Me.Tb_url.Text = Me.WebBrowser1.Url.ToString
Onglet.SelectedTab.Text = WebBrowser1.Document.Title
End Sub
#End Region
#Region "Onglet"
Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
Me.Close()
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_addOnglet.Click
Onglet.TabPages.Add("Onglet")
countOnglet = countOnglet + 1
Onglet.SelectTab(countOnglet)
Dim browser As New WebBrowser
' Définit le positionnement du bouton
browser.Location = New System.Drawing.Point(1, 1)
' Définit la taille du bouton
browser.Size = New System.Drawing.Size(1095, 652)
browser.Navigate("www.google.fr")
' Ajoute ce bouton au deuxième onglet de TabControl1
Onglet.SelectedTab.Controls.Add(browser)
End Sub
Private Sub B_SupprOnglet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_SupprOnglet.Click
Onglet.TabPages.Remove(Onglet.SelectedTab)
End Sub
End Class |
