Création d'une image à partir d'un composant Vb Net

Question

Bonjour 

Mon probl&#233;me est que je souhaite copier un composant situ&#233; sur une form dans une image pour sauver son apparence dans un fichier image. J'ai trouv&#233; sur le net des exemples qui mon permit d'aboutir au code suivant:
 
Code:
,
----

Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As IntPtr, ByVal X As Integer, _
ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, _
ByVal hSrcDC As IntPtr, ByVal xSrc As Integer, ByVal ySrc As Integer, _
ByVal nSrcWidth As Integer, ByVal nSrcHeight As Integer, ByVal dwRop As Integer) As Integer

Dim buffer As Bitmap
Dim SaveTail As Size
Dim ImagTail As Size

Dim controlGraphics As Graphics = Me.Graph_CDV.CreateGraphics   ' graphique form
Const SRCCOPY As Integer = &HCC0020

'*** DEFINITION DE L'IMAGE
Dim controlSize As Size = Me.Graph_CDV.ClientSize()
buffer = New Bitmap(controlSize.Width, controlSize.Height)
Dim bufferGraphics As Graphics = controlGraphics.FromImage(buffer)

Dim bufferHdc As IntPtr = bufferGraphics.GetHdc   'hdc de la form
Dim controlHdc As IntPtr = controlGraphics.GetHdc

'*** DESSINE LE FORMULAIRE DANS LA PICTURE
StretchBlt(bufferHdc, 0, 0, controlSize.Width, controlSize.Height, _
controlHdc, 0, 0, controlSize.Width, controlSize.Height, SRCCOPY)

bufferGraphics.ReleaseHdc(bufferHdc)
controlGraphics.ReleaseHdc(controlHdc)

SaveFileDialog.FileName = "Mon Image"
SaveFileDialog.Filter = "Fichier BMP (*.BMP)|*.BMP"     ' Type des fichier de sauvegarde
SaveFileDialog.ShowDialog()

If DialogResult.Yes Then
buffer.Save(SaveFileDialog.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
        End If

Cela fonctionne mais quand mon composant a une taille plus grande que celle de la form mon image ne conteint que la partie visible du composant le reste de l'image est noire. 

Merci d'avance

neguibserhani · Answer

Bonjour
Tu as le choix entre 2 types de r&#233;solution de probl&#232;me:
probl&#232;me1: je veux que mon image ne soit pas plus grande que mon form (dans ce cas la limite est le clientsize de la form)
ou
probl&#232;me2: je veux que mon image ne soit pas tronqu&#233;e quelquesoit sa taille; alors c'est la form qui doit changer de taille en fonction des composants qu'elle contient

N&#233;guib

Création d'une image à partir d'un composant Vb Net

1 réponse

Discussions similaires