randloos fulscreen

Geef hier je beste Liberty BASIC tips door. (Hier geen hulp vragen)

Moderators: anthonio, Abcott

randloos fulscreen

Berichtdoor bluatigro » zo jun 20, 2010 12:37 pm

dit is een voorbeeld hoe een randloos fulsreen te maken
het programma stopt met de [esc] toets
waarme men elk programma kon stoppen
[ vandaar escape : ontsnappen ]
dat was de stanaard tot dat windows kwam
met het veel makelijkere [crtl] + [alt] + [del]

nu is mijn voorstel :
laten wij de oude manier gebruiken
in al onze programmas
Code: Selecteer alles
WindowWidth = DisplayWidth
WindowHeight = DisplayHeight

graphicbox #m.g , 0,0 , WindowWidth , WindowHeight
open "" for window_popup as #m
  #m.g "setfocus"
  #m.g "when characterInput [key]"
wait

[key]
  Key$ = right$( Inkey$ , 1 )
  if Key$ = chr$( _VK_ESCAPE ) then
    close #m
    end
  end if
wait
bluatigro
 
Berichten: 306
Geregistreerd: za sep 27, 2008 6:01 pm

Keer terug naar Tips en informatie

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast

cron