[Source] Crear ColorPicker avanzado (como em Photoshop)

[Mad Antrax]

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 (vb) [Seleccionar] Expandir

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:

Código (vb) [Seleccionar] Expandir

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!!

[Hendrix]

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....

[ranslsad]

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

Salu2

Ranslsad