Discussion :

[DAUDET78]

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".

je l'affiche dans un objet "PictureBox".JPG.

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

[ProgElecT]

Salut

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

En regardant le code, cela devrait faire.

[DAUDET78]

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 !
Form1.log.txt

Bonne nuit
Daudet

[ProgElecT]

Salut

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:

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

---

Pour ce qui est de

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.

[DAUDET78]

Ç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

Bonne bidouille.

La retraite, c'est un peu un confinement permanent ....

[DAUDET78]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

regsvr32 mfpictloupx.ocx

et W10 me dit que c'est chargé, mais qu'il y a une erreur

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
.
Je répond OUI
A l’exécution du programme, j'ai une erreur


NB : J'ai fouillé la liste des composants

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[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.

[DAUDET78]

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
  
• 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

[ProgElecT]

Re

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

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 ....
Tu peux par la suite revenir sur ta décision et re-cliquer sur le bouton N'est plus résolu, le disparait du titre de la discussion et le bouton redevient Résolu

[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é

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

Merci

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 ....
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 !