Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

pixel lesen und ausgeben
Autor: Albert
Datum: 21.11.01 14:29
hi, ich habe ein kleines programm geschrieben das mir die pixel von der oberen rechten ecke liest und diese dann in einer picture box ausgibt! nur funktioniert das leider nicht so wie ich es mir vorstelle! das program ist anfangs recht schnell wird aber dann immer langsamer, wenn ich es dann ein zweites mal starte bekomme ich nur noch schwarze pixel zurück! ich habe leider nicht die erfahrung um diesen fehler einschätzen zu können deshalb hoffe ich auf euere hilfe! der programm code: ' API's Private Declare Function GetPixel Lib "gdi32" ( _ ByVal hdc As Long, _ ByVal x As Long, _ ByVal y As Long _ ) As Long Private Declare Function GetWindowDC Lib "user32" ( _ ByVal hdc As Long _ ) As Long Private Declare Function SetPixel Lib "gdi32" ( _ ByVal hdc As Long, _ ByVal x As Long, _ ByVal y As Long, _ ByVal crColor As Long _ ) As Long 'start command Private Sub ComStart_Click() Dim x As Long Dim y As Long Dim Pixel As Long For x = 1 To 100 'x For y = 1 To 100 'y Pixel = GetPixel(GetWindowDC(0), x, y) SetPixel Picture1.hdc, x, y, Pixel Next y Next x End Sub das ist der ganze code das programms danke schon mal für eure hilfe mfg albert

pixel lesen und ausgeben	49	Albert	21.11.01 14:29
Nu geht's flotti	217	Dieter	21.11.01 15:08
Re: Nu geht's flotti	28	Albert	21.11.01 15:12

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen