Le portail francophone de la géomatique

Include "MapBasic.Def"
Dim NumEtape As Integer
Declare Sub Main
Declare Sub Dlg1
Declare Sub Dlg2
Declare Sub Dlg3
Declare Sub ValidationDlg
Declare Sub Btn


Sub Main 
NumEtape = 0 Call
Dlg1 


While NumEtape <> 100
     Do Case NumEtape 
        Case 103
            Call dlg2
        Case 203
            Call dlg3
        Case 201
            Call dlg1
Case 301
 Call dlg2
 Case 303
 Call ValidationDlg
 End case
 Wend
 End Sub


'--Validation de l'etape 3
Sub ValidationDlg
 NumEtape = 100
 Note "Dialog validé"
End Sub

'************ Dialog Etape 1 ************
Sub Dlg1
NumEtape = 100
Dialog 
itle "Etape 1/3"
Control Button
Title "Annuler" 
Calling Btn 
ID 100 
Control Button
 Title "Suivant >>" 
Calling Btn 
Id 103
End Sub


'************ Dialog Etape 2 ************
Sub Dlg2
NumEtape = 100

Dialog Title "Etape 2/3"
Control Button Title "<< Précédent"
Calling Btn
Id 201
Control Button
Title "Annuler"
Calling Btn
Id 100
Control Button
Title "Suivant >>" 
Calling Btn
 Id 203
End Sub


'************ Dialog Etape 3 ************
Sub Dlg3
 NumEtape = 100
 Dialog Title "Etape 3/3"
 Control Button
 Title "<< Précédent" 
Calling Btn
 Id 301
 Control Button
 Title "Annuler" 
Calling Btn
 Id 100
 Control Button
 Title "Terminer"
 Calling Btn 
Id 303
End Sub


'************ Dialog Generiques
Sub Btn
Dim DlgOk as Logical
 NumEtape = TriggerControl()

 'Récupérer le contenu des Control
 If NumEtape <> 100 Then 
Do Case NumEtape '
--Saisies Etape 1
 '>> 
Case 103
 Note "Btn suivant 1"
 '--Saisies Etape 2
 '>>
 Case 203
 Note "Btn Suivant 2"
 '<<
 Case 201 
Note "Btn Précédent 2" 

'--Saisies Etape 3 'Validation Case 303 Note "Btn Terminé"
 '<< 
Case 301
 Note "Btn Précédent 3" 
End Case 
End If 

Dialog Remove
End Sub