REDIMENSION D'IMAGE
cs_Sipadan
Messages postés
125
Date d'inscription
lundi 5 août 2002
Statut
Membre
Dernière intervention
23 novembre 2011
-
23 juil. 2005 à 19:06
cs_Julien39 Messages postés 6414 Date d'inscription mardi 8 mars 2005 Statut Modérateur Dernière intervention 29 juillet 2020 - 23 juil. 2005 à 21:16
cs_Julien39 Messages postés 6414 Date d'inscription mardi 8 mars 2005 Statut Modérateur Dernière intervention 29 juillet 2020 - 23 juil. 2005 à 21:16
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/32854-redimension-d-image
https://codes-sources.commentcamarche.net/source/32854-redimension-d-image
23 juil. 2005 à 21:16
23 juil. 2005 à 20:34
23 juil. 2005 à 19:52
Ok pas mal de commentaires, par contre tu devrais éviter de faire un appel à une fonction dans la condition d'arret d'une For :
For x = 1 To Len(Texte)
La longueur de ton texte est fixe, et du coups tu consommes pour rien des appel à la fonction Len
Donc,
Dim size_Text as Integer
size_Text = Len(Texte)
For x = 1 To size_Text
Tu dans le même style, tu devrais utiliser With ... End With qui est plus performant que prefixer l'attribut ou lamethode par le nom du composant/Objet (dans le cas où tu as beaucoups de ligne sur un même objet par exemple ListImage_Click )
ex:
TextRepDest.aaa TextLargeurSrc.bb
With TextLargeurSrc
.aaa .bb
End With
Coté indentation, perso j'aime bien des sauts lignes dans le code pour faire des blocs d'instructions... Ce qui rend plus facil la lecture du code...
23 juil. 2005 à 19:06
J'ai pas trop regardé la source mais le principe est très bien.
@+,Yann.