fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Pulldown Menu demo

Uploader:	AndT
Datum/Zeit:	21.01.2008 14:40:01

screen 15

#include once "fbgfx.bi"

dim as FB.Image ptr Hintergrund = IMAGECREATE (400 +1 ,300 + 1)

dim as FB.Image ptr Menu        = IMAGECREATE (100,100)

line(1,1)-(100,100),3,bf

get (1,1)-(100,100),Menu



'Hintergrund erstellen

for x as integer = 1 to 400

    for y as integer = 1 to 300

        pset hintergrund,(x,y),int(rnd*255)+1

    next

next



put (0,0),hintergrund



dim as integer menupos



for i as integer = 0 to 150

    put(0,0),hintergrund,pset

    put(200,i),menu,pset

    sleep 1

    next

Print "Jetzt taste druecken um es wieder verschwinden zu lassen.."

sleep

put (0,0),hintergrund,pset

Print "Und weg ist er.."

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.