易語言圖片源碼
『壹』 求個易語言全屏尋找圖片並點擊的源碼。
源碼:
.版本 2
.程序集 窗口程序集1
.子程序 _按鈕1_被單擊
.局部變數 圖片緩沖, 坐標型
.局部變數 圖片, 文本型
' 網路下載一個 超級模塊7.1
圖片 = 這里寫圖片路徑
圖片緩沖 = 識圖3.精確找圖 (圖片)
.如果 (圖片緩沖.x > 0 或 圖片緩沖.y > 0)
信息框 (「找到圖片」 + 圖片, 0, )
.否則
信息框 (「沒有找到圖片」 + 圖片, 0, )
.如果結束
『貳』 懇求易語言指定坐標截圖程序源碼
.版本 2
.支持庫 eImgConverter
.程序集 窗口程序集1
.子程序 __啟動窗口_創建完畢
.局部變數 圖片, 位元組集
.局部變數 文件名, 文本型
.局部變數 文件號, 整數型
畫板1.底圖 = 快照 (, , )
畫板1.復制 (0, 0, 526, 395, 畫板2, 0, 0, ) ' 寬度自己定,高度也自己定。
圖片 = 畫板2.取圖片 (, )
.判斷開始 (讀配置項 (取運行目錄 () + 「\截圖配置.ini」, 「保存時」, 「文件號」, ) = 「」)
文件號 = 1
.判斷 (讀配置項 (取運行目錄 () + 「\截圖配置.ini」, 「保存時」, 「文件號」, ) ≠ 「」)
文件號 = 到整數 (讀配置項 (取運行目錄 () + 「\截圖配置.ini」, 「保存時」, 「文件號」, )) + 1
.默認
.判斷結束
文件名 = 「jietu」 + 到文本 (文件號) + 「.jpg」
寫到文件 (取運行目錄 () + 「\」 + 文件名, 圖片)
轉換到JPG (取運行目錄 () + 「\」 + 文件名, 取運行目錄 () + 「\」 + 文件名, 假, 100, 真, 0)
寫配置項 (取運行目錄 () + 「\截圖配置.ini」, 「保存時」, 「文件號」, 到文本 (文件號))
銷毀 ()
前面的寫配置項是為了記錄截圖次數,防止文件名重復。
文件存放的路徑可以自己定。
記得啟動窗口中要放兩個足夠大的畫板,畫板2的寬度和高度要和截圖的高、寬度相同,兩個畫板都要 自動重畫=真 ,啟動窗口要 可視=假 畫面才流暢。
還有要記得添加支持庫:圖像格式轉換支持庫。
『叄』 易語言幫我做一個軟體(圖片瀏覽) 實現打開圖片、上一張圖片、下一張圖片就好。(發源碼)
我的思路是枚舉文件然後加入數組,最後設置個變數就好了。
.版本
2.支持庫
EThread
.
程序集
窗口程序集1.程序集變數
圖片組,
位元組集,
,
"0".程序集變數
當前圖片,
整數型.程序集變數
圖片張數,
整數型.程序集變數
下一張,
整數型
.
子程序
__啟動窗口_創建完畢
時鍾1.時鍾周期
=
1000當前圖片
=
1加入成員
(圖片組,
#圖片1)加入成員
(圖片組,
#圖片2)圖片張數
=
取數組成員數
(圖片組)
.子程序
子程序_圖片輪換
下一張
=
當前圖片
+
1.如果真
(下一張
=
圖片張數
+
1)
下一張
=
1
當前圖片
=
圖片張數.如果真結束
.如果
(當前圖片
=
圖片張數)
當前圖片
=
1.否則
當前圖片
=
當前圖片
+
1.如果結束
圖片框1.圖片
=
圖片組
[當前圖片]
.子程序
_時鍾1_周期事件
啟動線程
(&子程序_圖片輪換,
,
)