* SÉRIE 4 *

.
TRI D'OBJETS

.

Fichiers à télécharger: pomme.bmp citron.bmp

Créez une nouvelle application. Nommez la feuille F_tri. Attribuez-lui les propriétés suivantes.

FEUILLE: F_Tri

NAME	F_Tri
CAPTION	Tri d'objets
BACKCOLOR	À votre choix
WINDOWSTATE	Maximized

Ajoutez sur votre feuille les éléments indiqués ci-dessous (mélangés). Attribuez-leur les caractéristiques que vous voulez sauf en ce qui concerne les noms.

Un bouton : BO_1
Une étiquette: ET_1
Une zone de texte: ZT_1

Créez un sous-répertoire Images dans le répertoire VB_Module4. Les images téléchargées au début de cette fiche doivent y être placées.
Ajoutez une zone d'image (dans le bas des outils) que vous appelez IM_1. Ajoutez le code suivant dans le code de la feuille.

Private Sub Form_Load()
       Dim Chemin As String
       Chemin = App.Path   'Trouve le répertoire de l'application
       If Right(Chemin, 1) <> "\" Then
          Chemin = Chemin & "\"
       End If
       Chemin = Chemin & "Images\"   'Ajoute le sous-répertoire Images
      IM_1.Picture = LoadPicture(Chemin & "Pomme.bmp") 'Chargement
End Sub

Ajoutez une seconde zone d'image (dans le bas des outils) que vous appelez IM_2. Corrigez le code de la feuille comme suit.

Faites exécuter le programme, Une erreur d'exécution est repérée: l'application ne trouve pas le fichier Raisin.bmp. Le programme plante!
Corrigez la procédure Form_Load pour qu'elle devienne identique à celle-ci. Les corrections sont en caractères gras.

Private Sub Form_Load()
      On Error GoTo Récupération 'Déviation en cas d'erreur
      Dim Chemin As String
      Chemin = App.Path     'Trouve le répertoire de l'application
      If Right(Chemin, 1) <> "\" Then
           Chemin = Chemin & "\"
      End If
      Chemin = Chemin & "Images\"    'Ajoute le sous-répertoire Images
      IM_1.Picture = LoadPicture(Chemin & "Pomme.bmp") 'Chargement
      IM_2.Picture = LoadPicture(Chemin & "Raisin.bmp")
      Exit Sub   'Sortie s'il n'y a pas d'erreur
Récupération:    'Procédure en cas d'erreur
      MsgBox "N° erreur:" & Err.Number & ", " & Err.Description
End Sub

Testez à nouveau le programme. L'erreur est toujours là, mais cette fois, le programme vous en fait la description puis continue à s'exécuter.
Enregistrez le programme dans le répertoire VB_Module4 sous les noms E19F1xx.FRM et Ex19xx.VBP.

Cliquez ici pour la SUITE...