none
Copier 2 images en 1 RRS feed

  • Question

  • Bonjour,

    Je voudrais copier deux images.

    par exemple :

    et

    voici mon code :

    Dim bitmap As Bitmap = New Bitmap(Me.Pan_detail.Width, Me.Pan_detail.Height + Pic.Height + 10)

    Me.Pan_detail.DrawToBitmap(bitmap, New Rectangle(0, 0, bitmap.Width, bitmap.Height + Pic.Height))

    c'est ici que "ca plante"

    Me.Pan_detail.DrawToBitmap(Pic.Image, New Rectangle(5, 392 + 5, Pic.Width, Pic.Height))

    Je n'arrive pas a copier/placer la 2em image sous la 1er pour en faire qu'une.

    Codialement

    Salva

    jeudi 17 avril 2014 08:52

Réponses

  • Peut-être une correction à faire :

    Me.Pic.DrawToBitmap(bitmap, New Rectangle(0, Me.Pan_detail.Height + 10, Pic.Width, Pic.Height))

    Retirer le dernier "+10".

    Ou retirer tous les "+10" pour qu'il n'y ait pas de bande.


    Nimzozo, from France.


    • Modifié Nimzozo jeudi 17 avril 2014 16:24
    • Proposé comme réponse Nimzozo jeudi 17 avril 2014 17:21
    • Marqué comme réponse sa56 vendredi 18 avril 2014 07:53
    jeudi 17 avril 2014 16:23

Toutes les réponses

  • Bonjour,

    essayez ceci 

    Dim bitmap As Bitmap = New Bitmap(Me.Pan_detail.Width, Me.Pan_detail.Height + Pic.Height + 10)
    
    Me.Pan_detail.DrawToBitmap(bitmap, New Rectangle(0, 0, Me.Pan_detail.Width, Me.Pan_detail.Height))
    
    Me.Pic.DrawToBitmap(bitmap, New Rectangle(0, Me.Pan_detail.Height + 10, Pic.Width, Pic.Height + 10))

    Cdt


    Nimzozo, from France.

    • Proposé comme réponse Nimzozo jeudi 17 avril 2014 17:21
    jeudi 17 avril 2014 11:00
  • Bonjour,
    Merci pour votre réponse, c'est bien ce qu'il me faut.
    Une autre question.
    A l'ajout de la 2em image, elle est plus petite que la 1er.
    J’ai une bande noire.
    Comment rendre cette bande transparente?

    Cordialement
    Salva

    jeudi 17 avril 2014 13:23
  • Vous pouvez utiliser bitmap.MakeTransparent() avant de peindre dans la Bitmap.

    Que voulez-vous dire par "A l'ajout de la 2em image, elle est plus petite que la 1er. " ?

    Les proportions sont-elles mauvaises ?


    Nimzozo, from France.

    • Proposé comme réponse Nimzozo jeudi 17 avril 2014 17:21
    jeudi 17 avril 2014 16:18
  • Peut-être une correction à faire :

    Me.Pic.DrawToBitmap(bitmap, New Rectangle(0, Me.Pan_detail.Height + 10, Pic.Width, Pic.Height))

    Retirer le dernier "+10".

    Ou retirer tous les "+10" pour qu'il n'y ait pas de bande.


    Nimzozo, from France.


    • Modifié Nimzozo jeudi 17 avril 2014 16:24
    • Proposé comme réponse Nimzozo jeudi 17 avril 2014 17:21
    • Marqué comme réponse sa56 vendredi 18 avril 2014 07:53
    jeudi 17 avril 2014 16:23
  • Bonjour,
    Merci pour vos réponses.
    J'ai le résultat que je voulais.
    Cordialement
    Salva

    vendredi 18 avril 2014 07:55