关于textbox的一个小问题 - 编程论坛

#2

w3609894262014-02-24 17:46

1个是textbox，2个是listbox
代码大致如下
dim 选择 as string
选择=listbox1.value
text1.value=选择
listbox2.additem（& 选择 &）

#3

qweryu3212014-02-24 20:20

回复 2楼 w360989426

就是怎么样把listbox里面的内容在textbox叠加起来啊...我选中一个然后textbox里怎么叠加起来

#4

风吹过b2014-02-24 21:11

sub list1_click()           '单击列表框时
  text1.text = list1.list(list1.listindex)      显示所点击的那行内容
  list2.additem list1.list(list1.listindex)     把点击的内容添加到列表框2 中
end sub

sub list2_click()         单击列表框2时
  list2.remove list2.listindex        删除刚单击的内容
end sub

大体上就是这样的.浏览器中直接写的代码,未调试,过程前面少了一个单词.

#5

zhengang10262014-02-24 21:12

回复 3楼 qweryu321

应该用：
text1.text=text1.text & 第二次选的
这样text内才会有二项
下面这样就行：

Private Sub List1_Click()
Text1.Text = Text1.Text + List1.List(List1.ListIndex)
End Sub
要将text1.multiline设为true才行

[ 本帖最后由 zhengang1026 于 2014-2-24 21:31 编辑 ]

#6

owenlu19812014-02-25 09:09

回复 5楼 zhengang1026

版主逻辑是对的， Text1 是左上那个控件，只需要记录左下List1里选中的名称，右边的List2实现累加
另外，如果换成双击实现添加和删除比较实际
Private Sub Form_Load()
List1.AddItem "泰诺"
List1.AddItem "银翘片"
List1.AddItem "板蓝根"
List1.AddItem "伤风胶囊"
List1.AddItem "西瓜霜含片"
End Sub

Private Sub List1_Click()
Text1.Text = List1.List(List1.ListIndex)
End Sub

Private Sub List1_DblClick()
Text1.Text = List1.List(List1.ListIndex)
List2.AddItem Text1.Text ‘如果List2中不允许重复，则增加值判断
End Sub

Private Sub List2_DblClick()
List2.RemoveItem List2.ListIndex
End Sub

如右边非得使用Textbox控件实现名称累加，代码如下
Text2.Text = IIf(Text2.Text = "", Text1.Text, Text2.Text & vbCrLf & Text1.Text)

[ 本帖最后由 owenlu1981 于 2014-2-25 09:11 编辑 ]

#7

qweryu3212014-02-25 17:23

谢谢各位啊！！问题解决了！！其实起是在text1.text=text1.text & text2.text & vbcrlf
这段代码可以实现换行主要是 & vbcrlf