随机取超级列表框的内容到编辑框

Bye

有源码求修改下就OK 新建文件夹 (2).rar (3.02 KB, 下载次数: 38)

2012-1-16 19:49 上传

点击文件名下载附件
' 还有~导入后点击按钮没反应，得自己先选一行才有反应~这个问题解决下，麻烦了


最后一点一定要按照我说的完成，不要每次提问都是得到完成一半的答案，被迫采纳

千年

1. .版本 2
   
2. .支持库 iext
   
3. .支持库 spec
   
4. 
   
5. .子程序 _按钮2_被单击
   
6. .局部变量 i, 整数型
   
7. 
   
8. i ＝ 取随机数 (0, 超级列表框1.取表项数 () － 1)
   
9. 编辑框1.内容 ＝ 超级列表框1.取标题 (i, 1)
   

复制代码

上面的那位朋友，没注意，要减去1

易团俊

你好无聊啊。。。你的签名档挂掉了。

千年

这个，囧，撸过，撸过。。。

基础要打牢实啊

千年

1. .版本 2
   
2. .支持库 iext
   
3. 
   
4. .子程序 _按钮1_被单击
   
5. .局部变量 数组, 文本型, , "0"
   
6. .局部变量 内容, 文本型
   
7. .局部变量 总数, 整数型
   
8. .局部变量 x, 整数型
   
9. .局部变量 表项索引, 整数型
   
10. 
    
11. 通用对话框1.类型 ＝ 0
    
12. .判断开始 (通用对话框1.打开 ())
    
13.     数组 ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
    
14.     总数 ＝ 取数组成员数 (数组)
    
15.     超级列表框1.全部删除 ()
    
16.     .计次循环首 (总数, x)
    
17.         内容 ＝ 数组 [x]
    
18.         表项索引 ＝ 超级列表框1.插入表项 (, , , , , )
    
19.         超级列表框1.置标题 (表项索引, 0, 到文本 (x))
    
20.         超级列表框1.置标题 (表项索引, 1, 内容)
    
21.         超级列表框1.置标题 (表项索引, 2, “否”)
    
22.     .计次循环尾 ()
    
23. .默认
    
24. 
    
25. .判断结束
    
26. 
    

复制代码

素顏じ亦傾城ジ

.版本 2
.支持库 iext

.子程序 _按钮2_被单击

编辑框1.内容 ＝ 超级列表框1.取标题 (取随机数 (0, 超级列表框1.取表项数 ()), 1)

Bye

千年 发表于 2012-1-16 20:04

这不就是我源码里面的东西么？
{:3_245:}

千年

Bye 发表于 2012-1-16 20:12
这不就是我源码里面的东西么？

你不是说点击导入没反应吗，。。。。

还有，这个跟你的源码，一样吗？？？自己看看，想写程序就不能不仔细哦

补充内容 (2012-1-16 20:19):
哦哦，那你的那个导入有多于的代码，下面的不需要再分割了。

素顏じ亦傾城ジ

      .... 汗死... 取空是因为没有给随机数定义个区间 ..