none
Insérer un graphique dans un autre RRS feed

  • Question

  • Bonjour,

    dans un Preview que j'ai fait, je souhaite insérer un image (en l’occurrence un logo que j'ai sous forme de fichier jpg), dans ma picturebox qui me sert de preview.

    Quelqu'un peut il me rappeler la méthode ?

    Merci

    samedi 9 juin 2012 09:15

Toutes les réponses

  • Bonjour Drissou,

    Pas sûr de bien comprendre. S'il s'agit de charger une image présente sur le disque dans une PictureBox, il y a, en adaptant le chemin :

      With Me.Picture1
        .AutoSize = True
        .AutoRedraw = True
        .Picture = LoadPicture("D:\Users\Jacques\Pictures\MonImage.jpg")
      End With

    Si ton image est dans un fichier ressource associé au projet (image limitée au format .bmp) :

      With Me.Picture2
        .AutoSize = True
        .AutoRedraw = True
        .Picture = LoadResPicture("MONIMAGE", vbResBitmap)
      End With
    


    Cordialement, Jacques

    samedi 9 juin 2012 12:52
  • Bonjour Jacques93,

    content de te retrouver ici.

    C'est effectivement une partie de la réponse ; en fait cette image, je souhaite l'insérer sous forme d'un logo (en haut et à gauche), dans une feuille, en fait une picturebox, dans un preview.

    Je crois que c'est la fonction StrechBlt  (ou équivalent) qu'il faut.

    mais je n'ai pas trouvé d'exemple clair pour moi.

    Doit on avoir un picture  intermédiaire pour faire cela, ou alors compiler les deux fonctions : loadimage et strechbilt ?

    Merci

    lundi 11 juin 2012 10:18
  • Le 11/06/2012 12:18, Drissou35 a écrit :
    > Bonjour Jacques93,
    >
    > content de te retrouver ici.
     
    Merci :-)
     
    >
    > C'est effectivement une partie de la réponse ; en fait cette image, je
    > souhaite l'insérer sous forme d'un logo (en haut et à gauche), dans une
    > feuille, en fait une picturebox, dans un preview.
    >
    > Je crois que c'est la fonction StrechBlt  (ou équivalent) qu'il faut.
    >
    > mais je n'ai pas trouvé d'exemple clair pour moi.
    >
    > Doit on avoir un picture  intermédiaire pour faire cela, ou alors
    > compiler les deux fonctions : loadimage et strechbilt ?
    >
     
    Je ne comprends pas vraiment ce que tu désires. Qu'entends par 'preview' ?
     
    StretchBlt compresse ou agrandit une image :
     
     
    en fonction du paramètre dwRop :
     
     
    --
     
    Cordialement,
     
    Jacques.
     

    Cordialement, Jacques
    lundi 11 juin 2012 11:27
  • Bonjour

    en fait j'ai fait une prévisualisation d'un document avant son impression. Je crée d'abord le document dans un picturebox : mise en page de texte, tableaux, plusieurs pages..

    Je cherche donc finalement à insérer une image en logo sur la première page.

    L'image est pour l'instant à insérer cette image à une position et avec une taille données.

    Stretchblt, pourrait il permettre de faire cela ?.

    je vais regarder ton lien.

    Merci,

    Cordialement,

    Drissou

    lundi 11 juin 2012 21:25
  • Bien justement, il y a aussi un contrôle Image, et ce contrôle Image dispose d'une propriété 'Stretch', et le contrôle Picture étant un conteneur, il peut contenir un contrôle Image. Par exemple :

    obtenu avec le code :

      With Me.Picture1
        .AutoSize = True
        .AutoRedraw = True
        .Picture = LoadPicture("D:\Users\Jacques\Pictures\Fotoopa.jpg")
      End With
      
      With Me.Picture2
        .AutoSize = True
        .AutoRedraw = True
        '.Visible = False
        .Picture = LoadResPicture("MONIMAGE", vbResBitmap)
      End With
      
      With Me.Image1
        .Stretch = True
        .Picture = Me.Picture2.Picture
      End With
    

    Picture2 peut être chargé à partir du disque (comme Picture1) et peut ne pas être visible.

    Mais peut être que le 'Stretch' du contrôle Image n'a pas la même qualité qu l'API ?


    Cordialement, Jacques

    mardi 12 juin 2012 03:36