传递发件人的事件处理程序多数民众赞成不是instanciated

Question

我正在创建按钮，并为他们创建事件处理程序。当代码运行时，一切正常，只要成功填充菜单即可。当我点击一个按钮的事件触发，但发件人=没有和对象没有设置为实例异常出现。有任何想法吗？必须缺少一些东西。

Imports DevExpress.XtraBars.Ribbon 

Public Class Form1 

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
     Dim menu As New RibbonControl 
     Dim aPage As New RibbonPage("Nicks Page") 
     'groups' 
     Dim aGroup1 As New RibbonPageGroup("1st Group") 

     'ADD BUTTONS TO RIBBON GROUP HERE' 
     Dim i As New DevExpress.XtraBars.BarButtonItem() 
     i.Caption = "Nicks Button" 
     AddHandler i.ItemClick, AddressOf y 
     aGroup1.ItemLinks.Add(i) 

     Dim i2 As New DevExpress.XtraBars.BarButtonItem() 
     i2.Caption = "Nicks Other Button" 
     AddHandler i2.ItemClick, AddressOf y 
     aGroup1.ItemLinks.Add(i2) 

     aPage.Groups.Add(aGroup1) 
     menu.Pages.Add(aPage) 
     Me.Controls.Add(menu) 
    End Sub 

    Private Sub y(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) 
     'EXCEPTION SENDER=NOTHING MSGBOX FAILS' 
     MsgBox(CType(sender, DevExpress.XtraBars.BarButtonItem).Caption) 
    End Sub 
End Class 

Answer 1

的发件人是BarManager。改用e.Item。