Discussion :

[Job]

Bonjour

je voudrai savoir s'il est possible de parcour des menus et des sous menus avec VB6.
Dans le carde de gestion des droits des utilisateurs, les users peuvent ou pas acceder a un sous menu en fonction d'une table ou les index sont enregistre ainsi que les droits de l'utilisateur sur le sous menu en question.
pour cela je dois parcourir tous les sous menus

Menu1 menu2
smenu1 smenu3
smenu2 smenu4
user : toto
index : 4
droit : O/N

comment fair un parcour dynamique des sous menus ?
suis je assez explicite ?

Merci

[jacma]

Bonjour
Les menus ont une propriété Enabled et une propriété Visible pouvant être définies. Donc, l'idée génerale serait de faire un test sur l'utilisateur (dans Form_Load), genre Select Case, et en fonction de celui-ci, définir les deux propriétés en question.

[Job]

oui je suis d'accod mais l'idee serai que la table access qui contient les enregs des droits utilisateur se mette a jour toute seul.

De plus je voudrai en faire une procedure applicable a toutes mes appli.

Donc un menu est mis a jour ou modifié, ma table access aussi.

voila la finalité de ma question.


Donc je dois parcourir tous les sous menus alors que je ne connais pas leurs noms mais leur index.

[Amri_Daly]

salut

pour parcourir les menus en mode exécution tu peut utiliser la collection controls :
for each m in form.controls
m.enabled=(m.name =nomDuMenuDansLaTable)
next

si tu veut extraire les menus d'une application vb a partir de IDE tu doit construire un composant AddIn de toutes façons si tu veut je peut t'envoyer une source qui réalise tous ça

[jacma]

Bonjour

Le code qui suit pourrait t'inspirer?

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
Private Sub Gest_Acces(strNameUsager)
 
  Dim mnu As Menu
  Dim ctrl As Control
  Dim strMenu As String
 
  For Each ctrl In frmListes.Controls
    If (TypeOf ctrl Is Menu) Then
       strMenu = ctrl.Caption
       Select Case strMenu
        Case "Menu 1"
          If strNameUsager = "Jacques" Then
            ctrl.Enabled = True
          Else
            ctrl.Enabled = False
          End If
        Case "Menu 11"
 
        Case "Menu 12"
 
        Case "Menu 2"
      End Select
    End If
  Next ctrl
 
End Sub

[jacma]

si tu veut extraire les menus d'une application vb a partir de IDE tu doit construire un composant AddIn de toutes façons si tu veut je peut t'envoyer une source qui réalise tous ça

Cela m'intéresserait. Merci.

Dans le même ordre d'idée, est-il possible d'accéder (ou d'obtenir) les sources de l'assistant créateur de menus ou similaire?