Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Function MergeImages(ByVal Pic1 As Image, ByVal pic2 As Image) As Image Dim MergedImage As Image ‘ This will be the finished merged image Dim Wide, High As Integer ' Size of merged image ' Calculate Width and Height needed for composite image ' First, the Width: Wide = Pic1.Width + pic2.Width ' Height: Ensure that the new image is high enough for both images ' that we plan to place inside it. If Pic1.Height >= pic2.Height Then High = Pic1.Height Else High = pic2.Height End If ' Create an empty Bitmap the correct size to hold both images side by side Dim bm As New Bitmap(Wide, High) ' Get the Graphics object for this bitmap Dim gr As Graphics = Graphics.FromImage(bm) ' Draw a black line round the outside (optional, but sometimes looks better when printed) gr.DrawRectangle(Pens.Black, 0, 0, Wide - 1, High - 1) ' Draw the first source image at left side of new image gr.DrawImage(Pic1, 0, 0) ' Draw second source image, offset to the right edge of first source image gr.DrawImage(pic2, Pic1.Width, 0) ' Assign the merged bitmap you have just created as the image ' you are going to return for printing MergedImage = bm ' Finished with the Graphics object – dispose of it gr.Dispose() ' You now have an Image named MergedImage which you can print. Return MergedImage End Function 'Dans ton appel : Pic3.Image=MergeImage(Pict.Image,Pic2.Image)