Faire un zoom sur une photo (Image ou PictureBox) et comment ?

Version imprimable

30/05/2020, 17h34
DAUDET78

2 pièce(s) jointe(s)

Faire un zoom sur une photo (Image ou PictureBox) et comment ?

Bonjour,
En m'inspirant de ce tuto: http://sylvain.fish.free.fr/JPEG_SIZ..._jpeg_size.htm, je récupère quelques infos sur un fichier .JPG et je l'affiche dans un objet "Image".Pièce jointe 569028

je l'affiche dans un objet "PictureBox".JPG.Pièce jointe 569032

Mais, je voudrais faire un zoom sur la photo (en "Image" ou en "PictureBox", je ne suis pas sectaire !) avec des ascenseurs en V et H

Je suis trop vieux ou trop con , l'un n'excluant pas l'autre, mais je n'ai rien trouvé sur la toile . Si quelqu'un a un bon lien sur le bon tuto, merci d'avance
A+
Daudet
30/05/2020, 20h53
ProgElecT

Salut

Une loupe agrandissant une image réduite aux dimensions de l’écran.

En regardant le code, cela devrait faire.
30/05/2020, 23h08
DAUDET78

1 pièce(s) jointe(s)

merci pour ta réponse rapide . J'ai dezippé : LoupeMFPICTN.zip . C'est le bon ?
Mais je patine dans la choucroute .... probablement à cause de W10 (32b) . J'ai des erreurs sur 2 contrôles ( voir en P.J.)
Demain, je remet en marche mon PC sous X.P. . Au moins, on avait moins d'emm ... bêtement !
Pièce jointe 569094

Bonne nuit
Daudet
31/05/2020, 10h18
ProgElecT

Salut

Citation:

Ligne 23: La classe MFPictLoupx.MFPictLoup du contrôle MFPictLoup1 n'est pas une classe de contrôle chargée.

La réponse est dans le fichier A lire avant utilisation.txt:

Citation:

Avant de démarrer le projet, placer MFPictLoupxx.ocx dans \system32, puis le registrer

Pour ce qui est de

Citation:

Ligne 191: La classe MSComctlLib.ImageList du contrôle ImageList1 n'est pas une classe de contrôle chargée.

Autant pour le composant MFPictLoupe que pour ImageList , il faut dans l'éditeur VB les référencer avec Ctrl+T, cocher MFPictLoupeX et Microsoft Windows Common Controls 6.0 (SP6), bouton OK.

Ça fonctionne maintenant ?

Bonne bidouille.
31/05/2020, 12h57
DAUDET78
Citation:

Envoyé par ProgElecT

Ça fonctionne maintenant ?

J'ai testé sous XP et ton programme fonctionne nickel (je sais, c'est un pléonasme !). Il m’intéresse bougrement et je vais :
- Comprendre sa logique pour ma culturation, ce putaing de programme. Je pense qu'il y a plein de chose à apprendre pour un débutant.
- Piquer les fonctions de "loupe" pour les mettre dans mon programme
- Le faire fonctionner sous W10 (32b) . Y a plein de tuto sur l'inscription des OCX
Citation:

Bonne bidouille.

La retraite, c'est un peu un confinement permanent ....
31/05/2020, 20h48
DAUDET78

3 pièce(s) jointe(s)
Citation:

Envoyé par ProgElecT

Pour ce qui est de Autant pour le composant MFPictLoupe que pour ImageList , il faut dans l'éditeur VB les référencer avec Ctrl+T, cocher MFPictLoupeX et Microsoft Windows Common Controls 6.0 (SP6), bouton OK.

Sauf que c'est résolu à 50% sous XP, mais pas sous W10 (32b) !
Pour MFPictLoupe, c'est MFPictLoupx.ocx (comme dans le VBP) ou MFPictLoupxx.ocx (comme dans le ZIP) ? par défaut, j'ai fait une copie et les deux fichiers identiques (avec des noms différents) sont dans C:\Windows\System32 et dans le répertoire de travail.
Je tente de charger l'un et l'autre fichier avec

Code:

regsvr32 mfpictloupx.ocx

et W10 me dit que c'est chargé, mais qu'il y a une erreurPièce jointe 569177

Et le code 0x80004005, d’après les infos du WEB, c'est tellement général que ça veut rien dire !

Evidemment, au chargement du programme, j'ai une erreur
Pièce jointe 569184.
Je répond OUI
A l’exécution du programme, j'ai une erreur
Pièce jointe 569180

NB : J'ai fouillé la liste des composants

Citation:

il faut dans l'éditeur VB les référencer avec Ctrl+T, cocher MFPictLoupeX et Microsoft Windows Common Controls 6.0 (SP6), bouton OK.

MFPictLoupeX n'apparait pas ?

SI tu pouvais me dire où est mon erreur ...... merci d'avance
A+
Daudet
PS 1 : si je sauvegarde le VBP en quittant VB6, la ligne
Code:

1 2 3 4 Form=FormExplorateur.frm Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCTL.OCX Object={9E569FE6-B49D-4BA3-B1F5-3A7E1077C7C5}#1.0#0; MFPictLoupxx.ocx IconForm="Form1"
disparait (ça me semble logique !)

PS 2 : Ca sert à quoi ce foutoir d'enregistrement des OCX ????? A faire suer ( pour rester politiquement correct) le pôvre gars qui tente d'écrire un programme en VB6 ? C'était si simple sous XP !
01/06/2020, 08h56
ProgElecT

Salut

Moi je tenterai ceci pour faire fonctionner sur l'ordinateur Windows 10.
tu crées un setup d'installation depuis l'ordinateur Windows XP, tu installes sous Windows 10, tout sera inscrit/registré correctement dans la BD de Windows 10, donc tu pourras, dans l'éditeur VB6, référencer avec Ctrl+T, cocher MFPictLoupeX et Microsoft Windows Common Controls 6.0 (SP6), bouton OK.
01/06/2020, 14h32
DAUDET78

1 pièce(s) jointe(s)
En resumé :
- Sous XP, no problémo
- Sous W7, J'ai pu charger l'objet" loupe", mais j'ai toujours une erreur d’exécution
- Sous W10 (32b), rien ne marche
  Pièce jointe 569292
- Comme je suis en double boot (W7 et W10) , je vais continuer à tester avec l'objet" loupe"
Merci ProgElecT
Daudet
Y a un bouton résolu, N'est plus résolu ..... je ne sais pas si il est dans la bonne position ! je le vois N'est plus résolu
01/06/2020, 16h03
ProgElecT

Re

Je vais faire un essais d’installation sur mon ordinateur W10 pour voir.

Citation:

Envoyé par DAUDET78

Y a un bouton résolu, N'est plus résolu ..... je ne sais pas si il est dans la bonne position ! je le vois N'est plus résolu

Quand le bouton est marqué Résolu, la discussion n'est pas résolue, si tu cliques dessus cela devient N'est plus résolu et il est ajouté au titre https://forum.developpez.be/images/icone-resolu.png ....
Tu peux par la suite revenir sur ta décision et re-cliquer sur le bouton N'est plus résolu, le https://forum.developpez.be/images/icone-resolu.png disparait du titre de la discussion et le bouton redevient Résolu :aie:
01/06/2020, 17h05
DAUDET78
Mes dernières élucubrations :
Sous XP (32b) :
- Chargement de tes fichiers dans l'IDE VB6 et création de EtudeLoupeXP.exe (normal , ça a toujours marché)
Sous W7 (32b) :
- Exécution de EtudeLoupeXP.exe . CA MARCHE
- Chargement de tes fichiers dans l'IDE VB6 et debuggage (miracle, ça marche maintenant)
Sous W10 (32b) :
- Exécution de EtudeLoupeXP.exe . CA MARCHE
- Chargement de tes fichiers dans l'IDE VB6 erreur : MFPictLoupxx.ocx n'est pas chargé
- exécution de "regsvr32 MFPictLoupxx.ocx" . Il est chargé .... mais erreur 0x80004005 (habituelle)
- Moralité : rien de changé
Citation:

Envoyé par ProgElecT

Je vais faire un essais d’installation sur mon ordinateur W10 pour voir.

Merci

Citation:

Quand le bouton est marqué Résolu, la discussion n'est pas résolue, si tu cliques dessus cela devient N'est plus résolu et il est ajouté au titre https://forum.developpez.be/images/icone-resolu.png ....
Tu peux par la suite revenir sur ta décision et re-cliquer sur le bouton N'est plus résolu,

C'est vachement évident !