VB.NET 2008 - Anonymous Function

Posted by James Brauman on Stack Overflow See other posts from Stack Overflow or by James Brauman
Published on 2010-05-17T00:22:57Z Indexed on 2010/05/17 0:30 UTC
Read the original article Hit count: 593

Filed under:
|

Hi, On Form Load I populate a menu with all possible colors so they user can pick a color. However when they pick a color the forecolor of my label is not changed.

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

What am I doing wrong? Thanks

© Stack Overflow or respective owner

Related posts about vb.net

Related posts about anonymous-function