Código (vb) [Seleccionar]
' ////////////////////////////////////////////////////////////////
' // *Autor: Elemental Code (Milton.Candelero@gmail.com) //
' // *El codigo se puede cambiar todo lo que quiera siempre y //
' // cuando se respete la autoria. //
' // *Funcion: Hace que el texto cambie cada 150ms y cree un //
' // efecto de "Ondulacion" //
' ////////////////////////////////////////////////////////////////
Option Explicit
Dim TextoA As String
Dim TextoB As String
Public Function Cargar_Texto_Con_Onditas(Texto As String, Cantidad As Integer, Relojito As Timer)
Relojito.Enabled = False
Dim ia As Integer
Dim ib As Integer
Dim OnditaA As String
Dim OnditaB As String
For ia = 0 To Cantidad
OnditaA = OnditaA & ".·"
Next
For ib = 0 To Cantidad
OnditaB = OnditaB & "·."
Next
TextoA = OnditaA & Texto & OnditaB
TextoB = OnditaB & Texto & OnditaA
Relojito.Interval = 150
Relojito.Enabled = True
End Function
Public Function Timer_Texto_Con_Onditas(salida As Label)
If salida.Caption = TextoA Then
salida.Caption = TextoB
Else
salida.Caption = TextoA
End If
End Function
NOTA IMPORTANTE:
El texto ".·" y "·." deben ser reemplazados por ".·" y "·." respectivamente ya que el foro me elimino esos caracteres especiales.
--> Que Hace?
Agrega a un texto unos puntos en movimiento que le dan un efecto de ondeado similar al que se aprecia en "Cactus Metamorph"
--> Como se Usa?
En un formulario poner una label (Preferentemente con Autosize = True) y un Timer (se pueden poner otros controles pero lo basico es eso.)
En el evento load se llama a la siguiente funcion:
Código [Seleccionar]
call Cargar_Texto_Con_Onditas(Texto As String, Cantidad As Integer, Relojito As Timer)Donde:
"Texto" sera la palabra a la cual se le agregara "onditas"
"Cantidad" sera la cantidad de "Onditas"
"Relojito" Sera el nombre del control del Timer que se utilizara.
En el evento on timer (el mismo timer que se especifico en "Relojito") se llama a la siguiente funcion:
Código [Seleccionar]
call Timer_Texto_Con_Onditas(salida As Label)Donde:
"Salida" es la Label o etiqueta adonde aparecera el resultado.
Es muy dificil mostrarselos en un ejemplo ya que la onda es que cambia.
Es la primera "Funcion" que hago y por eso esta Horrible
