GUI
"test"
GLOBAL
Form1 AS
CONTROL
GLOBAL
Edit_1 AS
CONTROL
GLOBAL
Edit_2 AS
CONTROL
GLOBAL
Label_1 AS
CONTROL
GLOBAL
Label_2 AS
CONTROL
SUB
FORMLOAD(
)
Form1 =
BCX_FORM
(
"BCX !"
, 67
, 42
, 160
, 130
)
Edit_1 =
BCX_EDIT
(
"Edit 1"
, Form1, 102
, 45
, 10
, 75
, 30
)
Edit_2 =
BCX_EDIT
(
"Edit 2"
, Form1, 103
, 45
, 50
, 75
, 30
)
Label_1 =
BCX_LABEL
(
"Label 1"
, Form1, 100
, 5
, 10
)
Label_2 =
BCX_LABEL
(
"Label 2"
, Form1, 101
, 5
, 50
)
BCX_SET_FORM_COLOR
(
Form1, RGB
(
0
, 0
, 0
)
)
BCX_SET_FONT
(
Edit_1, "Verdana"
, 14
)
' font, size
BCX_SET_FONT
(
Edit_2, "Tahoma"
, 10
)
' font, size
BCX_SET_FONT
(
Label_1, "Tahoma"
, 12
)
' font, size
BCX_SET_FONT
(
Label_2, "Tahoma"
, 12
)
' font, size
CENTER
(
Form1)
SHOW
(
Form1)
END
SUB
BEGIN
EVENTS
BCX_SET_LABEL_COLOR
Label_1, RGB
(
0
,225
,0
)
, RGB
(
0
,0
,0
)
BCX_SET_LABEL_COLOR
Label_2, RGB
(
255
,255
,255
)
, RGB
(
0
,0
,0
)
BCX_SET_EDIT_COLOR
Edit_1, RGB
(
64
,128
,128
)
, RGB
(
225
,225
,225
)
BCX_SET_EDIT_COLOR
Edit_2, RGB
(
225
,225
,0
)
, RGB
(
0
,0
,128
)
END
EVENTS