依赖于 my.settings 的多个 MDI 子客户端

Question

我有一个多客户端 here，我想要的是让客户端的每个设置都依赖于 my.settings。

我有这个代码：

'Sub to create client
Private Sub AddNewClient()
    Call New frmClient() With {.MdiParent = Me}.Show()
End Sub


'OnLoad Event that  creates the new client
Private Sub MainWindow_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'Display a single client window by default.
    Me.AddNewClient()
    Me.AddNewClient()
End Sub



Public Class frmClient
    Private ReadOnly host As String = Environment.MachineName
    Private ReadOnly port As Integer = 3131
    Private WithEvents client As New MessageClient(host, port)
    'And lots and lots of code
End Class

我希望它是这样的：

'Sub to create client
Private Sub AddNewClient(parameterForIP, parameterForPort)
    Call New frmClient(parameterForIP, parameterForPort) With {.MdiParent = Me}.Show()
End Sub


'OnLoad Event that  creates the new client
Private Sub MainWindow_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'Display a single client window by default.
    Me.AddNewClient(my.settings.ipClient1, my.settings.ipPort1)
    Me.AddNewClient(my.settings.ipClient2, my.settings.ipPort2)
End Sub



Public Class frmClient(parameterForIP, parameterForPort)
    Private ReadOnly host As String = parameterForIP
    Private ReadOnly port As Integer = parameterForPort
    Private WithEvents client As New MessageClient(host, port)
    'And lots and lots of code
End Class

'Lots of code follows here

我好像漏掉了什么，是吗？

更新：根据jmcilhinney给出的代码，让我的UI变成这样

我是这样用的

Public Sub AddNewClient(clientIP As String, clientPort As Integer)
    Call New frmClient(clientIP, clientPort) With {.MdiParent = Me}.Show()
End Sub


Private Sub MainWindow_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'Display a single client window by default.
    With My.Settings
        Me.AddNewClient(.ipClient1, .portClient1)
        Me.AddNewClient(.ipClient2, .portClient2)
    End With
End Sub

Answer 1

这个：

Public Class frmClient(parameterForIP, parameterForPort)
    Private ReadOnly host As String = parameterForIP
    Private ReadOnly port As Integer = parameterForPort
    Private WithEvents client As New MessageClient(host, port)
    'And lots and lots of code
End Class

必须是这样的：

Public Class frmClient
    Private ReadOnly host As String
    Private ReadOnly port As Integer
    Private WithEvents client As MessageClient

    Public Sub New(parameterForIP As String, parameterForPort As Integer)
        InitializeComponent()

        host = parameterForIP
        port = parameterForPort
        client = New MessageClient(host, port)
    End Sub

    'And lots and lots of code
End Class

依赖于 my.settings 的多个 MDI 子客户端

Multiple MDI child clients that depends on the my.settings

vb.net

client

mdichild