• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 305
  • Last Modified:

PaintPicture

I'm trying to clip a picture. I'm doing it by loading the picture into one picturebox, and using the PaintPicture method to paint a part of it into another picture box. Here's the code:

    Set picSource.Picture = LoadPicture(sFile)
    picDest.Width = iWidth * Screen.TwipsPerPixelX
    picDest.Height = iHeight * Screen.TwipsPerPixelY
    picDest.PaintPicture picSource.Picture, _
                         0, _
                         0, _
                         iWidth * Screen.TwipsPerPixelX, _
                         iHeight * Screen.TwipsPerPixelY, _
                         iLeft * Screen.TwipsPerPixelX, _
                         iTop * Screen.TwipsPerPixelY, _
                         iWidth * Screen.TwipsPerPixelX, _
                         iHeight * Screen.TwipsPerPixelY

But after the PaintPicture, picDest.picture is always 0. What am I doing wrong?
0
toff_in_sydney
Asked:
toff_in_sydney
  • 2
1 Solution
 
crazymanCommented:
set picDest.picture = picDest.Image ?
0
 
crazymanCommented:
Private Sub Command1_Click()

picDest.AutoSize = True
'load your pic
'Set picSource.Picture = LoadPicture(sFile)
picDest.PaintPicture picSource.Picture, 0, 0, picSource.Width, picSource.Height
Set picDest.Picture = picDest.Image
Debug.Print picDest.Picture
End Sub
0

Featured Post

Prep for the ITIL® Foundation Certification Exam

December’s Course of the Month is now available! Enroll to learn ITIL® Foundation best practices for delivering IT services effectively and efficiently.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now