Source Code Titulo Animado

Iniciado por Nardo[N], 15 Febrero 2011, 18:30 PM

0 Miembros y 1 Visitante están viendo este tema.

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 :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
Todos somos ignorantes. Lo que ocurre es que no todos ignoramos
las  mismas cosas.
Albert Einstein

---------
No sirve la sabiduría si no se practica.

Para ganar hay que saber perder.

79137913

HOLA!!!

Mi version (reducida)
Código (vb) [Seleccionar]
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]
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!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*

Nardo[N]

#2
No me da ni uno de tus codes  :(

EDIT:
ya me funciono ..
Todos somos ignorantes. Lo que ocurre es que no todos ignoramos
las  mismas cosas.
Albert Einstein

---------
No sirve la sabiduría si no se practica.

Para ganar hay que saber perder.

Elemental Code


I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0

Mis programas

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 :P

Nardo[N]

#5
Modificado , Ya puse el code ..   ;D si ya vi eso raul338 ese era mi problema
Todos somos ignorantes. Lo que ocurre es que no todos ignoramos
las  mismas cosas.
Albert Einstein

---------
No sirve la sabiduría si no se practica.

Para ganar hay que saber perder.

79137913

HOLA!!!

Cita de: Elemental Code en 15 Febrero 2011, 19:08 PM
Me gusta el segundo :D

Lo guardo ;)

Gracias E_C

GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*

juaqui

Gracias por el codigo
funciona perfecto