comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Funcion para crear letras en 3D con colores vivos.

  • 1 Respuestas
  • 3531 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado 79137913

  • *
  • Moderator
  • Mensajes: 631
  • Actividad:
    6.67%
  • Reputación 11
  • 4 Esquinas
    • Ver Perfil
    • Doors.Party
    • Email
  • Skype: fg_mdq@hotmail.com
« en: Febrero 01, 2013, 08:29:33 pm »
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: Visual Basic
  1. 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")
  2. Dim x As Long
  3.     Pic.FontName = Fuente
  4.     Pic.FontSize = Tamaño
  5.     For x = 255 To 1 Step -1
  6.         Pic.ForeColor = RGB(Abs(Red - x), Abs(Green - x), Abs(Blue - x))
  7.         If Orientacion Then Pic.CurrentX = x Else Pic.CurrentX = 255 - x
  8.         If Orientacion Then Pic.CurrentY = x Else Pic.CurrentY = 255 - x
  9.         Pic.Print Frase
  10.     Next x
  11. 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 Scout Team*                                                   No tienes permisos para ver links. Registrate o Entra con tu cuenta

Desconectado alexander1712

  • *
  • Underc0der
  • Mensajes: 850
  • Actividad:
    0%
  • Reputación -2
    • Ver Perfil
    • El blog del programador
    • Email
« Respuesta #1 en: Febrero 02, 2013, 03:23:30 pm »
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!

 

¿Te gustó el post? COMPARTILO!



mPatchFunction - Parchea funciones para saltar a una nueva direccion

Iniciado por Karcrack

Respuestas: 0
Vistas: 1585
Último mensaje Junio 16, 2013, 06:30:21 pm
por Karcrack
Otra Forma Para Ingresar Solo Numeros

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1356
Último mensaje Julio 26, 2010, 11:16:54 am
por ANTRAX
Como hacer un boton en Flash para VB6

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1341
Último mensaje Julio 26, 2010, 12:32:48 pm
por ANTRAX
.bas para control de ODBC de bases de datos

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1324
Último mensaje Julio 26, 2010, 12:41:20 pm
por ANTRAX
Actualizador para tus programa [modulo]

Iniciado por alexander1712

Respuestas: 3
Vistas: 2942
Último mensaje Julio 14, 2016, 10:16:11 pm
por noxonsoftwares