send
Grupo de Telegram
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.

[VB] Efecto Degradado

  • 0 Respuestas
  • 1831 Vistas

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

Desconectado ProcessKill

  • *
  • Underc0der
  • Mensajes: 154
  • Actividad:
    0%
  • Reputación 0
  • Arriba los hackers de Argentina!
    • Ver Perfil
    • Email
« en: Febrero 23, 2010, 04:03:13 pm »
Buenas gente. Les traigo este codigo creado por xmbeat
Sirve para hacer que el form tenga un efecto degradado.. puede ser el form, una imagen, etx
sin mas les dejo el code

Código: Visual Basic
  1. 'By xmbeat
  2. 'to foro.elhacker.net/programacion VB
  3.  
  4. Private Function Color(Col As Long) As Integer()
  5. Const B As Long = 65536 'constante que es el resultado de 256 al Cuadrado
  6. Const G As Long = 256
  7. Dim elRGB(2) As Integer
  8. Col = Abs(Col)
  9. 'aqui pueden usar el OleTranslateColor para usar los colores del sistema _
  10. pero no lo use para no contradecir el titulo del post
  11. elRGB(2) = Col \ B 'hacemos la operacion inversa de la funcion RGB()
  12. elRGB(1) = (Col Mod B) \ G
  13. elRGB(0) = (Col Mod B) Mod G
  14. Color = elRGB
  15. End Function
  16.  
  17. Sub Gradient(Formulario As Object, Inicio As OLE_COLOR, Final As OLE_COLOR, Optional Min As Long = 0, Optional _
  18. Max As Long = 256)
  19. With Formulario
  20. .AutoRedraw = True
  21. 'min es donde empezará a pintar y Max es donde terminará de hacerlo
  22. Dim I As Integer
  23. Dim Ini() As Integer
  24. Dim Fin() As Integer
  25. Dim Dif As Long
  26. Dim Ant As Long
  27. Dim R As Byte, G As Byte, B As Byte
  28.  
  29. On Error Resume Next
  30. Ant = .ScaleHeight
  31. .ScaleHeight = 256
  32. Ini = Color(Inicio)
  33. Fin = Color(Final)
  34. Dif = Max - Min
  35.  
  36. For I = Min To Max
  37. R = Ini(0) + ((Fin(0) - Ini(0)) / Dif) * (I - Min)
  38. G = Ini(1) + ((Fin(1) - Ini(1)) / Dif) * (I - Min)
  39. B = Ini(2) + ((Fin(2) - Ini(2)) / Dif) * (I - Min)
  40. Formulario.Line (0, I)-(.ScaleWidth, I + 1), RGB(R, G, B), BF
  41.  
  42. Next I
  43.  
  44. .ScaleHeight = Ant
  45. End With
  46. End Sub
  47.  
  48.  
  49.  
  50. Private Sub Form_Resize()
  51. Const Text0 As String = "By Xmbeat"
  52. Gradient Me, RGB(80, 80, 80), vbBlack, , 100
  53. Gradient Me, vbBlack, RGB(10, 19, 50), 100
  54. Me.FontSize = 24
  55. Me.FontBold = True
  56. Me.CurrentY = (Me.ScaleHeight - Me.TextHeight(Text0)) / 2
  57. Me.CurrentX = (Me.ScaleWidth - Me.TextWidth(Text0)) / 2
  58. Me.ForeColor = vbWhite
  59. Print Text0
  60. End Sub
  61.  
  62. ya me han

Saludos!  8)
« Última modificación: Julio 08, 2011, 09:23:52 am por ANTRAX »

 

¿Te gustó el post? COMPARTILO!



Efecto Agua en Imagen

Iniciado por Danyfirex

Respuestas: 1
Vistas: 2036
Último mensaje Septiembre 28, 2013, 11:07:52 am
por brais95