根据组合框选择填充文本文件

Question

我有5个文本框：电话，寻呼机，手机，语音信箱和电子邮件。当从组合框中选择名称时，他们需要自动填充。 用于填充组合框和文本框的数据来自同一文本文件。

文本文件中数据的示例：

米奇

204-5555

666-555

777-7777

888-8888

23w@hhh.ra

我已经达到了可以使用下面提供的代码将文本文件中的名称加载到ComboBox的程度。

但是，在从组合框中选择了一个名字后，如何填充文本框？

Public Class BlackBookLookup

Private fileName As String
Dim FileLines As New List(Of String)

Private Sub mmuOpenTool_Click(sender As Object, e As EventArgs) Handles mmuOpenTool.Click

    Dim BlackBookDialogResult As DialogResult

    Using fileChooser As New OpenFileDialog()
        BlackBookDialogResult = fileChooser.ShowDialog()
        fileName = fileChooser.FileName
    End Using

    If BlackBookDialogResult <> DialogResult.Cancel Then
        MessageBox.Show(OpenFileDialog1.SafeFileName)

    End If

    If IO.File.Exists(fileName) Then
        FileLines.AddRange(IO.File.ReadAllLines(fileName))
        If FileLines.Count > 1 Then

            For x = 0 To FileLines.Count - 1 Step 6
                chooseNameComboBox.Items.Add(FileLines(x + 0))
            Next

        End If

    End If