请问,易语言里"读入文件"命令,读入时,怎么用进度条显示读入进度? 5
3个回答
展开全部
读入文件命令好像不行,我用打开文件命令帮你写了一个。你看一下
自己添加一个编辑框,一个按钮,一个进度条看看。(编辑框是否允许多行要为真)
.版本 2
.子程序 _按钮1_被单击
.局部变量 文件号, 整数型
.局部变量 时间, 整数型
文件号 = 打开文件 (“C:\Documents and Settings\Administrator\桌面\aa.txt”, , )
.如果真 (文件号 = 0)
返回 ()
.如果真结束
移到文件首 (文件号)
进度条1.最大位置 = 取文件长度 (文件号)
时间 = 取启动时间 ()
.判断循环首 (是否在文件尾 (文件号, ) = 假)
处理事件 ()
编辑框1.加入文本 (读入一行 (文件号) + #换行符)
进度条1.位置 = 取读写位置 (文件号)
.判断循环尾 ()
输出调试文本 (“读取用时:” + 到文本 (取启动时间 () - 时间) + “毫秒”)
关闭文件 (文件号)
自己添加一个编辑框,一个按钮,一个进度条看看。(编辑框是否允许多行要为真)
.版本 2
.子程序 _按钮1_被单击
.局部变量 文件号, 整数型
.局部变量 时间, 整数型
文件号 = 打开文件 (“C:\Documents and Settings\Administrator\桌面\aa.txt”, , )
.如果真 (文件号 = 0)
返回 ()
.如果真结束
移到文件首 (文件号)
进度条1.最大位置 = 取文件长度 (文件号)
时间 = 取启动时间 ()
.判断循环首 (是否在文件尾 (文件号, ) = 假)
处理事件 ()
编辑框1.加入文本 (读入一行 (文件号) + #换行符)
进度条1.位置 = 取读写位置 (文件号)
.判断循环尾 ()
输出调试文本 (“读取用时:” + 到文本 (取启动时间 () - 时间) + “毫秒”)
关闭文件 (文件号)
参考资料: http://hi.baidu.com/guangye1/item/154f48809a31a5ccb0715458
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询