Funcion para crear letras en 3D con colores vivos.

Iniciado por 79137913, Febrero 01, 2013, 08:29:33 PM

Tema anterior - Siguiente tema

0 Miembros y 3 Visitantes están viendo este tema.

HOLA!!!

Bueno, este es el codigo simple que voy a postear por ahora.

Si tienen alguna pregunta me dicen.

Este es un codigo simple que mediante muchos "print" superpuestos hace letras 3D con diferentes orientaciones, soporta cambio de colores, fuentes tamaños y orientacion.

Las letras salen muy coloridas por la funcion ABS cambien ahi y pierden los colores vivos.

Nota, la Funcion la llaman con Call.

Una Imagen (letra arial color 90,200,30):


Source:
Código: vb
Private Function Letras3D7913(Pic As PictureBox, Frase As String, Red As Long, Green As Long, Blue As Long, Optional Orientacion As Boolean = True, Optional Tamaño As Long = 25, Optional Fuente As String = "Arial")
Dim x As Long
    Pic.FontName = Fuente
    Pic.FontSize = Tamaño
    For x = 255 To 1 Step -1
        Pic.ForeColor = RGB(Abs(Red - x), Abs(Green - x), Abs(Blue - x))
        If Orientacion Then Pic.CurrentX = x Else Pic.CurrentX = 255 - x
        If Orientacion Then Pic.CurrentY = x Else Pic.CurrentY = 255 - x
        Pic.Print Frase
    Next x
End Function


Explicacion del codigo:
Uno toma la funcion y le da un picture box para que escriba su frase en "3D"
La funcion toma el picture box y se ubica en una posicion, la cual la va cambiando dependiendo de el valor de Orientacion (para arriba o para abajo) mediante el bucle que vemos arriba, luego en cada vuelta del bucle imprime una vez la frase con el texto que queriamos en un color que va cambiando, a no ser que le quiten el abs o le coloquen ahi el numero del color que quieren!

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

*Shadow Scouts Team*                                                No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

yo no toco nada de vb hace mucho, pero es bastante fácil de entender, y queda muy bueno el efecto.

se agradece el post, y la explicación sensilla.

veo que haz empezado a postear.

saludos!