Le portail francophone de la géomatique

Merci je regarde cela de suite. Aucun commentaires sur ma facon de fonctionner de cette manière ?

Bonjour.

Vous pouvez trouver un exemple MB, composé de 3 boites de dialogue avec btn "Suivant" et btn "Précédent".
Pas trop de commentaires (Désolé !), mais les instructions note"" devraient être utiles...

[Edit : la solution est dans le TriggerControl() qui vous dit de quelle boite de dialog vous venez....]

Cordialement,
Jasper
____________________

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
        Title "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

Dernière modification par jasper (Thu 17 April 2008 11:27)

Bonjour Fabius,

Je gère aussi une utilisation par étape d'une interface sur MI.
J'ai opté pour une solution simple qui utilise des Alter Control [ID] Hide
En gros même boite de Dialog avec un bouton pour passer à l'étape suivante  qui permet de cacher les control de l'étape et d'afficher les control de la boite suivante.
Bon courage
Séraphin

edit : cela venait du fait que j'avais des cancelbutton et des okbutton. Ahlalala l'inatention me perdra ]

edit 2 :Tout d'abord, désolé pour le post en doublon mais en ce qui concerne mes controls c'est un peu flou. En cliquant sur précédent on revient effectivement à la boite précédente, dans mon cas la 1ere  (Pour l'instant je n'en ai que deux). Cependant les informations saisies (un numéro dans un editext, une cache de coché dans un radiogroup et un choix dans une listbox) n'apparaissent plus comme précédemment saisi par l'utilisateur. Es ce normal ? Je sais que ca ne revet pas une importance extreme que le programme permettent de voir ce qui avait été fais mais c'est un objectif a atteindre dans mon projet.

Dernière modification par Fabius (Thu 17 April 2008 14:44)

Merci pour votre réponse mais quand je veux l'adpater a autre chose qu'a un checkbox cela ne fonctionne pas. Autant avec un check box le truc est resté quand je mets précédent autant avec ma listbox mon edittext et mon radiogroup il reste avec leur valeur initiale.

En fait quand je regarde les valeurs (avec un note) celles ci sont conservés mais n'apparaissent pas comme visible pour l'utilisateur.
Voici mon code pour la premiere boite de dialogue, le probleme ne viendrait t'il pas des into pour remplir ces variables ?

Sub Dlg1

compteur =100


Dialog Title "Choix du type de cartes (1/3)" width 200 Height 150

    Control Statictext Position 25,12 Title "Type de cartes :"
    Control listbox position 90,13 width 90 Height 60  value 1 Title "Cartes Simple;Cartes zones Iso;Cartes 2 ;Cartes 3 ;" into typecarte id 1
    
    Control Statictext title "Dep" position 25,100
    Control Edittext position 55,98 id 2 width 20 value 14 into version

    Control symbolpicker position 25,25 width 54 height 45 value makecustomsymbol("GLOB1-32.BMP",1,48,0)disable

    Control Groupbox title "Format" Position 110,80  
   Control RadioGroup Title "&Taille A3;&Taille A4" Position 120,90 ID 3 Into taille 

   Control Button Position 80, 130 Title "Annuler" width 50 calling btn id 100
   Control Button Position 140, 130  Title "Suivant >>" width 50 calling btn id 103
    Control Button Position 20, 130  Title "Help" width 50

PS: je sais que je suis chiant

Dernière modification par Fabius (Thu 17 April 2008 17:20)

Merci de votre réponse.

Le value 14 into version marche parfaitement (deja utiliser dans un programme plus simple) il met par défault la valeur la plus commune puisque quasiment tout le temps utilisée)
Comme je l'ai dit plus haut , en utilisant des notes je vois que mes valeurs restent en l'etat lorsque "j'avance" et/ou "recule" entre les boites de dialogues mais en revenant sur la précédente (la 1ere dans mon cas) les valeurs de mes différents control apparaissent comme étant initiaux. Vous venez peut etre de me répondre dans votre message en m'indiquant  comment procéder avec readcontrolvalue() si c'est le cas je reverrais ca demain a tete reposé parceque là le code mapbasic je commence à saturer pour aujourdhui

Bonne fin de journée

Fabius

Merci de votre réponse et désolé pour le retard mais ca fonctionne parfaitement comme ca. Avec le recul, apres une bonne journée de travail, c'est vrai que c'était assez logique de fonctionner comme ca . Ce point est résolu mais il est possible que j'ai besoin de remonter ce sujet prochainement en avancant dans mon programme


Petite question d'ailleur : Avant cet enchainement de boites de dialogues mes actions se lancait avec un if cmd_dlg_ok mais quelle est la commande,si elle existe, qui permet d'executer a partir d'un bouton simple ?

Personnelement j'ai fonctionné avec le numetape en fonction de la valeur qu'il prenait mais si jamais on fait  un retour en arriere celui ci va réouvrir pour la deuxieme fois la table ou le .wor ?


Cordialement

Fabien

Dernière modification par Fabius (Fri 18 April 2008 16:56)

Bonjour
Je reprends le collier ...et je vous suggère la lecture attentive de cette somme, comme toujours tirée le la "mine" de J. Paris...

Bonjour Fabius,

Je sais que je suis tard mais j'ai trouver comment résoudre ton problème. Si nécéssaire fait moi signe

JF

Bonjour Fabius,

Voici le code que j'ai fait, il est commenté et il est prêt à être compilé...désolé pour certain nom de variable mais c'est pas si difficile une fois que tu comprend la boucle principale et d'un dialog.

un des avantages est qu'il stock les infos dans une variable array en mémoire et donc le formulaire garde la valeur même si on avance ou recule dans la succession j'ai ajouter une boucle à la fin pour vider la variable si nécéssaire, il est très très facile d'ajouter plusieurs autre boite de dialogue +- 2min par boite en temps de programmation.

Voici un exemple avec 4 boites essaie d'entrer des valeur/recule/avance/annule/recommence et complete le tu verra très convivial

P.S désolé pour l'ergonomie mais ces un exemple

JF