Kan man läsa ut RGB värdena ur en bild (pixel för pixel), och i sådanna fall hur? Titta i tips & tricks, där fanns något exempel som animerar en image - den läser pixel för pixel och byter rgb-värdet. HejLäsa ut RGB ur en bild
Sv: Läsa ut RGB ur en bild
/PelleSv: Läsa ut RGB ur en bild
Testa det här om du känner för det
Option Explicit
Private Declare Function GetPixel Lib "gdi32" _
(ByVal hDC As Long, ByVal x As Long, _
ByVal y As Long) As Long
Private Sub Command1_Click()
'Form1 ScaleMode skall vara 3 (pixel)
'Formens pixel x,y här 100 ,100 är ljusgrå
Dim pixColor As Long
pixColor = GetPixel(Form1.hDC, 100, 100)
Label1 = pixColor
'ger 12632256 inte vidare upplysande
'måste omvandla till Hex för att förstå bättre
Label2 = Hex$(pixColor)
'det blev C0 C0 C0 dvs RGB 192,192,192
'struligt men den enda väg jag kan komma
'på att lösa problemmet
'Obs det är bara Form och PictureBox som har
'hDC propertie, dvs om du har en Image på
'skärmen får du fånga pixels vi Formens kordinater
'mvh
'Sven
End Sub