ToolStripMenuItemRésolu

Question

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.

Whismeril · Answer

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

jpm · Answer

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

Whismeril · Answer

Bonjour 
Ils sont forcément dans une collection.
A minima les contrôles de ta fenêtre.
Il suffit juste d’adapter ce point.

Whismeril · Answer

De rien

ToolStripMenuItem

4 réponses

Votre réponse