Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: punktgenaues Cls
Autor: Progger_Walli
Datum: 05.10.03 22:51
KA, bräuchte eigendlich nur, wie ich die Farbe ändern kann *g* Das, was du da schreibst, hört sich ähnlich der Hintergrundfarbe eines GIF's an (kann man auch trasparent machen). Wenn du in deiner Pic-Box die Linie mit dem POINT Befehl absuchen lässt, ob sich da deine zu löschende Farbe befindet und diese dann gelöscht wird? Glaube Picture1.Point(X,Y) ... aber ohne Gewähr *g* SUB Remove(X1,Y1,X2,Y2,F1,F2) STEPS=SQR((X1-X2)^2+(Y1-Y2)^2) '' Anzahl an Punkten zwischen X1/Y1 und X2/Y2 XS=(X2-X1)/STEPS ''X-Abstand pro STEP YS=(Y2-Y1)/STEPS X=X1 Y=Y1 For Ticker=1 to STEPS If POINT(X,Y)=F1 then PSET(X,Y),F2 Endif X=X+XS Y=Y+YS NEXT Ticker END SUB POINT - Pixel auslesen PSET - Pixel setzen Diese Befehle must du in VB umwandeln, sorry, alter Q-Basic-Mensch

punktgenaues Cls	552	Master	08.09.03 20:09
Re: punktgenaues Cls	356	Progger_Walli	05.10.03 22:51

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