| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 462 人关注过本帖
标题:list1.box 里的值,横排组合怎么做?
只看楼主 加入收藏
nwh001
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2012-9-18
结帖率:0
收藏
已结贴  问题点数:20 回复次数:9 
list1.box 里的值,横排组合怎么做?
各位大侠好:

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

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

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

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

万谢!
2012-09-18 13:57
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:7 

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

无知
2012-09-18 14:03
nwh001
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2012-9-18
收藏
得分:0 
我想写在text1里

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

[ 本帖最后由 nwh001 于 2012-9-18 14:13 编辑 ]
2012-09-18 14:07
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:0 
加个字符变量比如m
数导入list1时加上m=m & 导入的数 & ","
m 就是你要的

无知
2012-09-18 14:13
nwh001
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2012-9-18
收藏
得分:0 
list内的数是我想要导出来的

希望在Text1里将数值变成这样  #51,#52,#55,#56,#57,#58,#60
2012-09-18 14:18
nwh001
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2012-9-18
收藏
得分:0 
我不是很明白,麻烦版主能否出个代码
2012-09-18 14:44
邵帅
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:20
帖 子:174
专家分:505
注 册:2012-8-27
收藏
得分:7 
我明白你的意思了,从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 编辑 ]

Figure out what you like. Try to become the best in the world of it.
2012-09-18 17:15
nwh001
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2012-9-18
收藏
得分:0 
回复 7楼 邵帅
太感谢了!
2012-09-18 19:11
邵帅
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:20
帖 子:174
专家分:505
注 册:2012-8-27
收藏
得分:0 
回复 8楼 nwh001
。。。。别忘了给分就好。

Figure out what you like. Try to become the best in the world of it.
2012-09-18 19:46
学编程啊
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:66
专家分:110
注 册:2012-7-25
收藏
得分:7 
=.=不懂啊。。。看来有路走了
2012-09-22 07:59
快速回复:list1.box 里的值,横排组合怎么做?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025417 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved