どのようなNew（）コンストラクタが使用されているかわかる

Question

私はList(Of String)またはListBox.ObjectCollectionからデータを送信できるクラスを作っています。どのようなコンストラクタが使用されているかはどうすれば分かりますか？これは私のコードです（私のコードではできますが、それは粗末な方法かもしれません）。

Imports System.Threading 

Public Class ExtendedFileSender 
    Public LstFileList As List(Of String) 
    Public LvwFileList As ListBox.ObjectCollection 
    Public ExTcpClient As ExtendedTcpClient 
    Private ReadOnly _boolIsList As Boolean 

    Public Sub New(client As ExtendedTcpClient, data As List(Of String)) 
     ExTcpClient = client 
     LstFileList = data 
     _boolIsList = True 
    End Sub 

    Public Sub New(client As ExtendedTcpClient, data As ListBox.ObjectCollection) 
     ExTcpClient = client 
     LvwFileList = data 
     _boolIsList = False 
    End Sub 

    Public Sub StartSend() 
     If _boolIsList = True Then 
      Dim senderThread = New Thread(AddressOf SendFileFromList) 
      senderThread.Start(LstFileList) 
     Else 
      Dim senderThread = New Thread(AddressOf SendFileFromListView) 
      senderThread.Start(LvwFileList) 
     End If 
    End Sub 

    Private Sub SendFileFromList(fileList As List(Of String)) 
     For Each strFile In fileList 
      Debug.WriteLine(strFile) 
     Next 
    End Sub 

    Private Sub SendFileFromListView(fileList As ListBox.ObjectCollection) 
     For Each strFile In fileList 
      Debug.WriteLine(strFile) 
     Next 
    End Sub 
End Class 

Answer 1

私は長年VBを行っていませんが、入力されていないフィールドを確認するだけです。パラメータがNothingに設定されている場合は、コンストラクタでArgumentNullExceptionをスローすることをお勧めします。さもなければあなたのクラスはあなたが意図した通りに動作しないかもしれません。

Imports System.Threading 

Public Class ExtendedFileSender 
    Public LstFileList As List(Of String) 
    Public LvwFileList As ListBox.ObjectCollection 
    Public ExTcpClient As ExtendedTcpClient 

    Public Sub New(client As ExtendedTcpClient, data As List(Of String)) 
     ExTcpClient = client 
     LstFileList = data 
    End Sub 

    Public Sub New(client As ExtendedTcpClient, data As ListBox.ObjectCollection) 
     ExTcpClient = client 
     LvwFileList = data 
    End Sub 

    Public Sub StartSend() 
     If LstFileList IsNot Nothing Then 
      Dim senderThread = New Thread(AddressOf SendFileFromList) 
      senderThread.Start(LstFileList) 
     Else 
      Dim senderThread = New Thread(AddressOf SendFileFromListView) 
      senderThread.Start(LvwFileList) 
     End If 
    End Sub 

    Private Sub SendFileFromList(fileList As List(Of String)) 
     For Each strFile In fileList 
      Debug.WriteLine(strFile) 
     Next 
    End Sub 

    Private Sub SendFileFromListView(fileList As ListBox.ObjectCollection) 
     For Each strFile In fileList 
      Debug.WriteLine(strFile) 
     Next 
    End Sub 
End Class