ToolStripMenuItem

Résolu
jpmaton
Messages postés
61
Date d'inscription
mardi 17 mai 2005
Statut
Membre
Dernière intervention
27 avril 2022
- 17 févr. 2019 à 17:04
Whismeril
Messages postés
17326
Date d'inscription
mardi 11 mars 2003
Statut
Modérateur
Dernière intervention
15 mai 2022
- 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.

4 réponses

Whismeril
Messages postés
17326
Date d'inscription
mardi 11 mars 2003
Statut
Modérateur
Dernière intervention
15 mai 2022
596
Modifié le 17 févr. 2019 à 18:39
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
1
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
0
Whismeril
Messages postés
17326
Date d'inscription
mardi 11 mars 2003
Statut
Modérateur
Dernière intervention
15 mai 2022
596
18 févr. 2019 à 09:07
Bonjour
Ils sont forcément dans une collection.
A minima les contrôles de ta fenêtre.
Il suffit juste d’adapter ce point.
0
OK,............. le franc est tombé !!!!!!!!!!!!! et ça marche
Grand GRAND MERCI
0
Whismeril
Messages postés
17326
Date d'inscription
mardi 11 mars 2003
Statut
Modérateur
Dernière intervention
15 mai 2022
596
18 févr. 2019 à 12:13
De rien
0