fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

kleine GUI Demo

Uploader:	Westbeam
Datum/Zeit:	25.04.2010 17:10:45

#include "GUI.bas"

declare sub CreateScreen()

screen 18,8



do

    Cursor()

    CreateScreen()

    sleep 1

    if buttonpressed(3)=3 then

        end

    end if

loop until taste=chr(27)



sub CreateScreen()

    screenlock

    cls

    line (0,0)-(640,480),79,BF

    line (0,460)-(640,480),7,BF

    CreateWindow(40,25,130,110,"Button-Test",7)

    button (50,50,"Button 1",1)

    button (50,70,"Button 2",2)

    button(1,461," Exit ",3)

    textbox (569,462,time,7)

    if buttonpressed(1)=1 then

        draw string(49,92), "Pressed 1"

    elseif buttonpressed(2)=2 then

        draw string(49,92), "Pressed 2"

    else

        draw string(49,92),"Pressed 0"

    end if

    screenunlock

end sub

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.