[Visual Basic] Suche Profi-> Die Farbwerte eines Pixels auf dem Bildschirm rausfinden

P

Programmierer

Well-known member
ID: 99340
L
20 April 2006
1.256
80
Hallo

Ich muss die Farbe von einem Pixel auf dem Bildschirm rausfinden per VisualBasic
Kann mir da einer nen code posten?
 
Beispielcode:

Deklaration:
Code: 
Public Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Public Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long) As Long
Public Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hDC As Long) As Long
Wichtig ist, je Public Declare, ein ganze Zeile

Als Beispiel, den Farbwert von {X:5,Y:50} auslesen und als Hex Farbcode (((BB)GG)RR) anzeigen:
Code: 
Private Sub Form_Load()
Dim a, c, x, y As Long
x = 5
y = 50
a = GetDC(0)
c = GetPixel(a, x, y)
MsgBox Hex$(c)
ReleaseDC 0, a
End Sub

Viel Spaß
 
lol
kein scheiss verdreckstes visualbasic forum kann mir die antwort nennen, und gerade hier finde ich die lösung ^^
danke!

wenn du mir jetzt noch sagen kannst wie ich das formatiere in 000 000 000 und die zahlen zu zerschnippeln in eigene variablen (immer 3 stellen) dann wäre ich glücklich :biggrin:
 
Code: 
Blue = (c And CLng(&HFF0000)) \ CLng(&H10000)
c = c - Blue * CLng(&H10000)
Green = (c And CLng(&HFF00)) \ CLng(&H100)
c = c - Green * CLng(&H100)
Red = c And CLng(&HFF)

Debug.Print Format(Red,"000")+" "+Format(Green,"000")+" "+Format(Blue,"000")
 
wow danke, cool ^^
ok ich suche noch genau einen code, oder auch mehr ^^

also ich brauche ein kleines fenster, wo in der mitte ein kreuz ist, und wo der bildschirm vergrößert dargestellt ist (ca. 2 oder 4 mal vergrößert)
so und der mittelpunkt von kreuz soll genau da sein, wo die maus grade draufzeigt! achja, das kreutz soll fest sein, der bildausschnitt soll immer der bei der maus sein, wenn ihr versteht was ich mein ^^
 
Du musst dich einloggen oder registrieren, um hier zu antworten.
Zurück
Oben