Easy Windows

[GWS]

For anyone considering using Creative Basic, take a look at this simple example.

It creates a window, colours and centres it, and sets up a Textbox control with formatted, centered text - all in just a handful of program statements. (Actually, the Rectangle isn't absolutely required - it's only there to highlight the text box).

That's the beauty of Basic - simple and direct .. 

Of course some of the commands need to be studied, but it's all covered in the excellent User's Guide.

Windows doesn't get much simpler than this .. 

Code Select Expand


' Demonstrating how easy it is to create a window in Creative Basic
' also includes a Text Box control to display some text ..
def w:window
def wstyle:int
def a$,newline:string

wstyle = @SIZE|@MINBOX
newline = chr$(10)
window w,0,0,600,400,wstyle,0,"Creative Basic",main
setwindowcolor w,rgb(0,0,40)
centerwindow w

control w,"T,,100,30,400,300,@cteditcenter,1"
setcontrolcolor w,1,rgb(55,255,160),rgb(0,0,50)
rect w,99,29,402,302,rgb(0,150,150)

a$ = string$(3,newline) + "A Simple" + newline + "Creative Window"
setfont w,"Arial", 20, 700, @SFITALIC,1

setcontroltext w,1,a$

waituntil w = 0
END

SUB main
select @CLASS
case @IDCLOSEWINDOW
closewindow w
endselect
RETURN



best wishes,

Graham