Ошибка обработчика событий

Question

Я нашел код онлайн, который был C#. Я использовал конвертер кода telerik для преобразования в VB.net. Я получаю сообщение об ошибке для приведенного ниже кода.

Закрыто уже объявлено как «публичный Even Closed (Sender as object, e as System.EventArgs)» в этом классе.

Произошла одна и та же ошибка. У кого-нибудь есть идеи исправить?

#Region "Events" 
    Public Event Closed As EventHandler 
    Public Event Shown As EventHandler 

    Protected Overridable Sub closed(e As EventArgs) 
     Dim handler As EventHandler = Closed 

     RaiseEvent handler(Me, e) 
    End Sub 

    Protected Overridable Sub shown(e As EventArgs) 
     Dim handler As EventHandler = Shown 

     RaiseEvent handler(Me, e) 
    End Sub 
#End Region 

Здесь приведен код C#, преобразованный в VB.

#region Events 
    public event EventHandler Closed; 
    public event EventHandler Shown; 

    protected virtual void closed(EventArgs e) 
    { 
     EventHandler handler = Closed; 

     if (handler != null) handler(this, e); 
    } 

    protected virtual void shown(EventArgs e) 
    { 
     EventHandler handler = Shown; 

     if (handler != null) handler(this, e); 
    } 
    #endregion 

Answer 1

Здесь есть 2 проблемы.

Во-первых, если вы используете WinForms, у System.Windows.Forms уже есть Closed событие, которое конфликтует с событием, которое вы создаете. Поэтому, если предполагается затенение, вы должны затенять событие, объявив Shadows. Но если вы объявляете это в нормальном классе (который не получается из Form), вам не нужно об этом беспокоиться.

Public Shadows Event Closed As EventHandler 
Public Shadows Event Shown As EventHandler 

Во-вторых, имя свойства и название события не могут быть одинаковыми. Vb.Net не чувствителен к регистру в этом вопросе. Поэтому вы должны реорганизовать имена следующим образом.

Public Event Closed As EventHandler 
Public Event Shown As EventHandler 

Protected Overridable Sub whenClosed(ByVal e As EventArgs) 
    RaiseEvent Closed(Me, e) 
End Sub 

Protected Overridable Sub whenShown(ByVal e As EventArgs) 
    RaiseEvent Shown(Me, e) 
End Sub 

Answer 2

Она смотрит на меня это является следствием того факта, что VB.NET is case insensitive означает, что элемент shown эквивалентен элементу Shown.

Вы можете решить эту проблему, переименовав (лучше используя какой-либо инструмент рефакторинга) одно из событий, так что столкновение имен не появляется. Вам лучше сделайте это на уровне проекта C#, а затем запустите инструмент transcompiler еще раз, чтобы создать эквивалентный код VB.NET.