The dumbest program I have ever written

Post

Posted
Rating:
#1 (In Topic #1416)
thatbruce
Avatar
Regular
thatbruce is in the usergroup ‘Regular’
and yet there is no simple way I could find of achieving this so easily!

Because I have bad habits (eatin', drinkin' coffee, sneezing etc etc  :mrgreen: ) I need to clean the screen of my laptop, well, let's say more than occasionally.
Isopropanol and a tissue does the trick.

This is the entire code

Code (gambas)

  1. ' Gambas class file
  2.  
  3. Public Sub Form_KeyPress()
  4.  
  5.   If Key.Code = Key.Esc Then Me.Close
  6.  
  8.  
  9. Public Sub Form_MouseWheel()
  10.  
  11.   If Mouse.Delta > 0 Then
  12.     Me.Background = Color.Lighter(Me.Background)
  13.   Else
  14.     Me.Background = Color.Darker(Me.Background)
  16.  
  18.  
  19. Public Sub Form_Open()
  20.  
  21.   Me.FullScreen = True
  22.   Me.Background=&HFDFFB5
  23.  
  25.  
  26. Public Sub Form_DblClick()
  27.  
  28.   Me.Background = &HFDFFB5
  29.  
  31.  

The form background is set to a light buttery color. It can be made brighter or darker with the mouse wheel or reset by double clicking.
Hit escape to close.

Try it! I dare you and look at the corners of the screen.

Enjoy
thatBruce
Online now: No Back to the top

Post

Posted
Rating:
#2
BruceSteers
Guru
BruceSteers is in the usergroup ‘Guru’
You gotta love easy answers :)

That's a good idea. very simple but very good for what you need it for :)
Online now: No Back to the top
1 guest and 0 members have just viewed this.