Test Foro de elhacker.net SMF 2.1

Dim direccion As Integer
Private Sub Form_Load()
Me.ScaleMode = 3
Timer1.Interval = 50
Timer1.Enabled = True
direccion = 10
End Sub

Private Sub Timer1_Timer()

Label1.left = Label1.left + direccion
End Sub



Este es el code que tengo funciona a la perfecion pero lo que pasa es que se mueve a la izquierda y no funciona ya intente cambiarle el "LEFT" por Rigth o Por With pero nada espero que me ayuden.

la animacion es algo como esto :

En un form, coloca 2 botones (Command1 y Command2), 1 label (Label1) y 1 timer (Timer1).

Con el siguiente código, tendrás un label que hace lo que quieres y cuando haces click en los botones, cambia de direccion.


Dim direccion As String
Dim cantidad As Long

Private Sub Command1_Click()
direccion = "i"
End Sub

Private Sub Command2_Click()
direccion = "d"
End Sub

Private Sub Form_Load()
direccion = "i" 'por default, se mueve a la izquierda
cantidad = Me.ScaleX(10, vbPixels, vbTwips) 'convierte 10 pixeles en twips, para no cambiar el scalemode
Timer1.Interval = 50
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If direccion = "i" Then
    'derecha a izquierda
    Label1.Left = Label1.Left - cantidad
    If (Label1.Left + Label1.Width) < 0 Then
        Label1.Left = Me.ScaleWidth
    End If
Else
    'izquierda a derecha
    Label1.Left = Label1.Left + cantidad
    If Label1.Left > Me.ScaleWidth Then
        Label1.Left = Label1.Width * -1
    End If
End If
End Sub


Saludos!

Muchas Gracias amigo me sirvio de maravilla! Gracias! :D :P