affichageRésolu

Question

bonjour
y at'il une méthode plus simple pour afficher des photos dans un tableau si oui comment


Sub affichage(Index As Integer)

Dim voir1_image As String
   Dim voir2_image As String
   Dim voir3_image As String
   Dim voir4_image As String
   Dim voir5_image As String
   Dim voir6_image As String
   Dim voir7_image As String
   Dim voir8_image As String
   Dim voir9_image As String
   Dim voir10_image As String
   Dim voir11_image As String
   Dim voir12_image As String
   Dim voir13_image As String
   Dim voir14_image As String
   Dim voir15_image As String
   Dim voir16_image As String
   Dim voir17_image As String
   Dim voir18_image As String
   Dim voir19_image As String
   Dim voir20_image As String
   Dim voir21_image As String
   Dim voir22_image As String
   Dim voir23_image As String
   Dim voir24_image As String
   Dim voir25_image As String
   Dim voir26_image As String
   Dim voir27_image As String
   Dim voir28_image As String
   Dim voir29_image As String
   Dim voir30_image As String
   Dim voir31_image As String
   Dim voir32_image As String
   Dim voir33_image As String
   Dim voir34_image As String
   Dim voir35_image As String
   Dim voir36_image As String
   Dim voir37_image As String
   Dim voir38_image As String
   Dim voir39_image As String
   Dim voir40_image As String
   Dim voir41_image As String
   Dim voir42_image As String
   Dim voir43_image As String
   Dim voir44_image As String
   Dim voir45_image As String
   Dim voir46_image As String
   Dim voir47_image As String
   Dim voir48_image As String
   Dim voir49_image As String
   Dim voir50_image As String
   Dim voir51_image As String
   Dim voir52_image As String
   Dim voir53_image As String
   Dim voir54_image As String
   Dim voir55_image As String
   Dim voir56_image As String
   Dim voir57_image As String
   Dim voir58_image As String
   Dim voir59_image As String
   Dim voir60_image As String
   Dim voir61_image As String
   Dim voir62_image As String
   Dim voir63_image As String

voir1_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule & ".jpg")

If voir1_image = "" Then
      photo_capsule.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        photo_capsule.Picture = LoadPicture(voir1_image)
    End If
    
     voir2_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 1 & ".jpg")
    
    If voir2_image = "" Then
      Image1.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image1.Picture = LoadPicture(voir2_image)
    End If
    
      voir3_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 2 & ".jpg")
    
    If voir3_image = "" Then
      Image2.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image2.Picture = LoadPicture(voir3_image)
    End If
    
      voir4_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 3 & ".jpg")
    
    If voir4_image = "" Then
      Image3.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image3.Picture = LoadPicture(voir4_image)
    End If
    
    voir5_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 4 & ".jpg")
    
    If voir5_image = "" Then
      Image4.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image4.Picture = LoadPicture(voir5_image)
    End If
    
     voir6_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 5 & ".jpg")
    
    If voir6_image = "" Then
      Image5.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image5.Picture = LoadPicture(voir6_image)
    End If
    
     voir7_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 6 & ".jpg")
    
    If voir7_image = "" Then
      Image6.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image6.Picture = LoadPicture(voir7_image)
    End If
    
     voir8_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 7 & ".jpg")
    
    If voir8_image = "" Then
      Image7.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image7.Picture = LoadPicture(voir8_image)
    End If
    
     voir9_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 8 & ".jpg")
    
    If voir9_image = "" Then
      Image8.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image8.Picture = LoadPicture(voir9_image)
    End If
    
     voir10_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 9 & ".jpg")
    
    If voir10_image = "" Then
      Image9.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image9.Picture = LoadPicture(voir10_image)
    End If
    
     voir11_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 10 & ".jpg")
    
    If voir11_image = "" Then
      Image10.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image10.Picture = LoadPicture(voir11_image)
    End If
    
     voir12_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 11 & ".jpg")
    
    If voir12_image = "" Then
      Image11.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image11.Picture = LoadPicture(voir12_image)
    End If
    
     voir13_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 12 & ".jpg")
    
    If voir13_image = "" Then
      Image12.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image12.Picture = LoadPicture(voir13_image)
    End If
    
     voir14_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 13 & ".jpg")
    
    If voir14_image = "" Then
      Image13.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image13.Picture = LoadPicture(voir14_image)
    End If
    
     voir15_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 14 & ".jpg")
    
    If voir15_image = "" Then
      Image14.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image14.Picture = LoadPicture(voir15_image)
    End If
    
     voir16_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 15 & ".jpg")
    
    If voir16_image = "" Then
      Image15.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image15.Picture = LoadPicture(voir16_image)
    End If
    
     voir17_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 16 & ".jpg")
    
    If voir17_image = "" Then
      Image16.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image16.Picture = LoadPicture(voir17_image)
    End If
    
     voir18_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 17 & ".jpg")
    
    If voir18_image = "" Then
      Image17.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image17.Picture = LoadPicture(voir18_image)
    End If
    
     voir19_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 18 & ".jpg")
    
    If voir19_image = "" Then
      Image18.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image18.Picture = LoadPicture(voir19_image)
    End If
    
     voir20_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 19 & ".jpg")
    
    If voir20_image = "" Then
      Image19.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image19.Picture = LoadPicture(voir20_image)
    End If
    
     voir21_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 20 & ".jpg")
    
    If voir21_image = "" Then
      Image20.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image20.Picture = LoadPicture(voir21_image)
    End If
    
     voir22_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 21 & ".jpg")
    
    If voir22_image = "" Then
      Image21.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image21.Picture = LoadPicture(voir22_image)
    End If
    
     voir23_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 22 & ".jpg")
    
    If voir23_image = "" Then
      Image22.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image22.Picture = LoadPicture(voir23_image)
    End If
    
     voir24_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 23 & ".jpg")
    
    If voir24_image = "" Then
      Image23.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image23.Picture = LoadPicture(voir24_image)
    End If
    
     voir25_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 24 & ".jpg")
    
    If voir25_image = "" Then
      Image24.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image24.Picture = LoadPicture(voir25_image)
    End If
    
     voir26_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 25 & ".jpg")
    
    If voir26_image = "" Then
      Image25.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image25.Picture = LoadPicture(voir26_image)
    End If
    
     voir27_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 26 & ".jpg")
    
    If voir27_image = "" Then
      Image26.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image26.Picture = LoadPicture(voir27_image)
    End If
    
     voir28_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 27 & ".jpg")
    
    If voir28_image = "" Then
      Image27.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image27.Picture = LoadPicture(voir28_image)
    End If
    
     voir29_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 28 & ".jpg")
    
    If voir29_image = "" Then
      Image28.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image28.Picture = LoadPicture(voir29_image)
    End If
    
     voir30_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 29 & ".jpg")
    
    If voir30_image = "" Then
      Image29.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image29.Picture = LoadPicture(voir30_image)
    End If
    
    voir31_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 30 & ".jpg")
    
    If voir31_image = "" Then
      Image30.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image30.Picture = LoadPicture(voir31_image)
    End If
    
     voir32_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 31 & ".jpg")
    
    If voir32_image = "" Then
      Image31.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image31.Picture = LoadPicture(voir32_image)
    End If
    
     voir33_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 32 & ".jpg")
    
    If voir33_image = "" Then
      Image32.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image32.Picture = LoadPicture(voir33_image)
    End If
    
     voir34_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 33 & ".jpg")
    
    If voir34_image = "" Then
      Image33.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image33.Picture = LoadPicture(voir34_image)
    End If
    
     voir35_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 34 & ".jpg")
    
    If voir35_image = "" Then
      Image34.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image34.Picture = LoadPicture(voir35_image)
    End If
    
    voir36_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 35 & ".jpg")
    
    If voir6_image = "" Then
      Image35.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image35.Picture = LoadPicture(voir36_image)
    End If
    
    voir37_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 36 & ".jpg")
    
    If voir37_image = "" Then
      Image36.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image36.Picture = LoadPicture(voir37_image)
    End If
    
    voir38_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 37 & ".jpg")
    
    If voir38_image = "" Then
      Image37.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image37.Picture = LoadPicture(voir38_image)
    End If
    
    voir39_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 38 & ".jpg")
    
    If voir39_image = "" Then
      Image38.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image38.Picture = LoadPicture(voir39_image)
    End If
    
    voir40_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 39 & ".jpg")
    
    If voir40_image = "" Then
      Image39.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image39.Picture = LoadPicture(voir40_image)
    End If
    
    voir41_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 40 & ".jpg")
    
    If voir41_image = "" Then
      Image40.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image40.Picture = LoadPicture(voir41_image)
    End If
    
    voir42_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 41 & ".jpg")
    
    If voir42_image = "" Then
      Image41.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image41.Picture = LoadPicture(voir42_image)
    End If
    
    voir43_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 42 & ".jpg")
    
    If voir43_image = "" Then
      Image42.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image42.Picture = LoadPicture(voir43_image)
    End If
    
    voir44_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 43 & ".jpg")
    
    If voir44_image = "" Then
      Image43.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image43.Picture = LoadPicture(voir44_image)
    End If
    
    voir45_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 44 & ".jpg")
    
    If voir45_image = "" Then
      Image44.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image44.Picture = LoadPicture(voir45_image)
    End If
    
    voir46_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 45 & ".jpg")
    
    If voir46_image = "" Then
      Image45.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image45.Picture = LoadPicture(voir46_image)
    End If
    
     voir47_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 46 & ".jpg")
    
    If voir47_image = "" Then
      Image46.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image46.Picture = LoadPicture(voir47_image)
    End If
    
     voir48_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 47 & ".jpg")
    
    If voir48_image = "" Then
      Image47.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image47.Picture = LoadPicture(voir48_image)
    End If
    
     voir49_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 48 & ".jpg")
    
    If voir49_image = "" Then
      Image48.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image48.Picture = LoadPicture(voir49_image)
    End If
    
     voir50_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 49 & ".jpg")
    
    If voir50_image = "" Then
      Image49.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image49.Picture = LoadPicture(voir50_image)
    End If
    
     voir51_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 50 & ".jpg")
    
    If voir51_image = "" Then
      Image50.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image50.Picture = LoadPicture(voir51_image)
    End If
    
     voir52_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 51 & ".jpg")
    
    If voir52_image = "" Then
      Image51.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image51.Picture = LoadPicture(voir52_image)
    End If
    
     voir53_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 52 & ".jpg")
    
    If voir53_image = "" Then
      Image52.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image52.Picture = LoadPicture(voir53_image)
    End If
    
    voir54_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 53 & ".jpg")
    
    If voir54_image = "" Then
      Image53.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image53.Picture = LoadPicture(voir54_image)
    End If
    
    voir55_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 54 & ".jpg")
    
    If voir55_image = "" Then
      Image54.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image54.Picture = LoadPicture(voir55_image)
    End If
    
    voir56_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 55 & ".jpg")
    
    If voir56_image = "" Then
      Image55.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image55.Picture = LoadPicture(voir56_image)
    End If
    
    voir57_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 56 & ".jpg")
    
    If voir57_image = "" Then
      Image56.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image56.Picture = LoadPicture(voir57_image)
    End If
    
    voir58_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 57 & ".jpg")
    
    If voir58_image = "" Then
      Image57.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image57.Picture = LoadPicture(voir58_image)
    End If
    
    voir59_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 58 & ".jpg")
    
    If voir59_image = "" Then
      Image58.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image58.Picture = LoadPicture(voir59_image)
    End If
    
    voir60_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 59 & ".jpg")
    
    If voir60_image = "" Then
      Image59.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image59.Picture = LoadPicture(voir60_image)
    End If
    
    voir61_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 60 & ".jpg")
    
    If voir61_image = "" Then
      Image60.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image60.Picture = LoadPicture(voir61_image)
    End If
    
    voir62_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 61 & ".jpg")
    
    If voir62_image = "" Then
      Image61.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image61.Picture = LoadPicture(voir62_image)
    End If
    
    voir63_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule + 62 & ".jpg")
    
    If voir63_image = "" Then
      Image62.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        Image62.Picture = LoadPicture(voir63_image)
    End If

numero_capsule1 = capsule_en_cours
   End Sub

Private Sub bouton_repertoire_Click()
Nom_capsule.Show
photos_capsule.Visible = False
End Sub

Private Sub Bouton_Suivant_Click()

If numero_capsule1 = numero_capsule1 Then
  numero_capsule1 = numero_capsule1 + 63
  capsule_en_cours = numero_capsule1
 
End If

End Sub

jordane45 · Answer

Bonjour,

Au lieu d'avoir créé à la main tes différents controlles "image" .. pourquoi ne pas les créer dynamiquement en fonction du contenu du répertoire ?
Lorsque tu boucles sur les fihciers de ton répertoire tu créés le control et tu y met l'image

Pour créer un nouveau control image, tu peux t'inspirer de ce code :

Set ctl = Controls.Add("VB.Image", "img" &numero, Form1)
With ctl
.Move 3480, 360, 1575, 375
.Picture = LoadPicture(cheminverstonimage)
.Visible = True
End With

totoche1748 · Answer

bonjour jordane
moi mon tableau existe déjà je veux mette mes photos dans mon tableau
tableau de 63 cases 
plus un bouton suivant qui rajoute 63 et affiche 63 nouvelles photos etc jusqu a ce que je sois arrive au bout de mes photos 
en ce moment 3200 photos
merci

vb95 · Answer

Bonjour totoche1748
1) tu dis : mon tableau existe déjà 
Dans le code que tu nous présenté je ne vois aucun tableau
si il y a un tableau ailleurs quel est-il et que contient-il ?
2) on remarque 63 contrôles Image qui contiennent chacun une image au format .jpg
Sais-tu que les tableaux de contrôles existent en VB 6 ? ainsi tu aurais sur ta Form Image(1), Image(2), Image(3), etc...... jusqu'à Image(63) . L'aide VB 6 qui est installée sur ta machine ( tu nous l'as dit dans un post précédent) devrait te montrer comment créer et utiliser les tableaux de contrôles .
une fois ces 63 contrôles disposés sur la form une simple boucle peut afficher les 63 images

for i = 1 to 63
     Image(i).Picture = LoadPicture(App.Path & "PhotoX.jpg")
Next  
J'ai mis PhotoX.jpg comme nom de fichier pour la photo car je ne sais pas la façon dont sont nommées exactement tes fichiers .jpg

Ce sont des pistes d'amélioration que je ne puis tester : je n'ai point VB 6 pout tester

totoche1748 · Answer

bonjour
ok  merci beaucoup
ca marche

Affichage

4 réponses

Votre réponse

Discussions similaires