Question

vb如何实现把“列表框的内容”添加到焦点所在的“文本框”

例如我现在有一个列表框（list1），里面有内容“AB”“abv”“bcd”，
有三个文本框（text1，text2，text3），假如我的焦点在text2，如果我双击 list1 中的“abv”，就可以添加到text2中呢？？急用~~希望大家能帮帮忙，谢谢~~
我想要效果是，无论焦点在text1，还是text2，我都可以把list1 的内容添加进去

Answer 1

不知道你是不是要实现这样的效果:

Dim myTextBox As TextBox

Private Sub List1_DblClick()
myTextBox.Text = List1.List(List1.ListIndex)
End Sub

Private Sub Text1_GotFocus()
Set myTextBox = Text1
End Sub
Private Sub Text2_GotFocus()
Set myTextBox = Text2
End Sub

Private Sub Text3_GotFocus()
Set myTextBox = Text3
End Sub

Answer 2

Private Sub Text1_GotFocus()
Text1.Tag = 1
Text2.Tag = 0
Text3.Tag = 0
End Sub

Private Sub Text2_GotFocus()
Text1.Tag = 0
Text2.Tag = 1
Text3.Tag = 0

End Sub

Private Sub Text3_GotFocus()
Text1.Tag = 0
Text2.Tag = 0
Text3.Tag = 1

End Sub

Private Sub List1_DblClick()
If Text1.Tag = "1" Then text1.text=list1.list(list1.listIndex)
If Text2.Tag = "1" Then text2.text=list1.list(list1.listIndex)

If Text3.Tag = "1" Then text3.text=list1.list(list1.listIndex)

End Sub

Answer 3

private sub List_DbClick()
text2.text = text2.text & list1.list(list1.listindex)
end sub