Ⅰ 易语言的程序能不能把进度显示到任务栏
可以的！！在win7以上的系统中有个ITaskbarList3类，调用这个可以实现进度条在任务栏上显示，附件是模块和源码！
Ⅱ 易语言 如何复制当前文件夹的文件并显示进度条
我刚好有写过这样的超大文件的易语言复制进度，下面是代码，我直接复制上来，你修改下就可以了，不懂M我
-----------------------------------------------------------------------------------
.版本 2
.支持库 iext
.程序集 备份窗口程序集
.程序集变量 累计数量, 整数型
.子程序 _备份窗口_创建完毕
.局部变量 循环次数, 整数型
.局部变量 n, 整数型
累计数量 ＝ 0
备份窗口.可视 ＝ 真
循环次数 ＝ _启动窗口.列表框1.取项目数 ()
进度条1.最大位置 ＝ 循环次数
.计次循环首 (循环次数, n)
创建多级目录 (_启动窗口.编辑框1.内容 ＋ “\” ＋ 到文本 (取日期 (取现行时间 ())) ＋ 取文本右边 (_启动窗口.列表框1.取项目文本 (n － 1), 取文本长度 (_启动窗口.列表框1.取项目文本 (n － 1)) － 2))
递归寻找 (_启动窗口.列表框1.取项目文本 (n － 1))
进度条1.位置 ＝ n
.计次循环尾 ()
开始复制文件 ()
.子程序 递归寻找, , , 递归样式
.参数 目录, 文本型
.局部变量 文件名, 文本型
处理事件 () ' 防止程序假死
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 ＝ 目录 ＋ “\”
.如果真结束
文件名 ＝ 寻找文件 (目录 ＋ “*.*”, )
.判断循环首 (文件名 ≠ “”)
累计数量 ＝ 累计数量 ＋ 1
备份窗口.标题 ＝ “找到文件个数：” ＋ 到文本 (累计数量) ＋ “个”
列表框1.加入项目 (目录 ＋ 文件名, )
列表框1.现行选中项 ＝ 累计数量
文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
文件名 ＝ 寻找文件 (目录 ＋ “*.*”, #子目录)
.判断循环首 (文件名 ≠ “”)
.如果真 (取文本左边 (文件名, 1) ≠ “.”)
递归寻找 (目录 ＋ 文件名)
创建多级目录 (_启动窗口.编辑框1.内容 ＋ “\” ＋ 到文本 (取日期 (取现行时间 ())) ＋ 取文本右边 (目录 ＋ 文件名, 取文本长度 (目录 ＋ 文件名) － 2))
.如果真结束
文件名 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()
.子程序 _备份窗口_可否被关闭, 逻辑型
返回 (假)
.子程序 开始复制文件
.局部变量 n, 整数型
.局部变量 进度位置, 小数型, , "2"
.局部变量 临时路径, 文本型
进度条1.最大位置 ＝ 100
进度位置 [1] ＝ 100 ÷ 累计数量
.计次循环首 (累计数量, n)
进度位置 [2] ＝ 进度位置 [2] ＋ 进度位置 [1]
进度条1.位置 ＝ 进度位置 [2]
临时路径 ＝ 列表框1.取项目文本 (n － 1)
列表框1.现行选中项 ＝ n － 1
复制进程 (临时路径, _启动窗口.编辑框1.内容 ＋ “\” ＋ 到文本 (取日期 (取现行时间 ())) ＋ 取文本右边 (临时路径, 取文本长度 (临时路径) － 2))
透明标签3.标题 ＝ 到文本 (进度条1.位置) ＋ “%”
.计次循环尾 ()
销毁 ()
.子程序 复制进程
.参数 临时路径, 文本型
.参数 写到的文件, 文本型
.局部变量 临时数值, 整数型
.局部变量 临时字节, 字节集
.局部变量 取值次数, 整数型
.局部变量 最后取值, 整数型
.局部变量 读入文件号, 整数型
.局部变量 次数循环, 整数型
.局部变量 读入的数据, 字节集
.局部变量 读入的摘要, 文本型
.局部变量 文件大小, 长整数型
.局部变量 最后摘要, 文本型
.局部变量 进度位置, 小数型, , "2"
.局部变量 读入长度, 长整数型
.局部变量 属性文本, 文本型
.局部变量 临时文件号, 整数型
临时数值 ＝ 取文件尺寸 (临时路径)
临时字节 ＝ 到字节集 (临时数值)
文件大小 ＝ 取字节集数据 (临时字节, #长整数型, )
取值次数 ＝ 到整数 (文件大小 ÷ 取值大小)
最后取值 ＝ 文件大小 － 取值次数 × 取值大小
进度位置 [1] ＝ 100 ÷ 取值次数
关闭文件 (读入文件号)
关闭文件 (临时文件号)
读入文件号 ＝ 打开文件 (临时路径, , )
移动读写位置 (读入文件号, #文件首, 0)
写到文件 (写到的文件, 到字节集 (“”))
临时文件号 ＝ 打开文件 (写到的文件, , )
.计次循环首 (取值次数, 次数循环)
进度位置 [2] ＝ 进度位置 [2] ＋ 进度位置 [1]
进度条2.位置 ＝ 进度位置 [2]
透明标签4.标题 ＝ 到文本 (进度条2.位置) ＋ “%”
读入的数据 ＝ 读入字节集 (读入文件号, 取值大小)
移动读写位置 (临时文件号, #文件尾, 0)
写出字节集 (临时文件号, 读入的数据)
.计次循环尾 ()
读入的数据 ＝ 读入字节集 (读入文件号, 最后取值)
移动读写位置 (临时文件号, #文件尾, 0)
写出字节集 (临时文件号, 读入的数据)
进度条2.位置 ＝ 100
透明标签4.标题 ＝ 到文本 (进度条2.位置) ＋ “%”
关闭文件 (读入文件号)
关闭文件 (临时文件号)
.子程序 创建多级目录
.参数 目录名称, 文本型
.局部变量 当前路径, 文本型
.局部变量 目录名, 文本型, , "0"
.局部变量 索引, 整数型
目录名 ＝ 分割文本 (目录名称, “\”, )
.计次循环首 (取数组成员数 (目录名), 索引)
创建目录 (当前路径 ＋ 目录名 [索引])
当前路径 ＝ 当前路径 ＋ 目录名 [索引] ＋ “\”
.计次循环尾 ()
Ⅲ 易语言如何复制文件并把复制进度显示到进度条1
用复制还不如用解压！添加一个ZIP压缩组件！在创建一个ZIP压缩文件将这些文件放在ZIP压缩文件内
然后将这个文件放在程序资源内或者放在同目录下！
首先
判断ZIP压缩文件是否存在！
如果存在的话就解压该文件！在ZIP解压组件事件中
有解压进度
和压缩进度
选择解压进度。然后再写
.子程序
_ZIP压缩1_解压缩进度,
逻辑型
.参数
已完成百分比,
整数型
进度条1.位置
＝
已完成百分比
Ⅳ 如何用易语言的进度条显示文件复制进度
注意所需控件有一个通用对话框dll命令dll命令：---------------.版本 2.DLL命令 CopyFileExA, 整数型, , "CopyFileExA"
.参数 lpExistingFileName, 文本型
.参数 lpNewFileName, 文本型
.参数 lpProgressRoutine, 子程序指针
.参数 lpData, , 传址
.参数 pbCancel
.参数 dwCopyFlags.DLL命令 PathFindFileNameA, 文本型, "Shlwapi.dll", "PathFindFileNameA"
.参数 pPath, 文本型--------------------------------代码：--------------------------------
代码：----------------------.版本 2
.支持库 shell.程序集 窗口程序集1.子程序 _按钮1_被单击
.局部变量 文件名, 文本型文件名 ＝ 编辑框1.内容
文件名 ＝ PathFindFileNameA (文件名)
' 详细信息请查阅MSDN
' winnt only
.如果真 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “”)
CopyFileExA (编辑框1.内容, 选择 (取文本右边 (编辑框2.内容, 1) ＝ “\”, 编辑框2.内容, 编辑框2.内容 ＋ “\”) ＋ 文件名, &CopyProgressRoutine, 0, 0, 1)
.如果真结束
.子程序 CopyProgressRoutine, 整数型
.参数 TotalFileSize, 长整数型
.参数 TotalBytesTransferred, 长整数型
.参数 StreamSize, 长整数型
.参数 StreamBytesTransferred, 长整数型
.参数 dwStreamNumber, 整数型
.参数 dwCallbackReason, 整数型
.参数 hSourceFile, 整数型
.参数 hDestinationFile, 整数型
.参数 lpData, 整数型进度条1.位置 ＝ TotalBytesTransferred ÷ TotalFileSize × 100 ' 若想百分比更精确，请转换成小数再除
标签1.标题 ＝ 到文本 (进度条1.位置) ＋ “%”
处理事件 ()
返回 (0) ' 返回0则继续复制
.子程序 _按钮2_被单击.如果真 (通用对话框1.打开 ())
编辑框1.内容 ＝ 通用对话框1.文件名
.如果真结束
.子程序 _按钮3_被单击
.局部变量 目录, 文本型目录 ＝ 浏览文件夹 (“选择文件夹”, )
.如果真 (目录 ≠ “”)
编辑框2.内容 ＝ 目录
.如果真结束你可以直接复制代码到易语言调试。
Ⅳ 易语言怎么让进度条(我的是窗口2)有进度..不需要按钮的那种....
用时钟就可以了，添加个时钟控件，周期设为多少你看着办，然后在周期事件下写”进度条1.位置=进度条1.位置+10“‘这里的10看你情况改了
Ⅵ 请问,易语言里"读入文件"命令,读入时,怎么用进度条显示读入进度
读入文件命令好像不行，我用打开文件命令帮你写了一个。你看一下
自己添加一个编辑框，一个按钮，一个进度条看看。（编辑框是否允许多行要为真）
.版本
2
.子程序
_按钮1_被单击
.局部变量
文件号,
整数型
.局部变量
时间,
整数型
文件号
＝
打开文件
(“C:\Documents
and
Settings\Administrator\桌面\aa.txt”,
,
)
.如果真
(文件号
＝
0)
返回
()
.如果真结束
移到文件首
(文件号)
进度条1.最大位置
＝
取文件长度
(文件号)
时间
＝
取启动时间
()
.判断循环首
(是否在文件尾
(文件号,
)
＝
假)
处理事件
()
编辑框1.加入文本
(读入一行
(文件号)
＋
#换行符)
进度条1.位置
＝
取读写位置
(文件号)
.判断循环尾
()
输出调试文本
(“读取用时：”
＋
到文本
(取启动时间
()
－
时间)
＋
“毫秒”)
关闭文件
(文件号)
Ⅶ 易语言如何删除指定的文件夹,要搭配 超级目录框的路径,还要能显示进度条
不多说，上代码
.版本 2
.支持库 xplib
.支持库 shell
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
XP风格 (2)
.子程序 _按钮游戏目录_被单击
编辑框1.内容 ＝ 浏览文件夹 (“请选择游戏所在的文件夹”, )
.如果 (编辑框1.内容 ＝ “”)
返回 ()
.否则
.如果结束
.如果 (取文本长度 (编辑框1.内容) ≠ 倒找文本 (编辑框1.内容, “\”, , 假)) ' 一般打开的路径后面没有“\”，要添加“\”
编辑框1.内容 ＝ 编辑框1.内容 ＋ “\”
.否则
.如果结束
.子程序 _按钮删除_被单击
.如果 (寻找文件 (编辑框1.内容 ＋ “addons”, #子目录) ≠ “”) ' 查找addons文件夹是否存在
.如果 (删除目录 (编辑框1.内容 ＋ “addons”) ＝ 真) ' 删除addons,并返回结果
信息框 (“删除成功！”, 0, “提示”)
.否则
信息框 (“删除失败！”, 0, “提示”)
.如果结束
.否则
信息框 (“请确认是否选择了游戏目录！”, 0, “提示！”) ' 所选目录无addons文件夹，返回提示
绝对原创！
Ⅷ 易语言怎样用标签显示进度条的进度，依次显示1％、2％
你这样只有用个时钟，但用不着不断单击，如果不想用时钟，就在改变进度条位置的子程序里写上（ 标签1.标题 ＝ 到文本 (进度条1.位置) ＋ “%”）下面是用时钟的源码：.版本 2.子程序 _按钮1_被单击时钟1.时钟周期 ＝ 100.子程序 _时钟1_周期事件.如果 (进度条1.位置 ＝ 100)
时钟1.时钟周期 ＝ 0
标签1.标题 ＝ 到文本 (进度条1.位置) ＋ “%”
.否则
标签1.标题 ＝ 到文本 (进度条1.位置) ＋ “%”
Ⅸ 易语言进度条怎么显示资料载入进度
.版本
2
编辑框1.内容
＝
文件名
'
进度条1.最大位置=文件数目
进度条1.位置
＝
进度条1.位置
＋
1
.如果真
(进度条1.位置
＝
总文件数)
信息框
(“载入完毕”,
0,
“载入完毕”)
.如果真结束
Ⅹ 易语言 进度条的使用
.版本2
.支持库EThread
.程序集窗口程序集1
.程序集变量文件名,文本型
.程序集变量文件大小,长整数型
.程序集变量加载句柄,整数型
.子程序_按钮1_被单击
.如果(按钮1.标题＝“加载”)
通用对话框1.标题＝“请选择要解密的文件”
.如果真(通用对话框1.打开())
按钮1.标题＝“停止”
文件名＝通用对话框1.文件名
文件大小＝取大文件尺寸(文件名)
强制结束线程(加载句柄)
启动线程(&加载,,加载句柄)
.如果真结束
.否则
强制结束线程(加载句柄)
关闭所有文件()
标签2.可视＝假
标签1.标题＝“停止”
按钮1.标题＝“加载”
进度条1.位置＝0
.如果结束
.子程序加载
.局部变量file,整数型
.局部变量save,整数型
.局部变量段大小,长整数型
.局部变量剩余大小,长整数型
.局部变量当前大小,长整数型
.局部变量当前段,字节集
.局部变量总大小,长整数型
.局部变量读写位置,长整数型
标签1.标题＝“加载文件...”
file＝打开文件(文件名,,)
总大小＝文件大小
段大小＝1024×1024×到整数(编辑框1.内容)
剩余大小＝总大小
当前段＝读入字节集(file,段大小)
str＝“M/”＋数值到格式文本(总大小÷1048576,2,假)＋“M——已加载”'1024*1024=1048576
标签1.标题＝“0”＋str
time＝取启动时间()
.判断循环首(读写位置＜总大小)
time＝取启动时间()
当前大小＝取字节集数据(到字节集(取字节集长度(当前段)),#长整数型,)
进度条1.位置＝(读写位置＋index)×1000÷总大小
标签1.标题＝数值到格式文本((读写位置＋index)÷1048576,2,假)＋str'1024*1024=1048576
time＝取启动时间()
标签2.可视＝真
读写位置＝读写位置＋当前大小
.如果(读写位置＜总大小)
标签2.标题＝“加载下一段...”
.否则
标签2.标题＝“正在完成...”
.如果结束
编辑框2.内容＝编辑框2.内容＋到文本(当前段)
移动读写位置(file,,读写位置)
当前段＝读入字节集(file,段大小)
标签2.标题＝“”
.判断循环尾()
关闭所有文件()
进度条1.位置＝进度条1.最大位置
文件名＝“”
标签1.标题＝“就绪”
按钮1.标题＝“加载”
信息框(“OK”,0,)
.子程序取大文件尺寸,长整数型
.参数_文件名,文本型
.局部变量局部_对象,对象
.局部变量局部_file对象,对象
.局部变量局部_长度变体,变体型
.局部变量局部_文件尺寸,长整数型
局部_对象.创建(“scripting.FileSystemObject”,)
局部_file对象＝局部_对象.对象型方法(“GetFile”,_文件名)
局部_长度变体＝局部_file对象.读属性(“Size”,)
局部_文件尺寸＝局部_长度变体.取数值(0)
局部_file对象.清除()
局部_对象.清除()
返回(局部_文件尺寸)
.子程序__启动窗口_创建完毕
按钮1.标题＝“加载”
源码已经发送(wzdszzt),请采纳
