[SOURCE] Letras3D7913 Funcion que crea letras 3D Flasheras

[79137913]

HOLA!!!

Estaba viendo Sources de mi biblioteca (virtual), y encontre uno que hacia letras 3D (medio cutre el codigo pero bueno) lo edite y 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 Flasheros.

Nota, la Funcion la llaman con Call.

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


Source:

Código (vb) [Seleccionar] Expandir

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

Nota: La funcion original no tenia autor aparentemente, al que lo hizo gracias!

GRACIAS POR LEER!!!

[Edu]

Esta buenisimo, lo probe