Question

VB编程如何将listbox中选中的多个选项添加至文本输入框？

VB做的一个录入系统，有组织机构（text1）和参与机构（text2）两栏，组织机构只能有一个单位，参与机构可以多个，预先设置好机构名录，在输入时点击后面的“+”按钮调出机构名录（listbox制作，带checkbox），根据需要选中后自动将选中的内容添加到输入文本框，如图，请教代码怎么写





Answer 1

假定文本框在Form1，列表框在Form2，则以下代码放在Form2：

Private Sub List1_Click()
Dim s As String, i As Integer
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
If s <> "" Then s = s & "，"
s = s & List1.List(i)
End If
Next
obj.Text = s
End Sub

以下代码放在Form1：

Private Sub Command1_Click() '第一个文本框后面的+按钮
Set Obj = Text1
Form2.Show
End Sub

Private Sub Command2_Click() '第二个文本框后面的+按钮
Set Obj = Text2
Form2.Show
End Sub

以下代码放在公共模块（Module）文件：

Public obj As Object