Jak zjistit barvu pixelu na obrazovce ?

Jak zjistit barvu pixelu na obrazovce ? zodpovězená otázka

23. 5. 2007 8:39

8 9

Chtěl bych se zeptat, jestli je možné zjistit barvu pixelu na obrazovce.. našel jsem metodu GetPixel, ale ta potřebuje předat HDc, a to už mi nefunguje.. :(

asi takhle vypada nefunkční kód (ja vim že je k ničemu, ale ať to je kompletní) :

Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, _
    ByVal x As Long, ByVal y As Long) As Long

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        If GetPixel(Me.hdc, e.X, e.Y) = Color.Black Then
            cerna += 1
        End If
    End Sub

Mel by kdyz klikneme na cernou, tak se zvysi pormenna cerna

nahlásit spam

odpovědět

23. 5. 2007 13:19

Tomáš Herceg

1847 3847

Pokud to je ve Visual Basic .NET, pravděpodobně zavolání této API funkce zavolá chybu. Ve Visual Basic 6, kde se tyto funkce používaly téměř všude, totiž datový typ Long zabere v paměti 4 bajty (32 bitů), kdežto v .NETu má velikost 8 bajtů (64 bitů). Pokud tedy používáš API funkce ve VB.NET, v deklaraci změňte všechny proměnné typu Long na proměnné typu Integer. Jinak se při zavolání objeví chyba. Pokud to je navíc ukazatel, je ještě lepší použít datový typ IntPtr, který je pro to přímo určen.

Protože máš proceduru Form1_MouseDown, usuzuji, že ti stačí sledovat pixely v rámci okna, resp. na daném objektu typu Graphics. Kód bude vypadat třeba takto:

    Declare Function GetPixel Lib "gdi32" (ByVal hdc As IntPtr, ByVal x As Integer, ByVal y As Integer) As Integer

    Function GetSysColor(ByVal c As Color) As Integer
        Return c.R + c.G * 256 + c.B * 65536
    End Function

    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        Dim hDC As IntPtr = Me.CreateGraphics.GetHdc()
        If GetPixel(hDC, e.X, e.Y) = GetSysColor(Color.LimeGreen) Then 
            cerna += 1
        End If
    End Sub

A ještě jedna věc - funkce GetPixel nevrací hodnotu typu Color, která se používá pro barvy, ale číslo Integer, které barvu identifikuje. Proto je v ukázce ještě funkce GetSysColor, která barvu z .NETu převede na kód barvy, který používá Windows. Před porovnáváním tedy musíš .NETovou barvu prohnat touto funkcí a porovnávat ji s výsledkem GetPixel.

nahlásit spam

1 / 1

odpovědět

otázka připomínka kladné hodnocení záporné hodnocení

Nadpis:

Antispam:

Komu se občas házejí perly?

Příspěvek bude publikován pod identitou anonym.

Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.

Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

dotNETportal.cz