DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

How to copy a section of an image to the clipboard

Thread Solved

•

Join Date: Jun 2007

Posts: 20

Reputation: Rombosia is an unknown quantity at this point

Solved Threads: 1

Rombosia

Offline

Newbie Poster

How to copy a section of an image to the clipboard

Feb 4th, 2009

hi guys,
if I have a form with, say, a picturebox in it. The picturebox is loaded with an image, and I need to copy just a section of it, say at rectangular points, X, Y, L and W to the clipboard, or to another picturebox. Is it possible in VB6?

•

Join Date: Dec 2004

Posts: 2,413

Reputation: Comatose is a jewel in the rough

Solved Threads: 211

Comatose

Offline

Taboo Programmer

Re: How to copy a section of an image to the clipboard

Feb 5th, 2009

Yes... but it will require a noxious amount of API calls with GDI. I suppose a great start would be researching GetDC() api call, and then working on learning BitBlt. You could probably get the device context of your picturebox, then use bitblt to get only a certain area of the picture and copy it to a new picturebox (you may want StretchBlt instead of bitblt) and from there, you can use the standard clipboard methods (clipboard.setdata()), or you can get crazy, and use the Clipboard API Calls.

•

Join Date: Feb 2008

Posts: 509

Reputation: selvaganapathy is an unknown quantity at this point

Solved Threads: 88

selvaganapathy selvaganapathy is offline

Offline

Posting Pro

Re: How to copy a section of an image to the clipboard

Feb 7th, 2009

Hi,

You can also use PaintPicture () to get the portion of image

Code

 Help with Code Tags 
 VB Syntax (Toggle Plain Text) 
Option Explicit
Dim iX As Integer, iY As Integer, iHeight As Integer, iWidth As Integer
 
Private Sub cmdCopy_Click()
   'Set Destination Picture box width and Height
   picDest.Width = iWidth
   picDest.Height = iHeight
   'Copy the Portion of picture from Source to Destination
   picDest.PaintPicture picSource.Picture, _
         0, 0, iWidth, iHeight, _
         iX, iY, iWidth, iHeight
   'Set drawn image to picture
   picDest.Picture = picDest.Image
   'Copy to Clipboard
   Clipboard.SetData picDest.Picture
End Sub
 
Private Sub Form_Load()
   'Picture Dimension
   iX = 1000   ' in twips
   iY = 1000
   iHeight = 2000
   iWidth = 2000
   picDest.AutoRedraw = True
End Sub
Option Explicit
Dim iX As Integer, iY As Integer, iHeight As Integer, iWidth As Integer

Private Sub cmdCopy_Click()
   'Set Destination Picture box width and Height
   picDest.Width = iWidth
   picDest.Height = iHeight
   'Copy the Portion of picture from Source to Destination
   picDest.PaintPicture picSource.Picture, _
         0, 0, iWidth, iHeight, _
         iX, iY, iWidth, iHeight
   'Set drawn image to picture
   picDest.Picture = picDest.Image
   'Copy to Clipboard
   Clipboard.SetData picDest.Picture
End Sub

Private Sub Form_Load()
   'Picture Dimension
   iX = 1000   ' in twips
   iY = 1000
   iHeight = 2000
   iWidth = 2000
   picDest.AutoRedraw = True
End Sub