Как перебрать элементы меню

Question

Я начальный VB программист, и я пытался перебрать пункты меню, но эта ошибка всегда возникает:

Невозможно привести объект системы типа». Windows.Forms.ToolStripMenuItem ' , чтобы напечатать' System.Windows.Forms.MenuItem '.

Вот мой код

Function prop(ByVal objprop) 
    For Each mnuitem As MenuItem In ColorsToolStripMenuItem.DropDownItems 
     mnuitem.Checked = False 
    Next 
    Return Nothing 
End Function 

Извините мой бедный программирования, но может кто-нибудь помочь мне получить этот кусок кода работает? Благодаря!

Answer 1

Установите правильный тип для mnuItem. Вы используете System.Windows.Forms.MenuItem вместо правильного типа, который является System.Windows.Forms.ToolStripMenuItem. Как вы можете сказать, существуют различные типы MenuItems, поэтому вы должны указать правильный тип. Кроме того, поскольку этот код возвращает только Nothing, он лучше подходит для подпрограммы.

Sub prop(ByVal objprop) 

    For Each mnuitem As System.Windows.Forms.ToolStripMenuItem In ColorsToolStripMenuItem.DropDownItems 

     mnuitem.Checked = False 

    Next 

End Sub