VBA: getpixel

[Gina_VBA]

Hallo,

kann mir jemand von euch bitte einmal die GETPIXEL Funktion erklären?

Warum gibt die Variable "punkt" generell immer -1 zurück?

Open "c:\Strichzeichnungen\" & artikel For Binary Access Read As #1

Get #1, , Dmmy

Get #1, , Bits

Dim punkt As Long

Picture1.Picture = LoadPicture("C:\Strichzeichnungen\" & artikel)

punkt = GetPixel(Picture1.Picture, 150, 150)

Close #1

Liebe Grüße

Gina

[developer]

http://www.fachinformatiker-world.de/forums/showthread.php?s=&threadid=39119&werbeid=32 :mod:

Du setzt aber schon mal andere Koordinaten ein, oder?

Schon in der MSDN unter Bitmap.GetPixel nachgelesen?

[Gina_VBA]

Ja, die Koordinaten habe ich schon geändert. Die Bilder sind alle monochrom. Das heiß, wenn ich das Bild entweder ganz schwarz oder weiß färbe, müsste ja eigentlich ein anderer Wert heraus kommen...aber er bleibt leider immer stur bei -1.

ups, vor lauter Stress nicht zuende gelesen. In der Library finde ich leider auch nichts dazu. Es scheint ja alles richtig zu sein vom Code her.

Vielleicht liegt es wirklich an der Monochromität der Bilder.