Marquesia en el titulo del formulario

[Javi.ID]

Wenas aki os dejo mi codigo para poner una marquesia en el titulo del formulario o en donde quieras:

Para empezar tienes que añadir un Timer en el formulario su nombre deve ser Marquesia1 y el Interval deve ser de 144.

Y en formulario añades este codigo:

Option Explicit
Dim a As String
Dim t As String
    Dim b As Integer
    Dim I  As Integer
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub Form_Load()
Marquesia
End Sub
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub Marquesia()
a = "Animación creada por: Javi.ID" '<-- Aqui tienes que poner el texto de la marquesia
I = Len(a)
    b = 0
End Sub
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub Marquesia1_Tim er()
t = Left(a, b)
Me.Caption = t '<-- Aqui puedes canviar donde quieres que aparesca la marquesia
b = b + 1
If b > I Then b = 0
End Sub


Y listo!!

espero que les sirva de utilidad

[crypto136]

Bueno pues esta bien pero todas esas lineas las podemos resumir a esto:

Código:

me.Caption = Mid(me.Caption, 2, Len(me.Caption)) + Left(me.Caption, 1) + ""

[Javi.ID]

No
porque mi code hace que se mueva y el tuyo lo que hace es canviarle el titulo
al formulario

[crypto136]

No
porque mi code hace que se mueva y el tuyo lo que hace es canviarle el titulo
al formulario

seguro que probaste el codigo? bueno aclaro que lo de "me.caption" es un ejemplo porque se puede usar en el caption de cualquier control, y es necesario aclarar que el codigo hay que insertarlo en un timer con algun intervalo corto como "100", estas en un error amigo Javi.ID, tanto tu code como el mio hacen mover el texto de algun control.

Estoy hablando de mi code

[Javi.ID]

Claro lleva un Timer con el interval en 140 al principio lo explique

[zXxOsirisxXz]

La verdad son diferentes..

el del Javi.ID, lo k hace es poner por ejemplo:

F
Fo
For
Form
Form1
F
Fo
For
Form
Form1

Mientras k el de crypto lo k hace es:

Form1
orm1F
rm1Fo
m1For
1Form
Form1

Lo, creok esta mas k claro ^^, ambos son buenos

Salu2

[Javi.ID]

Llevas razon zXxOsirisxXz eso es loque hacen los dos codigos el mio y el de crypto136

Pero el mio no te desordena las letras