Hi.
Ich habe nun 3 Hexadezimalzahlen!
Farbcodes:
#51973E Gelb
#C2A13A Grün
#EB1609 Rot
Ausgerechnet hier:
mws-design.ch/mws_WEBDESIGN/Grundlagen/Umrechnen/RGB2HEX.htm
Mit diesem Code möchte ich sie einbinden:
Dim farbe As Integer = 16711680 '<-- Da sollen meine Farben rein (Immer nur eine)
Dim b As New Bitmap(My.Computer.Screen.WorkingArea.Width, My.Computer.Screen.WorkingArea.Height)
Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(b)
g.CopyFromScreen(0, 0, 0, 0, New Size(b.Width, b.Height))
For i = 0 To (b.Width - 1)
For j = 0 To (b.Height - 1)
If b.GetPixel(i, j) = Color.FromArgb(farbe) Then
MsgBox("Pixel gefunden")
Else
msbox("Pixel nicht gefunden")
End If
Next
Next
Thx und mfg.
TGS
Ich habe nun 3 Hexadezimalzahlen!
Farbcodes:
#51973E Gelb
#C2A13A Grün
#EB1609 Rot
Ausgerechnet hier:
mws-design.ch/mws_WEBDESIGN/Grundlagen/Umrechnen/RGB2HEX.htm
Mit diesem Code möchte ich sie einbinden:
Dim farbe As Integer = 16711680 '<-- Da sollen meine Farben rein (Immer nur eine)
Dim b As New Bitmap(My.Computer.Screen.WorkingArea.Width, My.Computer.Screen.WorkingArea.Height)
Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(b)
g.CopyFromScreen(0, 0, 0, 0, New Size(b.Width, b.Height))
For i = 0 To (b.Width - 1)
For j = 0 To (b.Height - 1)
If b.GetPixel(i, j) = Color.FromArgb(farbe) Then
MsgBox("Pixel gefunden")
Else
msbox("Pixel nicht gefunden")
End If
Next
Next
Thx und mfg.
TGS
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „TheGameSiders“ () aus folgendem Grund: Neue Kenntnisse