Discussion :

[Kropernic]

Hello,

Tout est dans le titre ou presque.

Je recherche la bonne manière de faire pour pouvoir créer un genre d'assistant avec des écrans d'un processus d'encodage qui guideraient l'utilisateur pas à pas à travers les différentes étapes.

Ce que je cherche à arriver à faire est donc ceci en résumé :

1. on démarre d'un écran X où on clique sur un bouton qui démarre l'assistant.
2. l'écran 1 de l'assistant s'affiche en modal, on encode et on clique sur suivant
3. l'écran 1 est masqué et l'écran 2 de l'assistant s'affiche en modal, on encode et on clique sur suivant
4. ...
5. on arrive sur l'écran récapitulatif sur lequel on peut vérifier nos données et les valider pour terminer (ce qui ferme l'écran récapitulatif et redonne l'accès à l'écran x).

A chaque étape de l'assistant, il est possible de cliquer sur précédent pour revenir à l'étape précédente et modifier nos données.

Pour le moment, j'ai un code ressemblant à ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Class frmStep2Demo
 
    Public step1 As frmStep1Demo
    Public step3 As frmStep3Demo
 
    Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click
        If step3 Is Nothing Then
            step3 = New frmStep3Demo
            step3.step2 = Me
            Me.Hide()
            step3.ShowDialog()
        Else
            Me.Hide()
            step3.Show()
        End If
    End Sub
 
    Private Sub btnBack_Click(sender As Object, e As EventArgs) Handles btnBack.Click
        step1.step2 = Me
        Me.Hide()
        step1.Show()
    End Sub
 
    Private Sub frmStep2Demo_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
        step1.Close()
    End Sub
End Class

Mais ça part en couille car en jouant un peu avec les boutons suivants et précédent, je peux facilement regagner l'accès à l'écran x. Je fais donc forcément quelque chose de travers mais je ne comprends pas quoi.

Quelqu'un pourrait-il me mettre sur la bonne voie ???

[rv26t]

Salut,

C'est dans ton step1 qu'il faudrait interdire de revenir sur l'écran x

Mais perso, j'utiliserai une autre approche.
Je ne mettrais aucun code d'enchaînement des fenêtres en elle même, cela permettra une meilleure évolution.

Il suffit d'utiliser un dictionnaire de fenêtre, et la fenêtre principale x gére l'enchaînement des écrans d'assistances.

Un exemple :
Les fenêtres d'assistance et saisies, et la classe de données.

Code vb.net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Public Class frmQuestion1
 
    Public Property Data As clsData = New clsData
 
    Sub New(ByRef d As clsData)
        ' Cet appel est requis par le concepteur.
        InitializeComponent()
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        Data = d
    End Sub
 
    ' sub de mise à jour des data
 
    Private Sub btnSuivant_Click(sender As System.Object, e As System.EventArgs) Handles btnSuivant.Click
        DialogResult = Windows.Forms.DialogResult.OK
        Close()
    End Sub
    Private Sub btnPrecedant_Click(sender As System.Object, e As System.EventArgs) Handles btnPrecedant.Click
        DialogResult = Windows.Forms.DialogResult.Cancel
        Close()
    End Sub
 
End Class
 
Public Class frmQuestion2
 
    Public Property Data As clsData = New clsData
 
    Sub New(ByRef d As clsData)
        ' Cet appel est requis par le concepteur.
        InitializeComponent()
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        Data = d
    End Sub
 
    ' sub de mise à jour des data
 
    Private Sub btnSuivant_Click(sender As System.Object, e As System.EventArgs) Handles btnSuivant.Click
        DialogResult = Windows.Forms.DialogResult.OK
        Close()
    End Sub
    Private Sub btnPrecedant_Click(sender As System.Object, e As System.EventArgs) Handles btnPrecedant.Click
        DialogResult = Windows.Forms.DialogResult.Cancel
        Close()
    End Sub
 
End Class
 
Public Class frmQuestion3
 
    Public Property Data As clsData = New clsData
 
    Sub New(ByRef d As clsData)
        ' Cet appel est requis par le concepteur.
        InitializeComponent()
        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        Data = d
    End Sub
 
    ' sub de mise à jour des data
 
    Private Sub btnSuivant_Click(sender As System.Object, e As System.EventArgs) Handles btnSuivant.Click
        DialogResult = Windows.Forms.DialogResult.OK
        Close()
    End Sub
    Private Sub btnPrecedant_Click(sender As System.Object, e As System.EventArgs) Handles btnPrecedant.Click
        DialogResult = Windows.Forms.DialogResult.Cancel
        Close()
    End Sub
 
End Class
 
Public Class clsData
'les données 
End Class

La fenêtre x (chef d'orchestre)

Code vb.net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Class Form1
 
    Public Property Data As clsData = New clsData
 
    Private DicoForm As Dictionary(Of Integer, Form) = New Dictionary(Of Integer, Form) 'liste des form questionnaires
    Private numEcran As Integer = 1
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        DicoForm.Add(1, New frmQuestion1(Data)) ' questionnaire 1, passe l'instance de la classe data
        DicoForm.Add(2, New frmQuestion2(Data)) ' questionnaire 2, passe l'instance de la classe data
        DicoForm.Add(3, New frmQuestion3(Data)) ' questionnaire 3, passe l'instance de la classe data
    End Sub
 
    Private Sub btnDemarer_Click(sender As System.Object, e As System.EventArgs) Handles btnDemarer.Click
        While numEcran <= 3 ' ne quitte pas la boucle tant que la série complète n'est pas faite (faire un select case sur le dialog result pour une gestion plus fine si souhaitée)
            If DicoForm(numEcran).ShowDialog() = Windows.Forms.DialogResult.OK Then numEcran += 1 Else numEcran -= 1
            If numEcran = 0 Then numEcran = 1
        End While
    End Sub
 
End Class

Note : le close des fenêtres modales ne dispose pas celle-ci.
Il est ainsi très facile d'ajouter des écrans ou de changer l'ordre d'affichage.

[Kropernic]

C'est vrai que ça m'a l'air bien comme ça.

Merci pour l'idée

[Kropernic]

Hello,

Je rouvre la discussion car je rencontre un problème avec l'event Form.Load dans l’enchaînement des steps.

D'après la MSDN, l'event Form.Load n'est déclenché que lors du premier affichage de la form.

Or, si je suis sur mon step1, que je passe au step2 en faisant un Hide() du step1 et que je reviens au step1, l'event load est de nouveau déclenché.

Pourtant, la form n'a jamais été fermée/disposée. Elle était juste "en arrière plan". Pourquoi l'event Load est-il donc à nouveau déclenché...

Cela à pour effet que, au lieu de conserver les données que l'utilisateur avait déjà encodé, les contrôles sont tous réinitialisés comme si l'utilisateur n'avait encore rien fait.

Une idée pour remédier à cela ?? La MSDN est-elle incorrecte (j'en doute) ou y a-t-il une particularité de ShowDialog qui fait que Load est déclenché malgré tout ??

[Kropernic]

La réponse se trouve ici.

J'aurai donc appris qu'il ne faut plus utiliser l'event Load ^^.