Discussion :

[flophil78]

Bonjour,

J'ai une question à soumettre à la communauté et je vous remercie déjà de votre aide. Je poste ce message aprés avoir fait plusieurs recherches sur le forum, mais je n'ai trouvé que des petits éléments de réponses pour m'aider à résoudre mon problème.

Tout d'abord, le contexte : je suis en train de développer une application VB 6 multilangue, dont la majorité du contenu (combobox, libellé des champs, ...) sont stockés dans une base de données MySQL. Et l'un des éléments stockés dans cette DB sont les libellés des menus, stockés dans toutes les langues gérées par l'application.

Mon problème est que je dois créer les menus de l'application (ainsi que leur affectés l'action adéquate) de manière dynamique (fonction du contenu de la db), et pouvoir recréer ce menu lorsque l'on change la langue de l'application.

Si quelqu'un pouvait m'aiguiller et me donner des propositions de solutions ou des pistes ça m'aiderait beaucoup. Je ne suis pas novice en programmation mais je ne développe pas souvent en VB.

Merci de votre aide

[ProgElecT]

Je ne sais pas si cela répondra totalement à ta question, mais cela peut être une piste.

J’ai eu à faire un menu pour des utilisateurs ayant un statut différent (7 au total) qui ne devaient pas avoir accès à la totalité des fonctionnalités du programme.
J’ai donc construit le menu pour l’utilisateur ayant accès au total des fonctionnalités.
Au moment du chargement de l’application, l’utilisateur devant ce loguer, j’en déduisais, via la lecture de son statut dans une base de données, les différents boutons du menu, sous menu à rendre visible ou non.

Cela implique donc d’écrire pour chaque bouton, le code pour l’utilisateur ayant le statut d’accès total.
Pour le statut ayant le moins d’accès aux fonctionnalités, toute une partie du code ne sert a rien, voila le défaut de cette façon de faire.
Par contre rien n’empêche de modifier le Caption , le Enabled, le Checked, le Visible et Tag du/des boutons menu et sous menu, adapté pour toi a chaque langue du pays, via ta base de données.

[flophil78]

Ca pourra m'aider aussi parce qu'il y a également une notion de droit d'accés en fonction de groupe d'utilisateur connecté sur l'application.

Aurais-tu un exemple de bout de codes car je ne maitrise pas trop VB dés qu'il faut chipoter aussi "loin". Merci

[ProgElecT]

Voila en gros comment je ferai
Donc, il te faut récupèrer l’utilisateur du programme avec Environ("UserName"), avec sa, dans la BD, une table pouvant être nommée « StatutUtilisateur » avec un champs NameUser un autre DroitAcses et un autre Langue.
dans ton programme, suite au logue de l'utilisateur si tu veux personnaliser au mieux

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
TableOuverte.Open StatutUtilisateur Where NameUser = Environ("UserName") '…….
Select Case TableOuverte!DroitAcses
 Case 1 to 3
   CmdMenu1.visible = True : CmdMenu2.visible = True ':……….
 Case 4
   CmdMenu4.visible = True : CmdMenu7.visible = True ':……….
 Case 5,7
  CmdMenu1.visible = True : CmdMenu2.visible = True :CmdMenu9.visible =  True
  CmdMenu3.visible = True :……….
End Select 
 
Dim LaLangue as String
LaLangue = TableOuverte!Langue
Close.TableOuverte
 
'Dans une autre Table, « LangueUtilisateur », avec un champs Langue
'et autant de champs  
'que de bouton menu/sous menu Intituler1, Intituler2, . . . . . . . .  
 
TableOuverte.Open LangueUtilisateur  Where Langue = LaLangue',…….
If CmdMenu1.Visible = True Then CmdMenu1.Caption = TableOuverte!Intituler1
If CmdMenu2.Visible = True Then CmdMenu2.Caption = TableOuverte!Intituler2
 . . . . . . . 
If CmdMenu15.Visible = True Then CmdMenu15.Caption = TableOuverte!Intituler15
Close.TableOuverte

Ceci n’est qu’une idée, d’autres forumreurs vont sûrement t’en proposer d’autres, à toi de piocher pour adapter au mieux suivant ton besoin.

[Vld44]

moi j'utilise des labels pour les entêtes de menu, et je contruis un "popupmenu" dynamique en fonction de la langue courante.