You are not logged in.

Artisan Codesmith

Beginner

  • "Artisan Codesmith" is male
  • "Artisan Codesmith" started this thread

Posts: 1

Date of registration: Oct 24th 2012

Location: UK, Wales

Occupation: Programmer

  • Send private message

1

Thursday, October 25th 2012, 11:15am

Move a painted image..??

Here is an example code..

Source code

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

Option Explicit

Dim myimage As Resources = ExamplePng

Public Sub Form_Load()
   picTemp.Picture = myimage
   picTemp.Height = picTemp.Image.getHeight(Null)
   picTemp.Width = picTemp.Image.getWidth(Null)
   
   picCanvas.PaintPicture(picTemp.Image, 5, 5)
End Sub

Public Sub cmdMove_Click()
   picCanvas.Cls
   
   picCanvas.PaintPicture(picTemp.Image, 80, 5)
End Sub


So, instead of clearing picCanvas to move the painted image (ExamplePng/myimage) how could I go about moving the painted image directly, rather than clearing the entire canvas first?

Thanks for any help given and all is greatly appreciated. :)

Similar threads

Rate this thread
WoltLab Burning Board