Lister les menus d'une formRésolu

Question

Violent Ken

Bonjour, j'aurais aimé savoir comment lister les menus (et sous menus) contenus dans une form. Le but est de pouvoir récupérer le Name et le Caption de chaque menu/sous-menu.

Merci, @+

jmfmarques · Accepted Answer

Pour lister les menus, c'est possible avec la collection Controls.

Exemple de l'aide en ligne :

Sub EnableControlsOn (Frm As Form, State As Integer)
 Dim I ' Declare variable.
 For I = 0 To Frm.Controls.Count - 1
  If Not TypeOf Frm.Controls(I) Is Menu Then
   Frm.Controls(I).Enabled = State
  End If
 Next I
End Sub


 


Pour le reste, je ne sais pas...


Il faudra que j'essaye ce soir

violent_ken · Answer

Violent Ken

Is Menu.... tout simplement.... damn, je suis vraiment nul.... j'avais déjà

If TypeOf Obj Is TextBox Then
            Obj.Text = Me.GetString(Obj.Name & "|Text")
        ElseIf TypeOf Obj Is CheckBox Then
            Obj.Caption = Me.GetString(Obj.Name & "|Caption")
        ElseIf TypeOf Obj Is OptionButton Then
            Obj.Caption = Me.GetString(Obj.Name & "|Caption")
        ElseIf TypeOf Obj Is ComboBox Then
...

et j'ai pas pensé a "Menu"...

Merci bien, c'est parfait,  @+

jmfmarques · Answer

Salut Violent,

On m'a dit que ça marchait aussi avec "castagnettes et tango" à la place de "Menu"...Essaye

violent_ken · Answer

Violent Ken

lol ;)
faut pas se moquer ^^

@+

Lister les menus d'une form

4 réponses

Votre réponse

Discussions similaires