Function SetClipBoardToPictureBox(ByRef oPic As PictureBox) As Boolean If My.Computer.Clipboard.ContainsImage = True Then oPic.Image = My.Computer.Clipboard.GetImage Return True Else Return False End If End Function
Function SetClipBoardToPictureBox(ByRef oPic As PictureBox) As Boolean If Clipboard.GetFormat(vbCFBitmap) Then Set oPic.Picture = Clipboard.GetData(vbCFBitmap) SetClipBoardToPictureBox = True End If End Function
public bool SetClipBoardToPictureBox(PictureBox oPic) { if (Clipboard.ContainsImage()) { oPic.Image = Clipboard.GetImage(); return true; } else { return false; } }
{On récupère le contenu du presse papier dans un TImage et on l'affiche} procedure TForm1.Button1Click(Sender: TObject); begin if Clipboard.HasFormat(cf_BITMAP) then Image1.Picture.Bitmap.Assign(Clipboard); end;