[SRC] [Funcion] Texto_Con_Onditas [By ElementalCode]

[Elemental Code]

Código (vb) [Seleccionar] Expandir


' ////////////////////////////////////////////////////////////////
' // *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] Expandir

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] Expandir

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

[.:WindHack:.]

No sirve.

Saludos,

[TGa.]

no seria en el load en vez de

Código (vb) [Seleccionar] Expandir

Public Function Cargar_Texto_Con_Onditas(Texto As String, Cantidad As Integer, Relojito As Timer)

asi

Código (vb) [Seleccionar] Expandir

Call Cargar_Texto_Con_Onditas("aqui va el texto", CualquierNumero, Timer1)
suponiendo que timer1 es el nombre de nuestro timer y que cualquier numero puede ser el que nosotros elijamos (1,2,3,4,etc)


y en el timer en vez de

Código (vb) [Seleccionar] Expandir

Public Function Timer_Texto_Con_Onditas(salida As Label)

asi

Código (vb) [Seleccionar] Expandir

Call Timer_Texto_Con_Onditas(Label1)
suponiendo que nuestro label se llame Label1

[Elemental Code]

Gaston tiene razon.

ya corregi el post.

Gracias

[.:WindHack:.]

Para el formulario...

Código (vb) [Seleccionar] Expandir

Public Function Salida(AForm As Form)
    If AForm.Caption = TextoA Then
        AForm.Caption = TextoB
    Else
        AForm.Caption = TextoA
    End If
End Function