vb编程列表框,修改 怎么把列表框选中的选项反馈到输入框（Text）？
答案:2 悬赏:30 手机版
解决时间 2021-01-26 19:24
- 提问者网友：那叫心脏的地方装的都是你
- 2021-01-26 04:06
vb编程列表框,修改 怎么把列表框选中的选项反馈到输入框（Text）？
最佳答案
- 五星知识达人网友：十鸦
- 2021-01-26 05:00
Private Sub List1_Click() '点击列表框List1触发
Text1.Text = List1.Text
End Sub
Text1.Text = List1.Text
End Sub
全部回答
- 1楼网友：三千妖杀
- 2021-01-26 06:31
假定文本框在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
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯