VB6 - PictureView usercontrol

Sometimes you might to have a scrollable area where to show pictures. Well, here is a simple solution to that: add usercontrol to your project and you don't need to do any extra coding.

Features:
- center picture when no scrolling required
- move picture with the second mouse button
- can save in .JPG (thanks to JPEG Encoder Class by John Korejwa)
- customizable borderstyle
- customizable corner borderstyle (visible only when both scrollbars are visible)
- functions: ClearPicture, OpenPicture

Events:
- Click
- DblClick
- KeyDown
- KeyPress
- KeyUp
- MouseDown
- MouseMove
- MouseUp
- PictureLoaded


And here is the code with a simple sample project:

Updated version. New features:
- NewPicture function, allows you to create new picture
- PictureDC function, returns the picture's hDC so you can use BitBlt or anything else directly from your app without editing the control
- PicturePaint sub, forces repaint of the control. Use this after painting.

Yet another version, this time improved a lot: thanks to the new features, it is now possible to create a full Paint program!

You can this time find the code at PlanetSourceCode - you know I like votes, no matter to how old control they come :D

Quote:

---

Originally Posted by Merri

Yet another version, this time improved a lot: thanks to the new features, it is now possible to create a full Paint program!

You can this time find the code at PlanetSourceCode - you know I like votes, no matter to how old control they come :D

---

With the death of PSC, it would be great if you could either -
Attach the project
OR
Someone could guide us on how to find it in the recent vbforums members' efforts to 'clone' PSC