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:
Public Declare Function SetPixelV Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
Y esto en el evento OnClick() del botón:
Private Sub Command1_Click()
For x = 0 To 255
For y = 0 To 255
SetPixelV Picture1.hdc, x, y, RGB(x, y, 0)
SetPixelV Picture2.hdc, x, y, RGB(x, 0, y)
SetPixelV Picture3.hdc, x, y, RGB(0, y, x)
SetPixelV Picture4.hdc, x, y, RGB(x, y, 255)
SetPixelV Picture5.hdc, x, y, RGB(x, 255, y)
SetPixelV Picture6.hdc, x, y, RGB(255, y, x)
Next y
Picture1.Refresh
Picture2.Refresh
Picture3.Refresh
Picture4.Refresh
Picture5.Refresh
Picture6.Refresh
DoEvents
Next x
End Sub
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!!
Mostrar Mensajes
