如何将 ListBox 选定项目放入 Texbtox？

Question

我有一个文本框，可以在我键入时自动填充一个列表框。 有没有办法在列表框中找到 select 的东西并让它从列表中复制名称并将其放入文本框中？

Private Sub txtSearch_Change()

Me.txtSearch = Format(StrConv(Me.txtSearch, vbLowerCase))
Dim sh As Worksheet
Set sh = Sheets("Sheet1")

Dim j As Long
Dim x As Long
Dim p As Long
Me.lstdisplay.Clear
'FOR LISTBOX HEADER
Me.lstdisplay.AddItem "Server Name"
Me.lstdisplay.List(lstdisplay.ListCount - 1, 1) = "vCenter"
Me.lstdisplay.List(lstdisplay.ListCount - 1, 2) = "IP Address"
Me.lstdisplay.List(lstdisplay.ListCount - 1, 3) = "OS"
Me.lstdisplay.List(lstdisplay.ListCount - 1, 4) = "HW Version"
Me.lstdisplay.List(lstdisplay.ListCount - 1, 5) = "VCPU"
Me.lstdisplay.List(lstdisplay.ListCount - 1, 6) = "Memory"
Me.lstdisplay.List(lstdisplay.ListCount - 1, 7) = "Disk Space"


Me.lstdisplay.Selected(0) = True



For j = 1 To sh.Range("A" & Rows.Count).End(xlUp).Row
For x = 1 To Len(sh.Cells(j, 1))  
p = Me.txtSearch.TextLength

If LCase(Mid(sh.Cells(j, 1), x, p)) = Me.txtSearch And Me.txtSearch <> "" Then
With Me.lstdisplay
.AddItem sh.Cells(j, 1)

.List(lstdisplay.ListCount - 1, 1) = Sheet1.Cells(j, 13)
.List(lstdisplay.ListCount - 1, 2) = Sheet1.Cells(j, 7)
.List(lstdisplay.ListCount - 1, 3) = Sheet1.Cells(j, 9)
.List(lstdisplay.ListCount - 1, 4) = Sheet1.Cells(j, 8)
.List(lstdisplay.ListCount - 1, 5) = Sheet1.Cells(j, 3)
.List(lstdisplay.ListCount - 1, 6) = Sheet1.Cells(j, 4)
.List(lstdisplay.ListCount - 1, 7) = Sheet1.Cells(j, 5)


End With
End If
Next x
Next j



End Sub

那是我的 txtSearch_change 并且效果很好。 我只是希望他们能够从列表框中 select 某些内容并让它覆盖 txtSearch.Text 框中的内容？

Answer 1

如果理解正确：双击您的 lstdisplay 控件和 select 它是更改事件（或复制/粘贴此）：

Private Sub lstdisplay_Change()
    Me.txtSearch.Text = Me.lstdisplay.Text
End Sub