Discussion :

[yalefe]

Bonjour,

j'ai sur une page d'un Multipages plusieurs Options Buttons ( qui servent à vérifier la présence sur le pare brise des véhicules de l'entreprise les vignettes Crit Air ainsi que leur niveau).




Le choix sur un niveau renvoie vers la page 0 du multiframe.

Question : y a t'il moyen ( plus simple) de traiter ces option button que ce bout de code :

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
 
'saisie Frame Vignette Crit Air
Private Sub optionbuttonNiveau0_click()
 
MultiPage5.Pages(0).Visible = True
MultiPage5.Pages(1).Visible = False
 
End Sub 
 
'saisie Frame Vignette Crit Air
Private Sub optionbuttonNiveau1_click()
 
MultiPage5.Pages(0).Visible = True
MultiPage5.Pages(1).Visible = False
 
End Sub
....

merci

[Pierre Fauconnier]

Salut.

On pourrait partir sur une classe personnalisée, mais je ne suis pas convaincu que ce serait (beaucoup) "plus simple". De plus, chacun a ses propres critères de ce qu'est la simplicité).

Tu pourrais déjà partir sur une procédure commune (règle de base: les proc évènementielles ne devraient rien faire d'autre que d'appeler des procédure, en gros)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'saisie Frame Vignette Crit Air
Private Sub optionbuttonNiveau0_click()
  GestionMultipage
End Sub 
 
'saisie Frame Vignette Crit Air
Private Sub optionbuttonNiveau1_click()
  GestionMuliPage
End Sub
 
Sub GestionMultipage()
  MultiPage5.Pages(0).Visible = True
  MultiPage5.Pages(1).Visible = False
End Sub

[yalefe]

merci