ToolStripMenuItem [Résolu]

Signaler
Messages postés
56
Date d'inscription
mardi 17 mai 2005
Statut
Membre
Dernière intervention
4 mai 2020
-
Messages postés
14924
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
27 octobre 2020
-
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.

4 réponses

Messages postés
14924
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
27 octobre 2020
447
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
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
Messages postés
14924
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
27 octobre 2020
447
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
Messages postés
14924
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
27 octobre 2020
447
De rien