Imprimir Página - AYUDA - Animacion de Texto Horizantal!

Título: AYUDA - Animacion de Texto Horizantal!
Publicado por: Brian1511 en 23 Noviembre 2012, 00:40 am

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 :

Bienvinido a Foro-ElHacker La mejor web de ayuda GRACIAS!!!!! Adios!

Título: Re: AYUDA - Animacion de Texto Horizantal!
Publicado por: MCKSys Argentina en 23 Noviembre 2012, 04:40 am

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.

Código:

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!

Título: Re: AYUDA - Animacion de Texto Horizantal!
Publicado por: Brian1511 en 24 Noviembre 2012, 00:28 am

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

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Brian1511 en 23 Noviembre 2012, 00:40 am