IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

clGdi32 - fonction rotate - Difficultés rencontrées sur certaines images


Sujet :

VBA Access

  1. #1
    Nouveau Candidat au Club
    Profil pro
    Inscrit en
    Décembre 2011
    Messages
    2
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2011
    Messages : 2
    Points : 1
    Points
    1
    Par défaut clGdi32 - fonction rotate - Difficultés rencontrées sur certaines images
    Bonjour à tous

    [Désolé pour la taille des images (si elles s'affichent bien comme lors de la prévisualisation du message...) Je n'ai pas trouvé de balise pour les réduire -> si quelqu'un me trouve ça, je corrige tout de suite !]

    J'utilise le module de classe clGdi32 d'Arkham46 pour pivoter des images au sein d'un Report sous AC-2000.

    Cela fonctionne parfaitement pour certaines images, alors que pour d'autres, je n'obtiens qu'un carré noir (cf. exemples en PJ).



    J'imagine que ça a un lien avec la façon de générer les images (j'ai découvert jusqu'à présent que n'importe quel jpg, importé dans inkscape, exporté en PNG, puis converti en JPG avec Gimp / Irfanview fonctionne sans difficultés), mais mes connaissances sur le sujet sont plus que limitées.

    A noter que la fonction OpenFile du module fonctionne très bien, quel que soit le fichier.

    La fonction est appelée dans un report, avec un contrôle image appelé "Img". L'URL du fichier image à afficher est dans la source du report, sous le nom "URL_CARTE".

    Mon code est le suivant (je ne pense pas que le problème vienne de là, mais sait-on jamais...).

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    If Not IsNull(Me![URL_CARTE]) Then
       Me.Img.Visible = True
       o.OpenFile (Me![URL_CARTE])
       o.Rotate 90
       o.RepaintControl Me.Img
     Else
       Me.Img.Visible = False
    End If
    A noter également que j'ai essayé d'intercaler une ligne de code ayant recours à la fonction .SaveFile d'Arkham46, avant de réimporter l'image dupliquée et de faire la rotation : ça a échoué lamentablement ! (L'image est bien générée au format BMP, mais j'ai toujours le problème à la rotation).

    Quelqu'un a une explication ou une proposition ?

    Merci d'avance !
    Cdt
    TG
    Images attachées Images attachées   

  2. #2
    Nouveau Candidat au Club
    Profil pro
    Inscrit en
    Décembre 2011
    Messages
    2
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2011
    Messages : 2
    Points : 1
    Points
    1
    Par défaut
    Bonjour
    Je remonte le fil (qui avait été ouvert pendant une période de congés), au cas où quelqu'un aurait une idée... Personnellement, je sèche !
    Cdt
    TG

Discussions similaires

  1. Probleme de Mime Type sur certaines images
    Par Fooshi dans le forum Général Conception Web
    Réponses: 0
    Dernier message: 09/03/2011, 17h34
  2. Questions sur la fonction Rotate
    Par emilieGre dans le forum Images
    Réponses: 5
    Dernier message: 16/08/2007, 14h18
  3. Réponses: 2
    Dernier message: 22/05/2007, 17h11
  4. Fonction infobulle évoluée sur survol image
    Par Vesta dans le forum Général JavaScript
    Réponses: 3
    Dernier message: 19/12/2006, 16h54
  5. Plus d'image sur certains codecs, que du son
    Par totofweb dans le forum Mandriva / Mageia
    Réponses: 5
    Dernier message: 16/01/2006, 21h56

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo