Vba 如何在文本框中显示选定的列表框文本？Word 2016 VB

首先，让我说我是新的VB和真正的所有代码。我正试着让你满意 一个简单的列表框选择显示在一个文本框中的按钮按下。我已经 找到了一些看起来有效的代码，但只填充了第一个 输入到我的列表框中的项目，无论在该列表框中选择了什么 列表框。我错过了一些东西

我在网上找到的大部分信息都是使用SelectedItem或Get？ 但我只是在这些问题上犯了一个错误

---

你得到了什么错误，在哪一行？对于我发布的代码，我没有得到错误，但我的文本框将只显示添加到列表框中的第一项。TextBox1.text=listBox1.SelectedItem---如果我尝试.SelectedItem或.Value之类的操作，它们是突出显示的错误（编译错误：找不到方法或数据），因此，我想我遗漏了一些东西在你的代码的第二行有什么

lItem

。如果我删除它，我甚至不会在我的列表框1中得到第一个项目，以在文本框1中显示您得到了什么错误，在哪一行？根据我发布的代码，我不会得到错误，但是我的文本框将只显示添加到我的列表框中的第一个项目。TextBox1.text=listBox1.SelectedItem--如果我尝试.SelectedItem或.Value之类的操作，它们是突出显示的错误（编译错误：找不到方法或数据），因此，我想我遗漏了一些东西在你的代码的第二行有什么

lItem

。如果我删除它，我甚至不会得到我的listbox1中的第一项显示在textbox1中

   Private Sub CommandButton6_Click()
        UserForm1.TextBox1 = ListBox1.List(lItem)

End Sub

    Private Sub UserForm_Initialize()
        Dim myArray() As String
          'Use Split function to return a zero based one dimensional array.
           myArray = Split(".020|.030|.032|", "|")
           'Use .List method to populate listbox.
        ListBox1.List = myArray
lbl_Exit:


    'Use Split function to return a zero based one dimensional array.
          myArray = Split("THK|DIA|TUBE|FORGING", "|")
    'Use .List method to populate listbox.
     ListBox2.List = myArray


     'Use Split function to return a zero based one dimensional array.
          myArray = Split("INCO|CRES|", "|")
     'Use .List method to populate listbox.
          ListBox3.List = myArray

    'Use Split function to return a zero based one dimensional array.
          myArray = Split("625|304|5052|", "|")
    'Use .List method to populate listbox.
          ListBox4.List = myArray


     'Use Split function to return a zero based one dimensional array.
          myArray = Split("AMS 5599|AMS 5512|AMS 4117|", "|")
     'Use .List method to populate listbox.
          ComboBox1.List = myArray

    If CheckBox1.Value = False Then
        TextBox4.Visible = False
        TextBox5.Visible = False
        Label10.Visible = False
        Label3.Visible = False
        Label11.Visible = False
        Label8.Visible = False
        Label9.Visible = False
        CommandButton1.Visible = True
        CommandButton6.Visible = False
    End If


End Sub