RÉDUCTION DE LA TAILLE D'UNE IMAGE

Commentaire de jacques-antoine le 23/07/2012 18:30:45

oui, mais on pourrait encore simplifier en utilisant un tableau de pictures (Index = 0 à nb_pictures - 1), ce qui donnerait :

for xx = 0 to nb_pictures - 1
   picture(xx).PaintPicture = Imagvar.Picture
next

En changeant la taille des pictures, on s'affranchit de l'obligation de gérer les déplacements dans la picture cible. De plus, cette manière de procéder permet de gérer un tableau de pictures à deux dimensions...

Commentaire de jacques-antoine le 25/07/2012 09:21:49

Bonjour Oulipan

Je suis allé voir les sources indiquées et j'en ai même chargé une (la première) pour essayer de comprendre de quoi on parle. Résultat : plantages en série dus à une fonction (Time) que VB ne connaît pas chez moi... Donc, je n'ai rien vu et si j'ai un conseil à donner, c'est de bannir absolument les instructions multiples qui rendent la source quasiment illisible à celui qui fourre son nez dedans, sauf à commencer par mettre de l'ordre. Aérez tout ce que vous pouvez et surtout in-den-tez : vous y gagnerez en facilité de mise au point et ceux qui vous aident gagneront du temps.

Pour ce qui est du blocage, il faut faire attention à ce que le nombre d'itérations ne dépasse pas la capacité de la variable utilisée (32767 - 1 pour un entier). Je ne suis pas certain que VB permette un tel nombre d'éléments.... Je ne vois pas non plus quel type d'application en demanderait autant. Il y a là un problème de raisonnement, à mon avis. À moins qu'il ne s'agisse pas d'éléments mais simplement d'itérations sur un même élément? Auquel cas on revient à ce que j'ai dit sur la limitation des valeurs pour une variable.

Bon, j'ai cru comprendre un certain nombre de choses et j'ai pondu une petite source qui montre comment gérer un tableau de PictureBox. Comme je ne sais pas comment adjoindre la Form, voici ce que j'ai fait :
Dans une Form principale (ici Essais) j'ai inséré un PictureBox dont le nom est Picture_table et je l'ai copié 16 fois en créant un groupe de contrôles, ce qui initialise le paramètre Index de 0 à 16 et autorise l'indexation. Les PictureBox sont répartis autour de la fenêtre et le dernier au centre. Il y a en outre 4 boutons :
Charger (Pb_charger), qui initialise toutes les images,
Charger à demi (Pb_charger_demi) qui n'en charge que la première moitié,
Effacer (Pb_effacer), qui efface tout,
Quitter (Pb_quitter) pour dégager.

il faut juste trouver deux images de 82 x 48 pixels, ou en créer deux. Le code est le suivant :

Dim nb_images As Integer ' déclaration valable pour la Form

Private Sub Form_Load()
'**************************************************
'* Fonction : initialisation                      *
'**************************************************

nb_images = 17

End Sub

Private Sub Pb_charger_Click()
'**************************************************
'* Fonction : chargement des images               *
'**************************************************

Dim i As Integer

' le paramètre PaintPicture sert à copier un bout d'image dans
' une autre : ici, j'ai utilisé un LoadPicture pour faire plus
' simple. À priori, PaintPicture devrait pouvoir être utilisé,
' sinon, il suffit de passer par une picture intermédiaire dans
' laquelle on effecture le PaintPicture avant de la copier dans
' le tableau de destination, ce qui se fait avec l'instruction
' Picture_table(i).Picture = Picture_intermediaire.Picture
For i = 0 To nb_images - 1
    Picture_table(i).Picture = LoadPicture("Suivante.jpg")
Next

End Sub

Private Sub Pb_charger_demi_Click()
'**************************************************
'* Fonction : chargement de cla moitié des images *
'**************************************************

Dim i As Integer

For i = 0 To nb_images - 1
    Picture_table(i).Picture = LoadPicture("") ' effacement général
Next

For i = 0 To (nb_images / 2) - 1
    Picture_table(i).Picture = LoadPicture("Precedente.jpg")
Next

End Sub

Private Sub Pb_effacer_Click()
'**************************************************
'* Fonction : effacement des images               *
'**************************************************

Dim i As Integer

For i = 0 To nb_images - 1
    Picture_table(i).Picture = LoadPicture("")
Next

End Sub

Private Sub Pb_quitter_Click()
'**************************************************
'* Fonction : on s'en va                          *
'**************************************************

End

End Sub