Mouse Test 1

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

Moderators: anthonio, Abcott

Mouse Test 1

Berichtdoor bluatigro » wo dec 23, 2009 5:30 pm

n simpel muis teken programma
Code: Selecteer alles
WindowWidth = DisplayWidth
WindowHeight = DisplayHeight
nomainwin
open "Mouse Test" for graphics as #m
  #m , "trapclose [quit]"
  #m , "when leftButtonMove [leftButtonMove]"
wait
[leftButtonMove]
  #m , "goto " ; MouseX ; " " ; MouseY
  #m , "down"
  #m , "backcolor black"
  #m , "circlefilled 3"
  #m , "up"
  #m , "flush"
wait
[quit]
  close #m
end
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