Lave min egen event
Hjælp til en som ikke har forstået så meget om events i vb .net.Jeg har 3 klasser, en form, en klasse (DynamicMenu) som arver fra MainMenu og en klasse (DynamicMenuItem) som arver fra MenuItem. Målet er at få en event med MouseEventArgs når der klikkes på et objekt af DynamicMenuItem.
Form:
Friend WithEvents dynMenu As DynamicMenu
dynMenu = New DynamicMenu()
Public Sub Menu_Clicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dynMenu.Mouse_Clicked
If Not sender.dMIId = -1 Then
MsgBox("Event " & sender.dMIId)
End If
End Sub
DynamicMenu:
Public Event Mouse_Clicked(ByVal sender As Object, ByVal e As MouseEventArgs)
miMenuItem = New DynamicMenuItem(item.iName, item.iId)
AddHandler miMenuItem.Mouse_Clicked, AddressOf Me.MenuClicked
Public Sub MenuClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
MsgBox("dynEvent " & sender.dMIId)
RaiseEvent Mouse_Clicked(sender, e)
End Sub
DynamicMenuItem:
Public Event Mouse_Clicked(ByVal sender As Object, ByVal e As MouseEventArgs)
Desuden ved jeg ikke hvordan/hvor RaiseEvent skal placeres.
