Visual Basic 6 - Pixel colore esadecimale

Ciao! E' possibile capire qual'è il colore in esadecimale di un pixel preciso?

Un po' generica la domanda. Intendi un pixel di una picturebox, del form, o di tutto lo schermo?

in vb 2005 c'è il metodo getpixel passandogli le coordinate ti dà il colore!

di tutto lo schermo con vb6

Appunto, in VB2005. Qui siamo in vb6
E comunque non sarebbe nemmeno fattibile in quel modo se volesse trovare il colore di un pixel sul resto dello schermo. Per questo gli ho chiesto maggiori informazioni

Usa google:google.it/…

E trovi hwupgrade.it/forum/…

Ah GetPixel di gdi32...pensavo che intendessi Bitmap.GetPixel di vb.net

Devi usare l'hwnd del desktop (costante 0) ...

Se inserisci una Picture nel form e tieni presente che lo schermo non verrà ridimensionato, puoi dare un'occhiata a questo codice che ho buttato giu' per prova

Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long

Private Const HWND_DESKTOP = 0

Private Sub Command1_Click()
    Dim dskHdc As Long
    Dim x As Long
    Dim y As Long
    
    dskHdc = GetDC(HWND_DESKTOP)
    
    Picture1.AutoRedraw = True
    For y = 0 To Picture1.Height / Screen.TwipsPerPixelY
        For x = 0 To Picture1.Width / Screen.TwipsPerPixelX
            SetPixel Picture1.hdc, x, y, GetPixel(dskHdc, x, y)
        Next x
        DoEvents
        Picture1.Refresh
    Next y
    
    ReleaseDC HWND_DESKTOP, dskHdc
End Sub