WHO REMEMBER this old window

[HansV]

Code: Select all

Option Explicit

Dim Times As Long

Private Sub START_ANIM()
    Me.ScaleMode = vbPixels

    With PICTLISTVIEW
        .Visible = True
        .ScaleMode = vbPixels
    End With

    Times = 1

    With Timer3
        .Interval = 1
        .Enabled = True
    End With

    ySpeed = (y2 - y1) / (x2 - x1) * xSpeed
End Sub

Private Sub Command1_Click()
    Call START_ANIM
End Sub

Private Sub Timer3_Timer()
    With Me.PICTLISTVIEW
        If .Left + xSpeed > x2 Then
            .Move x1, y1
            Times = Times + 1
            If Times > 3 Then
                Timer3.Enabled = False
                .Visible = False
            End If
        Else
            .Move .Left + xSpeed, .Top + ySpeed
        End If
    End With
End Sub

[sal21]

Code: Select all

Option Explicit

Dim Times As Long

Private Sub START_ANIM()
    Me.ScaleMode = vbPixels

    With PICTLISTVIEW
        .Visible = True
        .ScaleMode = vbPixels
    End With

    Times = 1

    With Timer3
        .Interval = 1
        .Enabled = True
    End With

    ySpeed = (y2 - y1) / (x2 - x1) * xSpeed
End Sub

Private Sub Command1_Click()
    Call START_ANIM
End Sub

Private Sub Timer3_Timer()
    With Me.PICTLISTVIEW
        If .Left + xSpeed > x2 Then
            .Move x1, y1
            Times = Times + 1
            If Times > 3 Then
                Timer3.Enabled = False
                .Visible = False
            End If
        Else
            .Move .Left + xSpeed, .Top + ySpeed
        End If
    End With
End Sub

super!

sorry but important...

how to do the reverse from end to start

[HansV]

Do you want to go back and forth three times?
Or do you want to go back three times?
Or ...

[sal21]

In effet with the First cycle i simulate to send in cart a produt, from market to cart.
But of the user want ti delete i need to simulate, from cart to market...
I Hope you undestand.

Note:
The cycle rapresent the Number of product.
From market icon to cart icon.

[HansV]

If you want to move back, simply switch x1 and y1 with x2 and y2.

[sal21]

If you want to move back, simply switch x1 and y1 with x2 and y2.

ok, but where?

here:

' Start Position
Public Const x1 As Single = 680, y1 As Single = 100
' End position
Public Const x2 As Single = 1015, y2 As Single = 100

or here:
ySpeed = (y2 - y1) / (x2 - x1) * xSpeed

[HansV]

At the start, instead of

Code: Select all

    .Left = x1
    .Top = y1

or

Code: Select all

     .Move x1, y1

use

Code: Select all

    .Left = x2
    .Top = y2

or

Code: Select all

    .Move x2, y2

And also use

Code: Select all

            .Move .Left - xSpeed, .Top - ySpeed

instead of

Code: Select all

            .Move .Left + xSpeed, .Top + ySpeed

[sal21]

At the start, instead of

Code: Select all

    .Left = x1
    .Top = y1

or

Code: Select all

     .Move x1, y1

use

Code: Select all

    .Left = x2
    .Top = y2

or

Code: Select all

    .Move x2, y2

And also use

Code: Select all

            .Move .Left - xSpeed, .Top - ySpeed

instead of

Code: Select all

            .Move .Left + xSpeed, .Top + ySpeed

Confused...

the picturebox go out to the left....


in module
'ANIMAZIONE
Public Const xSpeed As Single = 5
Public ySpeed As Single
' Start Position
Public Const x1 As Single = 795, y1 As Single = 145
' End position
Public Const x2 As Single = 968, y2 As Single = 145
'ANIMAZIONE
in module

Code: Select all

Option Explicit
Dim Times As Long
Private Sub START_ANIM()

    Me.ScaleMode = vbPixels

    With PICTLISTVIEW
        .Visible = True
        .ScaleMode = vbPixels
        .Left = x2
    End With

    Times = 1

    With Timer3
        .Interval = 1
        .Enabled = True
    End With

    ySpeed = (y2 - y1) / (x2 - x1) * xSpeed

End Sub
Private Sub Command1_Click()

    Call START_ANIM

End Sub
Private Sub Timer3_Timer()

    With Me.PICTLISTVIEW
        If .Left + xSpeed > x2 Then
            .Left = x1
            Times = Times2 + 1
            If Times > 3 Then
                Timer3.Enabled = False
                .Visible = False
            End If
        Else
            '.Move .Left + xSpeed, .Top + ySpeed
            .Move .Left - xSpeed, .Top - ySpeed
        End If
    End With

End Sub

[HansV]

Also change

Code: Select all

        If .Left + xSpeed > x2 Then
            .Move x1, y1

to

Code: Select all

        If .Left - xSpeed < x1 Then
            .Move x2, y2

[sal21]

Also change

Code: Select all

        If .Left + xSpeed > x2 Then
            .Move x1, y1

to

Code: Select all

        If .Left - xSpeed < x1 Then
            .Move x2, y2