菜鸟第一次接触列表框,不知怎么做?

winner · 发表于 2006-4-27 00:02:00

例如我想在列表框选择2项,文本框就出现:

项目1;项目2

2个项目之间有分号相隔.请问该如何实现?

fan0217 · 发表于 2006-4-27 02:43:00

Me.Text2 = Me.Text2 & Me.List0 & ";"

winner · 发表于 2006-4-27 05:55:00

谢谢！

这种方法会使最后的选项后面多了一个分号，如果有大量数据存放的时候会占用多余空间，有无办法去掉它？

我曾经想过用组合框实现多选功能，但看完旧贴后发现是不能实现的。但在实际应用中，列表框不太方便，往往要画得很大才方便多选，占用了很多版面，有无办法让列表框象组合框那样占很少位置？

一点通 · 发表于 2006-4-27 06:40:00

Private Sub List0_DblClick(Cancel As Integer)
If Nz(Text2) = "" Then
Me.Text2 = Me.List0
Else
Me.Text2 = Me.Text2 & ";" & Me.List0
End If
End Sub

winner · 发表于 2006-4-27 17:18:00

谢谢!

帐号		自动登录	找回密码
密码			注册

[其它] 菜鸟第一次接触列表框,不知怎么做?

群介绍
主题无相 (随机显示版	同地区群块其他地区)