Создание класса, который наследует SerialPort

Question

У меня есть класс, который наследует SerialPort, и этот класс задает свойства последовательного порта, как показано в приведенном ниже коде.

Public Class Ports 
    Inherits SerialPort 

    WithEvents port As New SerialPort() 
    Sub New() 
     With port 
      .BaudRate = 19200 
      .Parity = IO.Ports.Parity.None 
      .DataBits = 8 
      .StopBits = IO.Ports.StopBits.One 
      .Handshake = IO.Ports.Handshake.None 
      .RtsEnable = False 
      .ReceivedBytesThreshold = 1 
      .NewLine = vbCr 
      .ReadTimeout = 10000 
     End With 
    End Sub 
End Class 

Проблема с этим, когда я его экземпляр,

Private WithEvents testPort As New Ports() 

свойства SerialPort не передаются по и значения по умолчанию установлены.

Answer 1

Проблема заключается в том, что вы не устанавливаете экземпляр для объекта, а используете его для другой переменной внутри этого экземпляра. Как указал @the_lotus, удалите переменную или наследование. Я бы рекомендовал только удаление НЕРАСПРОСТРАНЕНИЯ необходимого переменной WithEvents port As New SerialPort(), а затем использовать экземпляр ...

Public Class Ports 
    Inherits SerialPort 

    Sub New() 
     With Me 
      .BaudRate = 19200 
      .Parity = IO.Ports.Parity.None 
      .DataBits = 8 
      .StopBits = IO.Ports.StopBits.One 
      .Handshake = IO.Ports.Handshake.None 
      .RtsEnable = False 
      .ReceivedBytesThreshold = 1 
      .NewLine = vbCr 
      .ReadTimeout = 10000 
     End With 
    End Sub 

End Class