Menu Favoris dans un Navigateur

**hustlelion** · 12/06/2014, 01h32

Bonjour!

Je suis en train de me faire un navigateur web, et je suis débutant en programmation.

Mon problème est que je ne sais pas comment paramétrer mes favoris.

Je souhaite ajouter à mon menustrip une option favoris,sou laquelle j'aurais c'est 4 choix:

1. Ajouter la page courante aux favoris
2. Afficher les favoris dans une liste de choix
3. Supprimer un favoris et finalement
4. Supprimer tout les favoris.

Le problème est que je ne trouve aucune commande logiques pour sauvegarder les URL comme favoris.

J'ai pensé les sauvegarder dans un fichier texte, mais je ne sais pas comment m'y prendre. Je rappelle que je suis débutant

.

Voici un screenshot de mon navigateur avec le code de ma page web.

LE CODE:

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
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
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
Imports System.Net
'Activation de la fonction DNS
 
Public Class Form1
    'Déclaration des variables
    Dim str_URL As String
    Dim strIP As String
    Dim strNomOrdi As String
 
    'Chargement de l'historique, programmation des boutons du navigateur
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        'Chargement de l'historique
        Dim str_Adr As String
        For Each str_Adr In My.Settings.Historique
            cmb_Adresse.Items.Add(str_Adr)
        Next
 
        'Ancre les boutons au navigateur selon les attribus spécifiés (up,right,top,bottom) 
        With btn_Adresse
            .Text = "OK"
            .Anchor = AnchorStyles.Right Or AnchorStyles.Top
        End With
        With web_Navigateur
            .GoHome()
            .Anchor = AnchorStyles.Left Or AnchorStyles.Right Or AnchorStyles.Bottom Or AnchorStyles.Top
        End With
        With cmb_Adresse
            .Select()
            .Anchor = AnchorStyles.Right Or AnchorStyles.Top Or AnchorStyles.Left
        End With
 
        'Couleur de fond du bouton "ok"
        With Me
            .AcceptButton = btn_Adresse
            .KeyPreview = True
            .BackColor = My.Settings.Couleur
        End With
 
        'remplace par < le bouton précédent
        With btn_Precedent
            .DisplayStyle = ToolStripItemDisplayStyle.Text
            .Text = "<"
        End With
 
        'remplace par > le bouton suivant
        With btn_Suivant
            .DisplayStyle = ToolStripItemDisplayStyle.Text
            .Text = ">"
        End With
 
        'Affiche le texte "accueil" sur le bouton d'accueil
        With btn_Accueil
            .DisplayStyle = ToolStripItemDisplayStyle.Text
            .Text = "Accueil"
        End With
 
        'Attribu le raccourcis clavier "ctrl + O" au bouton Options du navigateur 
        With mni_Options_Navigateur
            .ShortcutKeys = Keys.Control Or Keys.O
        End With
 
        'Attribu le raccourci clavier "ctrl + V" au bouton vider l'historique
        mni_Vider_Historique.ShortcutKeys = Keys.Control Or Keys.V
 
        'Affichage du nom de l'ordinateur et de l'adresse IP
        strNomOrdi = Dns.GetHostName
        strIP = Dns.GetHostByName(strNomOrdi).AddressList(0).ToString
        lbl_Ip.Text = strIP
        lbl_Nom_Ordi.Text = strNomOrdi
 
    End Sub
 
 
    '************************************ LES BOUTONS *******************************************************
    'Active ou désactive le bouton "OK" du navigateur selon l'utilité
    Private Sub cmb_Adresse_TextChanged(sender As Object, e As EventArgs) Handles cmb_Adresse.TextChanged
        If cmb_Adresse.Text = "" Then
            btn_Adresse.Enabled = False
        Else
            btn_Adresse.Enabled = True
        End If
    End Sub
    'Bouton "arrêter" qui stop le chargement de la page web
    Private Sub btn_Adresse_Click(sender As Object, e As EventArgs) Handles btn_Adresse.Click
        mnu_arrêter.Enabled = True
        str_URL = cmb_Adresse.Text
        web_Navigateur.Navigate(str_URL)
    End Sub
    'Bouton Précédent
 
    Private Sub btn_Precedent_Click(sender As Object, e As EventArgs) Handles btn_Precedent.Click
        web_Navigateur.GoBack()
    End Sub
    'Bouton suivant
    Private Sub btn_Suivant_Click(sender As Object, e As EventArgs) Handles btn_Suivant.Click
        web_Navigateur.GoForward()
    End Sub
    'Bouton acceuil
    Private Sub btn_Accueil_Click(sender As Object, e As EventArgs) Handles btn_Accueil.Click
        web_Navigateur.GoHome()
    End Sub
    'Bouton raffraichir la page
    Private Sub btn_Rafraichir_Click(sender As Object, e As EventArgs) Handles btn_Rafraichir.Click
        web_Navigateur.Refresh()
    End Sub
 
    '************************************ FIN DES BOUTONS ***********************************************************
 
 
    'Lorsque le document est affiché, j'affiche l'adresse URL dans la barre d'adresse 
    'et le titre du document et un message dans la barre de titre
    Private Sub web_Navigateur_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles web_Navigateur.DocumentCompleted
        cmb_Adresse.Text = web_Navigateur.Url.ToString
        Me.Text = web_Navigateur.DocumentTitle & "   Navigateur de Yacine Zitouni, utilisé par " & My.User.Name
        btn_Adresse.Enabled = False
        btn_Precedent.Visible = web_Navigateur.CanGoBack
        btn_Suivant.Visible = web_Navigateur.CanGoForward
        str_URL = web_Navigateur.Url.ToString
        If cmb_Adresse.Items.Contains(str_URL) = False Then
            cmb_Adresse.Items.Add(str_URL)
        End If
 
        If My.Settings.Historique.Contains(str_URL) = False Then
            My.Settings.Historique.Add(str_URL)
        End If
        mnu_arrêter.Enabled = False
 
    End Sub
 
 
    'Quitter la logiciel en demandant si on veux vider l'historique
 
    Private Sub mni_Quitter_Click(sender As Object, e As EventArgs) Handles mni_Quitter.Click
        Dim reponse As String
        reponse = MsgBox("Voulez - vous vider l'historique de navigation ?", vbYesNo + vbCritical, "Vider Historique")
        If reponse = vbYes Then
            cmb_Adresse.Items.Clear()
            My.Settings.Historique.Clear()
            MessageBox.Show("Merci, au revoir !!!!!")
            End
        Else
            MessageBox.Show("Merci, au revoir !!!!!")
            End
        End If
    End Sub
    'Ouvre l'applet "options internet"
    Private Sub mnu_Options_Internet_Click(sender As Object, e As EventArgs) Handles mnu_Options_Internet.Click
        Process.Start("inetcpl.cpl")
    End Sub
    'Copier l'URL de la page en cours dans le presse-papier
    Private Sub mni_Copiez_URL_Click(sender As Object, e As EventArgs) Handles mni_Copiez_URL.Click
        str_URL = web_Navigateur.Url.ToString
        My.Computer.Clipboard.SetText(str_URL)
    End Sub
    'Lance la fenêtre "À propos"
    Private Sub mni_APropos_Click(sender As Object, e As EventArgs) Handles mni_APropos.Click
        frm_APropos.Show()
    End Sub
    'Bouton vider l'historique
 
    Private Sub mni_Vider_Historique_Click(sender As Object, e As EventArgs) Handles mni_Vider_Historique.Click
        cmb_Adresse.Items.Clear()
        My.Settings.Historique.Clear()
    End Sub
 
    'Ouvre le menu Option
    Private Sub mni_Options_Navigateur_Click(sender As Object, e As EventArgs) Handles mni_Options_Navigateur.Click
        frm_Options_Navigateur.Show()
    End Sub
    'Arrête le chargement de la page
    Private Sub mnu_arrêter_Click(sender As Object, e As EventArgs) Handles mnu_arrêter.Click
        web_Navigateur.Stop()
        mnu_arrêter.Enabled = False
    End Sub
    'Programme la fonction Imprimer du navigateur
    Private Sub mni_imprimer_Click(sender As Object, e As EventArgs) Handles mni_imprimer.Click
        web_Navigateur.Print()
    End Sub
    'Copier l'URL de la page
    Private Sub CopierLURLDeLaPageActuelleToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopierLURLDeLaPageActuelleToolStripMenuItem.Click
        My.Computer.Clipboard.SetText(cmb_Adresse.Text)
    End Sub
    'Ouvre l'applet "centre réseau et partage"
    Private Sub mni_centre_res_part_Click(sender As Object, e As EventArgs) Handles mni_centre_res_part.Click
        Process.Start("control", "/name Microsoft.NetworkAndSharingCenter")
    End Sub
    'Enregistrer la page actuelle et demander où enregistrer le fichier
    Private Sub mni_enr_page_Click(sender As Object, e As EventArgs) Handles mni_enr_page.Click
        web_Navigateur.ShowSaveAsDialog()
    End Sub
 
End Class

Merci d'avance!

**Uranne-jimmy** · 17/06/2014, 09h05

Bonjour,
Une fois n'est pas coutume, si quelqu'un d'autre te réponds, ce sera la même réponse que moi, à peu près :
Visite le tutoriel disponible sur developpez : http://plasserre.developpez.com/cours/vb-net/
Tu y trouveras plusieurs méthode pour enregistrer des objets de façon à ce qu'ils survivent à l'arrêt de l'application, y compris l'enregistrement dans un fichier texte.

**hustlelion** · 17/06/2014, 11h42

Merci bien!

Menu Favoris dans un Navigateur

VB.NET

Discussions similaires

Partager

Partager