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 :D
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
HOLA!!!
Mi version (reducida)
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):
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!!!
No me da ni uno de tus codes :(
EDIT:
ya me funciono ..
Me gusta el segundo :D
Lo guardo ;)
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 :P
Modificado , Ya puse el code .. ;D si ya vi eso raul338 ese era mi problema
HOLA!!!
Cita de: Elemental Code en 15 Febrero 2011, 19:08 PM
Me gusta el segundo :D
Lo guardo ;)
Gracias
E_CGRACIAS POR LEER!!!
Gracias por el codigo
funciona perfecto