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