Visual Basic: Farbe eines Bildpunktes herausfinden

Computer: Software & Programmierung Programmierung allgemein
#1

Liebe/-r wer-weiss-was Experte/-in,

Wie kann man die Farbe eines Bildpunktes(Pixels) herausfinden ?

Hintergrund: Ich habe ein Programm geschrieben, das ein beliebiges Bild (im BMP-Format mit 16 Farben) in eine Picture-Box lädt. (Das Bild hat eine Auflösung von 640x480.)

Problem: Wie kann ich die Farbe eines
beliebigen Bildpunktes (Maßeinheit: Pixel)
herausfinden.

Beispiel: Ich will z.B. die Farbe der
Koordinate 120, 209 von dem Programm ‚gesagt‘ bekommen.

Genial wäre: …wenn das Programm das gesammte Bild sozusagen ‚scannt‘ und jede Koordinate mit der dazugehörigen Farbe in eine Textdatei speichert.

Ich bin noch nicht allzulange unter den ‚Visual-Basic-Programmieren‘ und weiß nicht ob mein Vorhaben überhaupt möglich ist. Wenn irgendjemand eine Idee hat würde ich mich sehr über jede Antwort freuen !

Mit freundlichen Grüßen:
Fabian ([email protected])

#2

Tach.

Point-Methode

Gibt den RGB-Wert (Rot-Grün-Blau) für die Farbe des angegebenenPunktes in einem Form-Objekt oder einem Bildfeld-Steuerelement (PictureBox) als Ganzzahl vom Typ Long zurück.Benannte Argumente werden nicht unterstützt.

Syntax

Objekt.Point(x, y)

Die Syntax der Point-Methode besteht aus folgenden Teilen:

Teil Beschreibung
Objekt Optional. EinObjektausdruck, der ein Objekt in der Liste unter Betrifft ergibt. Wenn Objekt nicht angegeben wird, wird das Formular mit demFokus als Objekt angenommen.
x, y Erforderlich. Werte einfacher Genauigkeit, die die horizontalen Koordinaten (x-Achse) und die vertikalen Koordinaten (y-Achse) des Punktes in der ScaleMode-Eigenschaft des Form-Objekts oder Bildfeld-Steuerelements anzeigen.

Anmerkungen

Wenn der Punkt, auf den sich die Koordinaten x und y beziehen, außerhalb von Objekt liegt, gibt die Point-Methode den Wert -1 zurück.

Beispiel (direkt aus der Hilfe)
(hast wohl ne raubkopie ohne msdn? :wink:

Point-Methode (Beispiel)
Dieses Beispiel verwendet die Point-Methode, um die Farbe eines bestimmten Punktes in einem Formular zu bestimmen. Sie probieren dieses Beispiel aus, indem Sie den Code in den Deklarationsabschnitt eines Formulars einfügen, F5 drücken und dann auf das Formular klicken.

Private Sub Form\_Click ()
 Dim LeftColor, MidColor, Msg, RightColor ' Variablen deklarieren.
 AutoRedraw = -1 ' AutoRedraw einschalten.
 Height = 3 \* 1440 ' Höhe auf 3 Zoll.
 Width = 5 \* 1440 ' Breite auf 5 Zoll.
 BackColor = QBColor(1) ' Hintergrund = Blau.
 ForeColor = QBColor(4) ' Vordergrund = Rot.
 Line (0, 0)-(Width / 3, Height), , BF ' Rotes Feld.
 ForeColor = QBColor(15) ' Vordergrund = Weiß.
 Line (Width / 3, 0)-((Width / 3) \* 2, Height), , BF
 LeftColor = Point(0, 0) ' Farbe für linkes,
 MidColor = Point(Width / 2, Height / 2) ' mittleres und
 RightColor = Point(Width, Height) ' Rechtes Feld bestimmen.
 Msg = "Die Farbe des roten Feldes auf 
der linken Seite des Formulars "
 Msg = Msg & "ist " & LeftColor & ". Die "
 Msg = Msg & "Farbe des weißen Feldes in der Mitte ist "
 Msg = Msg & MidColor & ". Die Farbe des blauen "
 Msg = Msg & "Feldes auf der rechten Seite ist " & RightColor & "."
 MsgBox Msg ' Meldung anzeigen.
End Sub

cu, holli