VB.NET 2008 - Анонимная функция

Question

В режиме загрузки я заполняю меню всеми возможными цветами, чтобы пользователь мог выбрать цвет. Однако, когда они выбирают цвет, forecolor моего ярлыка не изменяется.

Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    ' When the form loads, we want to populate the color menu item with all the possible colors that we could change the label to. 
    For Each currentColor As KnownColor In [Enum].GetValues(GetType(KnownColor)) 
     ' Declare the knowColor again - we must do this to be able to do anonymous delegates in VB.NET 
     Dim actualCurrentColor As KnownColor = currentColor 

     ' Get the name for this color 
     Dim colorName As String = [Enum].GetName(GetType(KnownColor), actualCurrentColor) 

     ' Create a new menu item for this color 
     Dim newMenuItem As ToolStripMenuItem = New ToolStripMenuItem(colorName) 

     ' Add a handler to this menu item so when it is clicked, we change the heading color 
     AddHandler newMenuItem.Click, Function(s As System.Object, events As System.EventArgs) (HeadingLabel.ForeColor = Color.FromKnownColor(actualCurrentColor)) 

     ' Add the menu item to the colors menu 
     ColorToolStripMenuItem.DropDownItems.Add(newMenuItem) 
    Next 
End Sub 

Что я делаю неправильно? Благодаря

Answer 1

Попробуйте это (используя правильный обработчик):

Public Class MainForm 

     Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
      For Each currentColor As KnownColor In [Enum].GetValues(GetType(KnownColor)) 
       Dim colorName As String = [Enum].GetName(GetType(KnownColor), currentColor) 
       Dim newMenuItem As ToolStripMenuItem = New ToolStripMenuItem(colorName) 
       ColorToolStripMenuItem.DropDownItems.Add(newMenuItem) 
      Next 
     End Sub 

     Private Sub ColorToolStripMenuItem_DropDownItemClicked(ByVal sender As System.Object, ByVal e As ToolStripItemClickedEventArgs) Handles ColorToolStripMenuItem.DropDownItemClicked 
      HeadingLabel.ForeColor = Color.FromName(e.ClickedItem.Text) 
     End Sub 
    End Class 

Тем не менее, вы должны думать об использовании выделенного управления выбора цвета, а не выпадающее меню с сотнями цветов, используя сотни анонимных методов ,