Source Code Titulo Animado

[Nardo[N]]

Bueno estaba googleando y me encontre con un source code  de Titulo Animado .. ya lo prove y esta muy bueno

El titulo aparece letra por letra no aparece de golpe

Código [Seleccionar] Expandir

Private Sub Form_Load()
CheckAgain
End Sub

Private Sub Timer1_Timer()
'****************************************

t = Left(a, b)
Form1.Caption = t
b = b + 1
If b > I Then b = 0

End Sub


Sub CheckAgain()
a = Text1.Text
I = Len(a)
    b = 0

Creditos: Faisal Software

[79137913]

HOLA!!!

Mi version (reducida)

Código (vb) [Seleccionar] Expandir

Private Const Titulo As String = "Titulo animado.-·.-·.-·.-·.-·.-·.-·.-·.-·"
Private x As Integer

Private Sub Timer1_Timer()
If x = Len(Titulo) Then x = 0
x = x + 1
Form1.Caption = Mid(Titulo, 1, x)
End Sub

Misma idea Otro efecto (me gusta este):

Código (vb) [Seleccionar] Expandir

Private Const Titulo As String = "Titulo animado.-·.-·.-·.-·.-·.-·.-·.-·.-·"
Private x As Integer

Private Sub Timer1_Timer()
If x = Len(Titulo) Then x = 0
x = x + 1
Form1.Caption = Mid(Titulo, x, Len(Titulo) - x) & Mid(Titulo, 1, x)
End Sub

GRACIAS POR LEER!!!

[Nardo[N]]

No me da ni uno de tus codes  

EDIT:
ya me funciono ..

[Elemental Code]

Me gusta el segundo

Lo guardo

[raul338]

Nardo[N], necesitas poner un Timer con Enabled = True y un numero (100 por ejemplo) de Interval


El proyecto es muuy simple para descargar, seria mejor poner el codigo

[Nardo[N]]

Modificado , Ya puse el code ..   si ya vi eso raul338 ese era mi problema

[79137913]

HOLA!!!

Me gusta el segundo

Lo guardo

Gracias E_C

GRACIAS POR LEER!!!

[juaqui]

Gracias por el codigo
funciona perfecto