CREATE PANEL Example


Example:

 

WIN

WINDOW

 

TC

TABCONTROL

 

BUT

BUTTON

 

FNT

FONT

 

.

 

 

PNL1

PANEL

 

ST

STATTEXT

 

ET

EDITTEXT

 

RADIO1

RADIO

 

RADIO2

RADIO

 

CB

CHECKBOX

 

.

 

 

PNL2

PANEL

 

CB2

CHECKBOX

 

ST2

STATTEXT

 

CBX

COMBOBOX

 

.

 

 

RESULT

INTEGER

1

*

 

 

.Create the font, color, window, and tab control objects

.

 

 

  

CREATE

FNT,"'>MS Sans Serif'",SIZE=8

  

CREATE

WIN=117:384:219:659, BGCOLOR=2147483663:

  

  

TITLE="Panel Test"

  

CREATE

WIN;TC=16:214:11:411:

  

  

TABLABEL="Tab1;Tab2":

  

  

FONT=FNT,ZORDER=10

*

 

 

.Create the first panel

.

 

 

  

CREATE

WIN;PNL1=40:200:30:400:

  

  

BGCOLOR=2147483663,ZORDER=20

.

 

 

  

CREATE

PNL1;CB=113:140:136:230,"Active":

  

  

BGCOLOR=2147483663,FONT=FNT,STYLE=1

.

 

 

  

CREATE

PNL1;ET=43:67:134:323:

  

  

BORDER=1,BGCOLOR=16777215:

  

  

FGCOLOR=2147483666,FONT=FNT,STYLE=1

.

 

 

  

CREATE

PNL1;RADIO1=78:108:251:351,"Reseller":

  

 

BGCOLOR=2147483663,FONT=FNT,STYLE=1

.

 

 

  

CREATE

PNL1;RADIO2=82:100:136:239,"End User":

  

  

BGCOLOR=2147483663,FONT=FNT,STYLE=1

.

 

 

  

CREATE

PNL1;ST=46:66:81:128,"Name:",FNT:

  

  

BGCOLOR=2147483663,STYLE=1:

  

  

ALIGNMENT=3

*

 

 

.Create the Second panel

.

 

 

  

CREATE

WIN;PNL2=40:200:30:400:

  

  

BGCOLOR=2147483663,ZORDER=20

.

 

 

  

CREATE

PNL2;CB2=40:60:135:230,"Training":

  

  

BGCOLOR=2147483663,FONT=FNT,STYLE=1

  

 

 

  

CREATE

PNL2;ST2=70:90:10:130,"Employee Type:",FNT:

  

  

BGCOLOR=2147483663,STYLE=1:

  

  

ALIGNMENT=3

.

 

 

  

CREATE

PNL2;CBX=70:90:135:325,"","M;Contract;Hourly;Salaried":

  

  

BGCOLOR=16777215,COMBOSTYLE=2,FONT=FNT

*

 

 

.Create the exit button

.

 

 

  

CREATE

WIN;BUT=225:250:148:250,"E&xit":

  

  

FONT=FNT,DEFAULT=1

*

 

 

.Activate the panel 1 objects

.

 

 

  

ACTIVATE

CB

  

ACTIVATE

ET

  

ACTIVATE

RADIO1

  

ACTIVATE

RADIO2

  

ACTIVATE

ST

  

ACTIVATE

PNL1

*

 

 

.Activate the panel 2 objects

.

 

 

  

ACTIVATE

ST2

  

ACTIVATE

CBX

  

ACTIVATE

CB2

*

 

 

.Activate the tab control, the window, and the exit button

.

 

 

  

ACTIVATE

TC,CHGTAB,RESULT

  

ACTIVATE

WIN

  

ACTIVATE

BUT,END,RESULT

*

 

 

.Wait for an event to occur

.

 

 

  

LOOP

 

  

EVENTWAIT

 

  

REPEAT

 

*

 

 

.Tab change requested

.

 

 

CHGTAB

 

 

  

IF

(RESULT = 1)

  

DEACTIVATE

PNL2

  

ACTIVATE

PNL1

  

ELSE

 

  

DEACTIVATE

PNL1

  

ACTIVATE

PNL2

  

ENDIF

 

  

RETURN

 

*

 

 

.Termination requested

.

 

 

END

 

 

  

STOP

 

 

This example demonstrates the use of PANELs with a TABCONTROL.

 



PL/B Language Reference CREATE MREGION Example CREATE PICT Examples