February 27, 2021
Hot Topics:

Using Graphics: Making a Lander Game

  • By John Percival
  • Send Email »
  • More Articles »

Start up VB and make a new 'Standard EXE' project. On Form1 put two picture boxes of similar size, and into Picture1, load up a picture of your pet or favourite theme park or maybe just the Windows' clouds! Make sure that both boxes are big enough to hold this picture. Also, place two command buttons on the form.

Set the caption of the first command button to 'Copy'. In the click event of this command button, place this code:

Private Sub Command1_Click()
Picture1.ScaleMode = vbPixels
Picture2.ScaleMode = vbPixels
BitBlt Picture2.hDC, 0, 0, Picture2.ScaleWidth, _
   Picture2.ScaleHeight, Picture1.hDC, 0, 0, _
End Sub

Set the caption of the second command button to 'Invert', then put this code into the click event:

Private Sub Command2_Click()
BitBlt Picture2.hDC, 0, 0, Picture2.ScaleWidth, _
   Picture2.ScaleHeight, Picture2.hDC, 0, 0, _
End Sub

Now, fire up your program, and click on the buttons a few times....it may not quite be Paint Shop Pro, but the effect is peculiarly hypnotic! Have a play around, and see if you can get just bits of the image to invert. This is my offering:

Page 3 of 8

This article was originally published on November 20, 2002

Enterprise Development Update

Don't miss an article. Subscribe to our newsletter below.

Thanks for your registration, follow us on our social networks to keep up-to-date