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):
(http://i51.tinypic.com/wb5nnr.jpg)
Source:
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!!!
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!