Option Strict ошибка сигнатур метода

Question

Option Strict бросает некоторые errores в этих подписей:

Private Sub NotifyIcon_Systray_Click(ByVal sender As Object, ByVal e As MouseEventArgs) _ 
Handles RadMenuItem_Hide.Click, 
     RadMenuItem_Show.Click, 
     NotifyIcon_Systray.MouseDoubleClick 

End Sub 

Private Sub RadListControl_ProcessList_DoubleClick(ByVal sender As Object, ByVal e As MouseEventArgs) _ 
Handles RadListControl_ProcessList.DoubleClick 

End Sub 

Оригинальные подписи: sender As Object, e as EventArgs, но я изменил их MouseEventArgs, потому что мне нужно, чтобы определить кнопку нажатой с peoperty e.Button.

Как решить эту проблему?

Answer 1

поведение довольно странно, но вы можете сделать следующее:

Option Strict On 
Public Class Form1 
    Private Event NewClick(sender As Object, e As MouseEventArgs) 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     RaiseEvent NewClick(sender, CType(e, MouseEventArgs)) 
    End Sub 

    Private Sub NewClickHandler(sender As Object, e As MouseEventArgs) Handles Me.NewClick 
     MsgBox(e.X & "x" & e.Y & vbCrLf & e.Button.ToString) 
    End Sub 
End Class 

Вы в основном обрабатывать правильную подпись, отлитый e к MouseEventArgs, а затем ререйз пользовательское событие, которое имеет подпись с MouseEventArgs.

Edit: Я порылся немного в System.Windows.Forms.Control классе и потому, что это работает так, что OnClick событие элемента управления фактически поднял с MouseEventArgs и не просто EventArgs. Он просто затем отбрасывается до EventArgs (который, очевидно, работает с MouseEventArgs, наследует от EventArgs).

Из Control кода:

If flag AndAlso Not AddressOf Me.ValidationCancelled Then 
    If Not Me.GetState(67108864) Then 
     Me.OnClick(New MouseEventArgs(button, clicks, NativeMethods.Util.SignedLOWORD(AddressOf m.LParam), NativeMethods.Util.SignedHIWORD(AddressOf m.LParam), 0)) 
     Me.OnMouseClick(New MouseEventArgs(button, clicks, NativeMethods.Util.SignedLOWORD(AddressOf m.LParam), NativeMethods.Util.SignedHIWORD(AddressOf m.LParam), 0)) 
    Else 
     '... 
    End If 
End If 

Answer 2

Вы не можете произвольно изменить тип этого второго параметра. Событие Click передает объект EventArgs своим обработчикам. Ваше изменение типа параметра не приведет к волшебному изменению типа этого объекта. Вы можете использовать только параметр типа MouseEventArgs, если это соответствует сигнатуре события. Это делается для MouseClick и MouseDoubleClick, но это не для Click или DoubleClick. Вы не можете это изменить.