ToolStripMenuItem [Résolu]

Messages postés
53
Date d'inscription
mardi 17 mai 2005
Statut
Membre
Dernière intervention
21 novembre 2019
- - Dernière réponse : Whismeril
Messages postés
14037
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
11 décembre 2019
- 18 févr. 2019 à 12:13
Bonjour,

Je coche un ToolStripMenuItem via appel de cette routine :

AdaptationMenuFP("2")

Private Sub AdaptationMenuFP(strFP As String)
        FP1ToolStripMenuItem.Checked = False
        FP2ToolStripMenuItem.Checked = False
        FP3ToolStripMenuItem.Checked = False
        FP4ToolStripMenuItem.Checked = False

        Select Case strFP
            Case "1"
                FP1ToolStripMenuItem.Checked = True
            Case "2"
                FP2ToolStripMenuItem.Checked = True
            Case "3"
                FP3ToolStripMenuItem.Checked = True
            Case "4"
                FP4ToolStripMenuItem.Checked = True
        End Select
End Sub


Ceci fonctionne évidemment mais je voudrais la remplacer par une expression plus élégante type :

Dim Menu As New ToolStripMenuItem("FP" & strFP & "ToolStripMenuItem")
Menu.Checked = True                                

ou

DirectCast(Menu, ToolStripMenuItem).Checked = True   

... mais cela ne marche pas.
Une aide me serait utile.
Grand merci.
Afficher la suite 

4 réponses

Meilleure réponse
Messages postés
14037
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
11 décembre 2019
324
1
Merci
Bonjour

en supposant que "FP1" à "FP4" sont enfants de "Fichier"

        Dim numero As Integer = 2

        For Each menu As ToolStripMenuItem In FichierToolStripMenuItem.DropDownItems
            If menu.Name.StartsWith("FP") Then
                menu.Checked = menu.Name.StartsWith("FP" + numero.ToString())
            End If
        Next


Quand j'étais petit, la mer Morte n'était que malade.
George Burns

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 201 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Whismeril
0
Merci
Merci, mais "FP1" à "FP4" ne sont pas enfants de "Fichier" .
Ce sont 4 items classiques de StripMenu, isolés, hors liste ou collection et non créés dynamiquement
merci
Commenter la réponse de jpm
Messages postés
14037
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
11 décembre 2019
324
0
Merci
Bonjour
Ils sont forcément dans une collection.
A minima les contrôles de ta fenêtre.
Il suffit juste d’adapter ce point.
OK,............. le franc est tombé !!!!!!!!!!!!! et ça marche
Grand GRAND MERCI
Commenter la réponse de Whismeril
Messages postés
14037
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
11 décembre 2019
324
0
Merci
De rien
Commenter la réponse de Whismeril