Código
' //////////////////////////////////////////////////////////////// ' // *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:
call Cargar_Texto_Con_Onditas(Texto As String, Cantidad As Integer, Relojito As Timer)
"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:
call Timer_Texto_Con_Onditas(salida As Label)
"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