elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [Source] Crear ColorPicker avanzado (como em Photoshop)
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Source] Crear ColorPicker avanzado (como em Photoshop)  (Leído 3,112 veces)
Mad Antrax
Colaborador
***
Desconectado Desconectado

Mensajes: 2.164


Cheats y Trainers para todos!


Ver Perfil WWW
[Source] Crear ColorPicker avanzado (como em Photoshop)
« en: 26 Junio 2007, 23:37 pm »

Pues eso, ví las herramientas para seleccionar color en Photoshop, las distintas paletas y escaleras de colores que posee y me dije... ¿será muy dificil programar eso?, nada más lejos de la verdad... solo tardé 2 minutos:



Y el código que te permite hacer eso me asombra de lo sencillo que es, a veces lo simple es bello:

Declaramos esto en un módulo:
Código
  1. Public Declare Function SetPixelV Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
  2.  


Y esto en el evento OnClick() del botón:
Código
  1. Private Sub Command1_Click()
  2.    For x = 0 To 255
  3.        For y = 0 To 255
  4.            SetPixelV Picture1.hdc, x, y, RGB(x, y, 0)
  5.            SetPixelV Picture2.hdc, x, y, RGB(x, 0, y)
  6.            SetPixelV Picture3.hdc, x, y, RGB(0, y, x)
  7.            SetPixelV Picture4.hdc, x, y, RGB(x, y, 255)
  8.            SetPixelV Picture5.hdc, x, y, RGB(x, 255, y)
  9.            SetPixelV Picture6.hdc, x, y, RGB(255, y, x)
  10.        Next y
  11.        Picture1.Refresh
  12.        Picture2.Refresh
  13.        Picture3.Refresh
  14.        Picture4.Refresh
  15.        Picture5.Refresh
  16.        Picture6.Refresh
  17.        DoEvents
  18.    Next x
  19. End Sub
  20.  

Solo muestra los colores, pero no devuleve el color seleccionado, eso lo podemos terminar con la API: GetPixel (os dejo el razonamiento para que lo termineis vosotros)

:)

Saludos!!


« Última modificación: 30 Junio 2007, 15:10 pm por ||MadAntrax|| » En línea

No hago hacks/cheats para juegos Online.
Tampoco ayudo a nadie a realizar hacks/cheats para juegos Online.
Hendrix
In The Kernel Land
Colaborador
***
Desconectado Desconectado

Mensajes: 2.276



Ver Perfil WWW
Re: [Source] Crear ColorPicker avanzado (como em Photoshop)
« Respuesta #1 en: 26 Junio 2007, 23:49 pm »

Lo habia visto en www.recursosvisualbasic.com (evidentemente, no era este, era solo un ejemplo de como se usaba) y no le preste atencion...esta bastante bien.... ;) ;)



En línea

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
ranslsad


Desconectado Desconectado

Mensajes: 492


Dim Ranslsad as String * :P - Que Vicio!


Ver Perfil WWW
Re: [Source] Crear ColorPicker avanzado (como em Photoshop)
« Respuesta #2 en: 27 Junio 2007, 00:07 am »

Yo tambien habia visto ejemplos de esto, pero tampoco le habia dado mucha importancia, se los dare cuando me haga falta :D
Aun asi muy buen aporte.

Salu2

Ranslsad
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
¿Como programar un depurador avanzado?
Programación General
Yuki 8 3,964 Último mensaje 23 Mayo 2017, 00:19 am
por Serapis
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines