Hi All,

I am sure I have asked this before but i can not seem to find the posting.

What I would like to do is show a form with my Logo on it (I can do this with no issues)
<IMG src="https://support.algpos.co.uk/images_help/Screenshot_logo.png"> </IMG>
I would like to bounce the picturebox around with in the 1024x768 screen size (AND NOT have the image go off the screen)

So what's your question?

maybe this topic will help.
Gambas One - Gambas ONE

In summary…
I create a timer with a delay of 20 and start it
In the timer event I increase or decrease the X and Y logo positions the distance of "iMoveAmount" (2) depending on their direction.
If X or Y have gone to a far edge then the direction is reversed.

"Bounce" is thus achieved.



The attached example program lets you change iMoveAmount to increase or decrease speed of movement.

BruceSteers said

Code (gambas)

1. ' Gambas class file
2.  
3. Private $hImg As Picture
4. Private $hATimer As New Timer As "ATimer"
5.  
6. Private iX As Integer ' logo X pos
7. Private iY As Integer  ' logo Y pos
8. Private bXRev As Boolean ' logo X direction (reverse toggle)
9. Private bYRev As Boolean ' logo Y direction
10. Private iMoveAmount As Integer = 2
11.  
12. Public Sub Form_Open()
13.  
14.   $hImg = Picture.Load("icon:/128/gambas")  ' load logo
15.  
16.   $hATimer.Delay = 20  ' (about 50fps)
17.   $hATimer.Start
18.  
19. End
20.  
21. Public Sub Form_Close()
22.  
23.   $hATimer.Stop
24.  
25. End
26.  
27. Public Sub ATimer_Timer()
28.  
29.   ' increase or decrease X and Y positions depending on direction
30.   ix += If(bXRev, -iMoveAmount, iMoveAmount)
31.   iy += If(bYRev, -iMoveAmount, iMoveAmount)
32.  
33.  ' change X direction if on an edge
34.   If ix < iMoveAmount Then bXRev = False
35.   If ix > DrawingArea1.W - $hImg.W - iMoveAmount Then bXRev = True
36.  
37.  ' change Y direction if on an edge
38.   If iY < iMoveAmount Then bYRev = False
39.   If iY > DrawingArea1.H - $hImg.H - iMoveAmount Then bYRev = True
40.  
41.   DrawingArea1.Refresh  ' trigger redraw
42.  
43. End
44.  
45. Public Sub DrawingArea1_Draw()
46.  
47.   ' nice gradient background
48.   Paint.Brush = Paint.LinearGradient(0, 0, 0, Last.H, [Color.LightGray, Color.Gray, Color.DarkGray], [0, 0.5, 1])
49.   Paint.Rectangle(0, 0, Last.W, Last.H)
50.   Paint.Fill
51.  
52.   ' nice gradient logo background
53.   Paint.Brush = Paint.LinearGradient(iX, iY, iX, iY + $hImg.H, [Color.Yellow, Color.Green], [0, 1])
54.   Paint.Rectangle(iX, iY, $hImg.W, $hImg.H, 30)
55.   Paint.Fill
56.  
57.   Paint.DrawPicture($hImg, iX, iY, $hImg.W, $hImg.H)
58.  
59. End
60.  
61. Public Sub SpinBox1_Change()
62.  
63.   iMoveAmount = Last.Value
64.  
65. End
66.  
67.  

In summary…
I create a timer with a delay of 20 and start it
In the timer event I increase or decrease the X and Y logo positions the distance of "iMoveAmount" (2) depending on their direction.
If X or Y have gone to a far edge then the direction is reversed.

"Bounce" is thus achieved.



The attached example program lets you change iMoveAmount to increase or decrease speed of movement.

Thank you so much BruceSteers that was ideal for what I wanted and I would not have worked that out in 2 years  so thank you once again