Hello World

[Doyle Whisenant]

John Spikowski wrote:
> List,
> 
> I'm looking for a good GUI "Hello World" example to kick off the templates I
> referred to in my last message. I did a list search and found this.
> 
> http://lists.basic-compiler.com/pipermail/bcx/2002-May/006296.html
> 
> Would anyone care to submit a better example?
> 


This is about the minimum code:

GUI "Form1",PIXELS

CONST Stc1_Style    = WS_CHILD|WS_VISIBLE
CONST Stc1_ExtStyle = 0

ENUM
    ID_Stc1
END ENUM

GLOBAL Form1 AS HWND
GLOBAL hStc1 AS CONTROL


SUB FORMLOAD()
    Form1 = BCX_FORM("GUI Demo", 0, 0, 436, 161)
    hStc1 = BCX_LABEL("Hello World!",Form1,ID_Stc1, 168, 50, 72, 16, 
Stc1_Style, Stc1_ExtStyle)
    CENTER(Form1)
    SHOW(Form1)
END SUB

BEGIN EVENTS
  SELECT CASE CBMSG
    CASE WM_COMMAND
       SELECT CASE CBCTL
           CASE ID_Stc1
       END SELECT
  END SELECT
END EVENTS