Color picker?

[xamunrax]

Hallo alle beisammen,

ich habe eine frage und zwar vieleicht hat jemand von euch das ja schon ma gemacht...

ich möchte gern das in dem programm 2 textfelder sind in denen ich koordinaten des screens eingebe (y und x achse) und das programm dann die farbe des angegebenen pixels, in RGB werten ausliest...


vielen dank im vorraus

 

[Bambusbieger]

Verstehe ich das richtig, dass du den Pixel haben willst, der auf dem Bildschirm angezeigt wird? Dann würde ich das so machen:

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

Private Sub Command1_Click()
   Dim DC as Long
   Dim Farbe as Long
   DC = GetDc(0)
   Farbe = GetPixel(DC,CLng(Text1.Text),CLng(Text2.Text))
   ReleaseDC 0, DC
End Sub

 

[Bambusbieger]

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 Sub Command1_Click()
    Dim DC As Long
    Dim Farbe As Long
    Dim X As Long
    Dim Y As Long
    DC = GetDC(0)
    Me.ScaleMode = 3
    For X = 0 To 99
        For Y = 0 To 99
            Farbe = GetPixel(DC, X, Y)
            Me.PSet (X, Y), Farbe
        Next
    Next
    ReleaseDC 0, DC
End Sub

Das ist der Beweis, dass du auch den richtigen Pixel hast