编程论坛 → VB6论坛

list1.box 里的值，横排组合怎么做？

nwh001 发布于 2012-09-18 13:57， 462 次点击

各位大侠好：

我在list1里导入了一列数字
#51
#52
#55
#56
#57
#58
#60

我希望能把这列数字转换成

#51,#52,#55,#56,#57,#58,#60

在VB里有什么方法可以实现吗？

万谢！

9 回复

Artless2012-09-18 14:03

#51,#52,#55,#56,#57,#58,#60用在那里？

nwh0012012-09-18 14:07

我想写在text1里

望能赐教，想了很多方法，都不成功。

[ 本帖最后由 nwh001 于 2012-9-18 14:13 编辑 ]

Artless2012-09-18 14:13

加个字符变量比如m
数导入list1时加上m=m & 导入的数 & ","
m 就是你要的

nwh0012012-09-18 14:18

list内的数是我想要导出来的

希望在Text1里将数值变成这样 #51,#52,#55,#56,#57,#58,#60

nwh0012012-09-18 14:44

我不是很明白，麻烦版主能否出个代码

邵帅2012-09-18 17:15

我明白你的意思了，从listbox里读内容。
下面写一个过程完成这个任务
private sub read_text()
Dim i As Integer
Dim str As String
str = ""
For i = 0 To List1.ListCount - 1
str = str + List1.List(i)
Next
Text1.Text = str
end sub
已成功运行，只需调用过程call read_text

[ 本帖最后由邵帅于 2012-9-18 17:25 编辑 ]

nwh0012012-09-18 19:11

回复 7楼邵帅

太感谢了！

邵帅2012-09-18 19:46

回复 8楼 nwh001

。。。。别忘了给分就好。

#10

学编程啊2012-09-22 07:59

=.=不懂啊。。。看来有路走了