7. Avant de placer les scripts dans les deux feuilles principales, nous allons le faire pour les feuilles secondaires. Commençons par la feuille F_Départ. Celle-ci ne contient qu'un seul script placé dans le bouton BO_Départ. 

Private Sub BO_Départ_Click()
   Me.Hide   'Cacher la feuille
   MDI_Navigateur.Show    'Afficher le navigateur
End Sub

8. Le code de la feuille F_Propos est encore plus simple. Il est placé dans le bouton BO_Fermeture.

Private Sub BO_Fermeture_Click()
   Me.Hide   'Fermeture de la fenêtre
End Sub

9. Passons à la feuille F_Favoris. La première procédure qu'elle nécessite est celle qui servira à dresser la liste des favoris. La voici.

Public Sub Lister()
   If V_Source = "Effacer" Then   ' Si on a cliqué sur l'option Effacer un lien
      BO_Effacer.Visible = True   'Affichage du bouton BO_Effacer
   Else   'Sinon
      BO_Effacer.Visible = False  'BO_Effacer est invisible
   End If
   Dim V_Fichier As String   'Déclaration de variables
   Dim T() As String   'Variable dynamique
   Dim V_i, V_j As Integer
   On Error GoTo vide   'Capture d'erreur
   ReDim Preserve T(0)  'Redimensionne la variable en préservant les données
   V_Fichier = App.Path & "\Favoris.txt"  'Initialisation de variable
   Open V_Fichier For Input As #1   'Ouverture du fichier
   V_i = -1  'Initialisation de variable
   While Not EOF(1)   'Tant qu'on n'a pas atteint la fin du fichier
      V_i = V_i + 1   'Incrémentation du contenu de la variable
      ReDim Preserve T(V_i)  'Redimensionne la variable en préservant les données
      Line Input #1, T(V_i)  'Lecture d'une ligne du fichier
   Wend   'Fin de boucle
   Close #1   'Fermeture du fichier
   ZL_Favoris.Clear   'Vide la liste de tout contenu
   For V_j = 0 To V_i   'Boucle allant de 0 au nombre de lignes du fichier
      F_Favoris.ZL_Favoris.AddItem T(V_j)   'Ajout de l'élément à la liste
   Next V_j
vide:   'Procédure permettant la sortie en cas d'erreur
End Sub

10. Cette procédure doit être commandée dans l'événement FORM_LOAD afin que les liens s'affichent à l'ouverture de la fenêtre.

Private Sub Form_Load()
   Lister   'Appel de procédure
End Sub

11. Si la demande était d'effacer un favori, il faut que le bouton Bo_Effacer contiennent un script permettant de réaliser l'opération. Le voici.

Private Sub Bo_Effacer_Click()
   Dim V_superflu As String   'Déclaration de variables
   Dim V_i As Integer
   Dim V_Fichier As String
   V_superflu = ZL_Favoris.Text   'Initialisation de variable avec le lien sélectionné
   On Error GoTo vide   'Capture d'erreur
   V_Fichier = App.Path & "\Favoris.txt"  'Initialisation de variable
   Open V_Fichier For Output As #1   'Recréer le fichier 
   Close #1   'Fermeture du fichier
   Open V_Fichier For Append As #1  'Réouverture du fichier
   For V_i = 0 To ZL_Favoris.ListCount  'Boucle allant de 0 au nombre d'éléments-->
   de la liste
      If ZL_Favoris.List(V_i) <> V_superflu Then   'Si l'élément est différent de-->
      V_Superflu
         Print #1, ZL_Favoris.List(V_i)   'Ajouter l'élément dans le fichier
      End If
   Next V_i
   Close #1   'Fermeture du fichier  
   Lister   'Rafraîchir le contenu de la liste
vide:   'Adresse de sortie en cas d'erreur
End Sub

12. Il ne manque plus que la procédure qui permet d'afficher la page correspondant au favori sélectionné. Celle-ci est placée dans l'événement Click de la zone de liste.

Private Sub ZL_Favoris_Click()
   Dim V_adresse As String   'Déclaration de variable
   V_adresse = ZL_Favoris.Text   'Initialisation de variable avec l'élément sélectionné
   If V_Source = "Afficher" Then   'Si l'option choisie était Afficher et non Effacer
      F_Interface.CO_1.Text = V_adresse   'Inscription de l'adresse dans la barre-->
     d'adresse
      F_Interface.Nav_1.Navigate V_adresse   'Affichage de la page dans le-->
      navigateur
   End If
End Sub

13. La prochaine feuille à laquelle nous allons ajouter des scripts est F_MontreLiens. Ici encore, il n'y a rien de très compliqué. Le premier script qu'elle contient est placé dans la liste et permet l'affichage du lien sélectionné dans le navigateur. Il est presque identique  au précédent. Seul le nom de la liste change et il n'y a pas d'option.

Private Sub ZL_Liens_Click()
   Dim V_adresse As String   'Déclaration de variable
   V_adresse = ZL_Liens.Text   'Initialisation de variable avec l'élément sélectionné
   F_Interface.CO_1.Text = V_adresse    'Inscription de l'adresse dans la barre-->
     d'adresse
   F_Interface.Nav_1.Navigate V_adresse   'Affichage de la page dans le-->
      navigateur
End Sub

14. Il ne manque plus que le script du bouton BO_Sortie qui est le suivant.

Private Sub BO_Sortie_Click()
   Me.Hide   'Cacher la fenêtre
End Sub

15. La prochaine feuille que nous allons compléter est F_Html.  La première procédure permet d'afficher des messages dans la zone de texte si un changement se produit dans le contrôle Inet. En voici le code.

Private Sub Inet1_StateChanged(ByVal State As Integer)
   Select Case State
   'Réactions selon l'état du contrôle Inet. Les messages indiquent ce qui est vérifié.
      Case icResolvingHost   ' 1
         RZT_Html.Text = "Recherche de l'adresse IP de l'hôte."
      Case icHostResolved   ' 2
         RZT_Html.Text = "Adresse IP trouvée."
      Case icConnecting   ' 3
         RZT_Html.Text = "Connexion au serveur."
      Case icConnected   ' 4
         RZT_Html.Text = "Connecté."
      Case icRequesting   ' 5
         RZT_Html.Text = "Envoi de la requête au serveur."
      Case icRequestSent   ' 6
         RZT_Html.Text = "Requête envoyée."
      Case icReceivingResponse    ' 7
         RZT_Html.Text = "Attente de réponse du serveur."
      Case icResponseReceived    ' 8
         RZT_Html.Text = "Réponse reçue."
      Case icDisconnecting   ' 9
         RZT_Html.Text = "Déconnexion du serveur."
      Case icDisconnected   ' 10
         RZT_Html.Text = "Déconnecté."
      Case icError    ' 11
         RZT_Html.Text = "Erreur: " & Inet1.ResponseCode &  " " & Inet1.ResponseInfo
      Case icResponseCompleted    ' 12
         RZT_Html.Textt = "Requête terminée - Toutes les données ont été reçues."
   End Select
End Sub

16. L'autre script, placé dans l'événement FORM_LOAD, est très court et permet l'affichage de la source de la page dans la zone de texte. Le voici. Notez que l'initialisation de variable est faite dans la section Général de la feuille, en dehors des procédures.

'Déclaration de la variable dans la section Général de la feuille
Dim V_PageEnCours As String

Private Sub Form_Load()
   V_PageEnCours = F_Interface.CO_1.Text   'Identification de la page en cours
   RZT_Html.Text = Inet1.OpenURL(V_PageEnCours, icString)   'Affichage de la-->
   source
End Sub

Suite...