文本导入列表框并换行【带图带源码】

ma3yu

好记性不如烂笔头啊，几个月没有联系就忘记，放在这里，算是给自己留个记**！！！！！！！！！！！

1. <p>空间 文本导入列表框并换行
   
2. 功能 退出_点击()
   
3.     辅助.退出()
   
4. 功能结束
   
5. 功能 导入_点击()
   
6.     var Content=array[],Count
   
7.     路径=文件.对话框(1)
   
8.     增加=文件.读文件(路径)
   
9.     字符串.分割(增加,"\r\n",Content)
   
10.     数组空间.大小(Content,Count)
    
11.     遍历(i=0;i<Count;i++)
    
12.         列表框.增加文本("列表框0",Content[i])
    
13.     遍历结束
    
14.     标签.设置文本("标签0","列表中有 "&列表框.得到个数("列表框0")&" 列内容")
    
15. 功能结束</p><p>
    
16. 功能 删除_点击()
    
17.     序号=列表框.得到选项("列表框0")
    
18.     列表框.删除文本("列表框0",序号)
    
19.     标签.设置文本("标签0","列表中有 "&列表框.得到个数("列表框0")&" 列内容")
    
20. 功能结束</p><p>空间结束
    
21. </p><p> </p>

复制代码

2645572175

dian20150201

  狗比 源码是空的  坑比一个

回头是岸

ma3yu 发表于 2015-1-7 08:13

列表中应该是 215 行内容，而不是215列内容

ma3yu

回头是岸 发表于 2015-1-6 17:29
列和行你都分不清吗？

ma3yu

是吗？？？？？我怎么导入的是一行的？？？

a837198

列表框 本来就是一个一个显示的  根本就不是用到换行

回头是岸

列和行你都分不清吗？