Small Basic - Controls are Shapes
Published Feb 12 2019 03:19 PM 603 Views
Microsoft
First published on MSDN on Aug 02, 2014

Authored by LitDev


All of the Controls (Buttons, TextBoxes etc) that can be created with the Controls object can be manipulated with the Shapes object methods.


This can create some fun effects and make your games or programs more visually interesting.


Here is a simple example - it is possible to click it, but pretty hard!


http://smallbasic.com/program/?CWT060



gw = 600

gh = 600

GraphicsWindow . Width = gw

GraphicsWindow . Height = gh


clickMe = Controls . AddButton ( "Click Me" , 0 , 0 )

Controls . SetSize ( clickMe , 70 , 30 )

GraphicsWindow . MouseMove = OnMouseMove

Controls . ButtonClicked = OnButtonClicked


Sub OnMouseMove

x = Math . Abs ( gw - GraphicsWindow . MouseX )

y = Math . Abs ( gh - GraphicsWindow . MouseY )

dist = Math . SquareRoot ( ( x - gw / 2 ) * ( x - gw / 2 ) + ( y - gh / 2 ) * ( y - gh / 2 ) )

Shapes . SetOpacity ( clickMe , dist - 20 )

Shapes . Zoom ( clickMe , dist / 20 , dist / 20 )

Shapes . Move ( clickMe , x - 35 , y - 15 )

EndSub


Sub OnButtonClicked

GraphicsWindow . BackgroundColor = "Red"

EndSub



Version history
Last update:
‎Feb 12 2019 03:19 PM
Updated by: