moving graphics

[MPrestonf12]

Does anyone know how to move a object like a picturebox around the screen in a smooth line. I tried making it move ramdomly but obviously that doesn't work. Any suggestion are appreciated. Thanks

[V(ery) Basic]

Couldn't you just BitBlt it to the form's hDC, chnaging the X coords every loop?

If this isn't what you wanted...

Private Sub cmdError_Click()

Dim MyRnd as Integer

Randomize

MyRnd = CInt(Rnd * 1)

Form1.Print IIf(MyRnd, "Bite Me", "I'm Sorry")

End Sub

must ne the LSD again

[MPrestonf12]

yes, but you can't randomly change the X cordinate or it will just jump around the screen..thanks for the code

[Sam Finch]

OK what you want is some sub to work out the X and Y coordinates when given a time. Say you want it to move in a circle you could have a function like this

 Private Sub SetXY(ByRef X as Single, ByRef Y As Single, ByVal T As Double)

X = 1000 + (100 * Sin(T))
Y = 1000 + (100 * Cos(T))


End Sub

Then do something like this

Dim T As Double
Dim x As Single
Dim y As Single

T = Timer

Do

    Call SetXY(x, y, Timer - T)
    Picture1.Move x, y
    DoEvents

Loop

and as if by majic the picture moves in a circle really slowly.

as long as you can work out a function for where you want the picturebox to go then you can move it in any way you like

[Fox]

I think he wants to move it, not especially in a circle.. try this:

(Add a command button to an empty
project and add the whole code here)

'Declares
    Private Declare Function GetTickCount Lib "kernel32" () As Long

'Variables
    Dim Active As Boolean

Sub MoveObject(Target As Object, Optional Pause As Long = 0, Optional Speed As Single = 1)
    Dim NextTick As Long

    Dim X As Single
    Dim Y As Single
    Dim Dest As Single
    
    'Variables
    X = Target.Left
    Y = Target.Top
    Randomize
    
    'Main loop
    Active = True
    While Active
        'Timer
        If NextTick <= GetTickCount Then
            NextTick = GetTickCount + Pause
            
            'Move target
            X = X + Sin(Dest) * Speed
            Y = Y + Cos(Dest) * Speed
            
            Dest = Dest + ((100 * Rnd) - 50) / 1000
            Target.Move X, Y
        End If
        
        DoEvents
    Wend
End Sub

Private Sub Command1_Click()
    MoveObject Command1
    
    Command1.Enabled = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Active = False
    
    End
End Sub

(If you set ScaleMode of the Form to pixel
it probably moves too fast, if so change the
speed or wait arguments as you wish...)

[Edited by Fox on 08-13-2000 at 04:26 PM]

[MPrestonf12]

great! thaks for the code

[V(ery) Basic]

PS The code sample I posted had nothing to do with the code I was suggesting. It was kind of a joke.

Look at it like this:

If Not(WhatWanted) Then
    Dim MyRnd as Integer
    Randomize
    MyRnd = CInt(Rnd * 1)
    Form1.Print IIf(MyRnd, "Bite Me", "I'm Sorry")
End If

That means that if the idea of BitBlting it to the Form's hDC was not what you wanted then WhatWanted would equal false causing the IIf structure to fire. That would either return "Bite Me" (as in aggressive) or "I'm Sorry" (as in submissive).

I was talking to you in VB rather than in English.

Sorry for the misunderstanding, however:

[MPrestonf12]

I knew your code had nothing to do with it.But I still got a laugh out of it

[Sam Finch]

Private Sub cmdError_Click()

Dim MyRnd as Integer

Randomize

MyRnd = CInt(Rnd * 1)

Form1.Print IIf(MyRnd, "That was funny", "You Suck")

End Sub

you'll notice I've changed t just enough to avoid copyrite problems

[Mad Compie]

For really really SMOOTH scrolling pictures around your desktop you can use "Pegasus SuiteFace v2.1". This soft contains some OCX to do the scrolling (and some other interesting FX).
You'll also be able to move pictures with a transparent background at high speed!
This package is really interesting because it's easy to implement in your VB projects and does not require a lot of code.
If you would achieve the same result with Blt at high speed, a lot of coding would be required!
You can find the tool at http://www.pegasustools.com.
Also many cracks are available on the net.

[royjacob]

The easiest way to move a picturebox ina straight line is to chang PictureBox's coordinates every second. All you have to do is to insert a Timer Object onto the form. the code is as follows

Sub Timer1_Timer()
Picture1.Left = Picture1.Left + 120
'Say that the X coordinate of the farthest point of the
'form is 4440. Then we want it to stop

If Picture1.Left = 4440 Then
Timer1.Enabled = False
End If

End Sub

[MPrestonf12]

First of I just wanted to make it stop but this code in thoery should work but doesn't!

picball.Left = picball.Left + 12
If picball.Left <= Form1.Width Then
Timer1.Enabled = False
End If

[Fox]

Try this:

picball.Left = picball.Left + 12 
If picball.Left + picball.width > Form1.Width Then 
    Timer1.Enabled = False 
End If

[royjacob]

I think I know what your problem is. I made the mistake by telling you to compare the Picture Box's 'Left' Property with the Form's 'Width' Property. Well what you should do is, during design time, manually drag the picture box to the point in the form where you want it to stop. If you keep pressing the mouse button down, you will notice that that the Picture Box's 'Left' and 'Top' Values will be displayed. Use the 'Left' Value displayed as the value at which the Timer should be disabled.

[Mad Compie]

Consider also using a For...Next loop with the DoEvents Method to move your graphics VERY FAST, instead of a Timer Control.
Also take a look at Pegasus SuiteFace (as mentioned above). With this OCX you can even move transparent graphics at high color VERY VERY FAST and SMOOTH...