fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

PAINT-Beispiel für DarkShiver

Uploader:	Sebastian
Datum/Zeit:	12.12.2011 19:41:59

screenres 640, 480, 32



Dim As UInteger Randfarbe = RGB(64,64,64)



' Den ganzen Bildschirm hell-gelb fuellen:

PAINT (0,0), RGB(240,240,165), Randfarbe

' ... und warum passiert das? -> Die Randfarbe, die die Füllbegrenzung

' darstellen soll, taucht bisher nirgends auf, d.h. das Füllen trifft

' auf keine Grenze innerhalb des SCREENs



SLEEP



' Ein Kästchen in der Randfarbe malen

LINE (100,300)-(500,400), Randfarbe, B



SLEEP



' ...und rot füllen

PAINT (110,310), RGB(255,0,0), Randfarbe



SLEEP

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.