Loupe picture box

0/5 (2 avis)

Vue 8 467 fois - Téléchargée 708 fois

Description

AUTEUR: ProgElecT

SOURCE: http://www.developpez.net/forums/d208213/autres-langages/general-visual-basic-6-vbscript/vb-6-anterieur/vos-contributions-vb6/sources-loupe-agrandissant-image-reduite-aux-dimensions-l-ecran/

Description modifié par Cirec le: 04/10/2008

Une loupe agrandissant une image réduite aux dimensions de l�écran
Ayant été confronté a afficher des images de l'ordre de 7680 pixels de large par 6144 pixels de haut (6 fois la résolution 1280x1024 de l'ordi du demandeur) j'avais fait un petit prog avec un PictureBox dans lequel été charger l'image qui pouvait être déplacer sur la Forme.

Mais depuis un certains temps en regardant le forum, je me suis dit qu'une solution était peut-être envisageable.
Afficher l'image à l'échelle des dimensions de la Forme et lui appliquer une loupe.
Un certain nombre d'entre vous reconnaîtront sûrement une partie de leurs codes, merci a vous.

Voilà le projet, non finalisé mais qui semble plaire a l'utilisateur, il trouve plus pratique de ce placer sur un point de l'image et de déclencher la loupe.
Votre point de vue ne m'étant pas indifférant je le met donc dans les contributions VB6 et attend toutes les sujétions et critiques qui pourront améliorer l'ergonomie.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
2
Date d'inscription
dimanche 19 juin 2005
Statut
Membre
Dernière intervention
3 octobre 2008

Auteur : rboubaker ??????

Il serait intéressant d'aller voir ce lien.
http://www.developpez.net/forums/d208213/autres-langages/general-visual-basic-6-vbscript/vb-6-anterieur/vos-contributions-vb6/sources-loupe-agrandissant-image-reduite-aux-dimensions-l-ecran/
Dans ce lien vous trouverez l'auteur de départ et la date de mise a disposition pour la communauté.

Dans le fichier Projet1.vbp on peut il lire (ligne 16) VersionCompanyName="ProgElecT"

Il m'arrive comme tout le monde d'utiliser une partie d'un code d'un collègue, mais dans ce cas je site par un lien, l'auteur de la source.

Ne même pas ce donner la peine de modifier la description me semble peut intelligent, quand on veut plagier, on ce donne un peu plus de mal.

Cela ne m’empêchant pas d’espérer que ce code aura été utile aux uns et aux autres.

Sans rancune …..

ProgElecT
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
Dim DmHloupe, DmLloupe As Integer
DmHloupe est ici un Variant, DmLloupe un Integer
on utilise Private, pour ces variables, Dim a réserver uniquement dans les fonctions (ainsi que procédures et propriétés, bien sur)

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode 79 Or KeyCode 111 Then 'O ou o
NON! tu confonds ici code de touche, et code du caractère Ascii résultant de la pression de la touche... tu n'obtiendras jamais 111 !
ah, si, pardon :

Const vbKeyDivide = 111 (&H6F)
Membre de VBRUN.KeyCodeConstants
Touche Diviser (/) du pavé numérique.

après, a voir ce que tu dessines...
je veux dire: tu affiches une très grande image a l'ecran ; celle ci est réduite.
quand tu demande le zoom d'une zone, celui-ci serait de bien meilleure qualité si tu repartais de l'image de départ (plus grande), avec les bonnes coordonnées, et une règle de trois...

un peu comme dans les films, ou il partes de 20x30 pixels et où ils arrivent a lire le journal par dessus l'epaule d'un gars

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.