Bonjour a tous,
Ce code presente une PictureBox avec la possiblite de Zoomer l'image (avec une ToolBar) qu'elle contient puis par la suite d'utiliser les ScrollBars...
L'idee ici et d'utiliser deux PictureBox: une parent dans laquelle on place une Picture Box enfant. La PictureBox Parent reste fixe et tout les zooms sont appliques sur la PictureBox enfant, permettant ainsi aux Scrollbars de deplacer l'enfant dans le parent.
L'image original est charchee dans un control image non visible au moment de l'execution.
De nombreux codes sources existe deja a ce sujet, celui ci a deux differences:
1) Les Zooms sont realises a l'aide de la methode PaintPicture, certe cette methode n'est pas rapide du tout, mais elle permet d'eviter d'utiliser la fonction Stretch des controls images comme c'est le cas dans de nombreuses sources. Ainsi, il est possible de dessiner sur le PictureBox enfant en utilisant la propriete autoredraw et ainsi d'utiliser les methodes communes d'un PictureBox tout en effectuant des Zooms.
2) Ce code est pour debutant. Etant moi meme un debutant, je suis decu parfois de voir des codes sources interressant mais complique et vide de commentaires rendant la chose inexploitable. Par consequent, toute les sub gerant les Zooms et tout ca sont listees dans un module (les commentaire sont anglais, ca ma ete imposee, mais ils restent tres comprehensibles). Les debutants n'auront qu'a copier ce module et appeler les fonctions adequates dans leur procedure comme dans l'example du Zip (Par contre la, tout les commentaires sont en Francais!) de la maniere suivante:
Call Zoom(Nom du PictureBox Parent, Nom du PictureBox Parent, ... , Ratio par lequel on veut zoomer)
Et voila