Office50模块声明与主程序流程说明.pdfVIP

DECLARATIONDES

PROCEDURES

DeclareSubMain

DeclareFunctiongetTable()AsSmallInt

DeclareSubverificateur

DeclareSubcreTabSurf

====================================================================

==============MAIN

COMMENTAIRESURLE

MODULE

Procédureprincipale

SubMain

IncludeC:\ProgramFi\MapInfo\MapBasic\MAPBASIC.DEF

CreateMenuGestionTableAs

ExtrairesurfaceHelpMsgPermetdextrairesurfacedes

regions.

CallingcreTabSurf

AlterMenuBarAddGestionTable

EndSub

====================================================================

==========FINMAIN

====================================================================

==========getTable

COMMENTAIRESURLE

MODULE

Procédurequipermetdechoisirunetableouverte

FunctiongetTable()AsSmallInt

DimIasSmallInt

DimChoixTasString

DimtableChoisieasString

DimtableauTable(10)asString

Vérifiactionquilyabienunetabledouverte:

IfNumtab()=0Then

NoteUnetabledoitêtreouverte!!!

Else

NoteIlyabienaumoinsunetabledouverte.

EndIf

Sélectiondestabouvertes:

ForI=1ToNumtab()

tableauTAble(I)=TableInfo(I,TAB_INFO_NAME)

Next

choixT=

ForI=1ToNumtab()

choixT=choixT+tableauTable(I)+;

Next

Boitededialogue:

Dialog

TitleChoixdelaTable

ControlListBox

TitlechoixT

Callingverificateur

ID1

Value1

IntotableChoisie

Position5,25

ControlOKButton

ID2

Disable

ControlCancelButton

ID3

ControlStaticText

TitleChoisissezunetable:

Position5,10

tableChoisie=getTable()

EndFunction

============