Uso del control TabCtrl

Un sencillo programa que ejemplifica el uso de TabCtrl en Visual Pro5:

0010 BEGIN

0020 LET SYSGUI=UNT; OPEN (SYSGUI)"X0"

0030 DIM EVENT$:TMPL(SYSGUI)

0040 DIM GENERIC$:NOTICETPL(0,0)

0050 PRINT (SYSGUI)'WINDOW'(20,20,500,300,"Ventana con TabCtrl",$0002$,$$)

0060 PRINT (SYSGUI)'EDIT'(101,30,55,240,0,"Edit control en Tab 1",$0810$)

0070 PRINT (SYSGUI)'EDIT'(201,30,80,240,0,"Edit control en Tab 2",$0810$)

0080 PRINT (SYSGUI)'EDIT'(301,30,105,240,0,"Edit control en Tab 3",$0810$)

0090 LET TABDESC$=BIN(-1,2)+BIN(101,2)+"Tab 1"+$00$+BIN(-1,2)+BIN(201,2)+"Tab

0090:2"+$00$+BIN(-1,2)+BIN(301,2)+"Tab 3"+$00$

0100 PRINT (SYSGUI)'TABCTRL'(601,10,10,480,280,$0800$,$100000$,TABDESC$)

0110 REPEAT

0120 READ RECORD(SYSGUI,SIZ=LEN(EVENT$))EVENT$

0130 IF EVENT.CODE$<>"N" THEN CONTINUE

0140 LET GENERIC$=NOTICE(SYSGUI,EVENT.X%)

0150 DIM NOTICE$:NOTICETPL(GENERIC.OBJTYPE,EVENT.FLAGS)

0160 LET NOTICE$=GENERIC$

0170 REM

0180 IF NOTICE.CODE<>2 THEN CONTINUE

0190 IF EVENT.ID<>601 THEN CONTINUE

0200 SWITCH NOTICE.TABIDX

0210 CASE 0

0220 LET X=MSGBOX("Ha seleccionado ficha 1",0+64+0,"Ficha 1")

0230 BREAK

0240 CASE 1

0250 LET X=MSGBOX("Ha seleccionado ficha 2",0+64+0,"Ficha 2")

0260 BREAK

0270 CASE 2

0280 LET X=MSGBOX("Ha seleccionado ficha 3",0+64+0,"Ficha 3")

0290 BREAK

0300 CASE DEFAULT

0310 BREAK

0320 SWEND

0330 UNTIL EVENT.CODE$="X"

0340 END