Ⅰ 易語言的程序能不能把進度顯示到任務欄
可以的！！在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),請採納
