fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Bildpuffer an Prozedur durchreichen

Uploader:	Sebastian
Datum/Zeit:	12.02.2013 01:36:30

Sub DrawCross (ByVal X As Integer, ByVal Y As Integer, Puffer As Any Ptr)

    LINE Puffer, (X,Y)-(X+10,Y+10), 12

    LINE Puffer, (X+10,Y)-(X,Y+10), 12

End Sub





Screen 12

Line (0,0)-(639,479), 15, BF   'ganzen Bildschirm weiss malen





Dim As Any Ptr MeinBildPuffer

MeinBildPuffer = ImageCreate (100, 100)



DrawCross (20, 20, MeinBildPuffer)

DrawCross (80, 40, MeinBildPuffer)



Put (50, 50), MeinBildPuffer, PSET    'zusammengebauten Bildpuffer auf Bildschirm ausgeben



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.