Imprimir Página - [SRC] [Funcion] Texto_Con

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)

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:

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

no seria en el load en vez de

Código

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

asi

Código

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

Public Function Timer_Texto_Con_Onditas(salida As Label)

asi

Código

Call Timer_Texto_Con_Onditas(Label1)

suponiendo que nuestro label se llame Label1

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Elemental Code en 7 Junio 2010, 00:11 am