我有個圖片制作工具源碼妳可以參考下， 帶模版
.版本 2
.程序集 窗口程序集1
.程序集變量 圖片畫板, 畫板, , "0"
.程序集變量 圖片號, 整數型, , "0"
.程序集變量 當前畫板, 畫板
.程序集變量 當前編號, 字節型
.程序集變量 寬, 字節型
.程序集變量 高, 字節型
.子程序 _載入按鈕_被單擊
.局部變量 當前圖片數, 字節型
寬 ＝ 到數值 (編輯框1.內容)
高 ＝ 到數值 (編輯框2.內容)
.如果真 (通用對話框1.打開 ())
當前圖片數 ＝ 取數組成員數 (圖片畫板)
.如果真 (當前圖片數 ＞ 0)
圖片畫板 [當前圖片數].畫板背景色 ＝ #灰綠
圖片畫板 [當前圖片數].畫圖片 (圖片號 [當前圖片數], 8, 8, 32, 32, )
.如果真結束
重定義數組 (圖片號, 真, 當前圖片數 ＋ 1)
圖片號 [當前圖片數 ＋ 1] ＝ 載入圖片 (通用對話框1.文件名)
.如果真 ((畫板2.取圖片寬度 (圖片號 [當前圖片數 ＋ 1]) ≠ 寬 或 畫板2.取圖片高度 (圖片號 [當前圖片數 ＋ 1]) ≠ 高) 且 選擇框1.選中 ＝ 假)
.如果真 (信息框 (“ 所要載入的圖片大小為” ＋ 到文本 (畫板2.取圖片寬度 (圖片號 [當前圖片數 ＋ 1])) ＋ “×” ＋ 到文本 (畫板2.取圖片高度 (圖片號 [當前圖片數 ＋ 1])) ＋ “象素，與設置的” ＋ 編輯框1.內容 ＋ “×” ＋ 編輯框2.內容 ＋ “象素不壹致，將根據設置的大小自動縮放。確定要載入嗎？” ＋ #換行符 ＋ “ 妳可以選中選擇框” ＋ #左引號 ＋ “自動縮放圖片” ＋ #右引號 ＋ “以避免出現本信息框。”, #信息圖標 ＋ #確認取消鈕, “載入圖片”) ＝ #取消鈕)
返回 ()
.如果真結束
.如果真結束
當前圖片數 ＝ 取數組成員數 (圖片畫板)
重定義數組 (圖片畫板, 真, 當前圖片數 ＋ 1)
復制窗口組件 (畫板2, 圖片畫板 [當前圖片數 ＋ 1])
圖片畫板 [當前圖片數 ＋ 1].標記 ＝ 到文本 (當前圖片數 ＋ 1)
圖片畫板 [當前圖片數 ＋ 1].移動 (當前圖片數 × 48 ＋ (當前圖片數 ＋ 1) × 12, 10, 48, 48)
圖片畫板 [當前圖片數 ＋ 1].可視 ＝ 真
圖片畫板 [當前圖片數 ＋ 1].畫板背景色 ＝ #藍色
圖片畫板 [當前圖片數 ＋ 1].畫圖片 (圖片號 [當前圖片數 ＋ 1], 8, 8, 32, 32, )
.如果真 (當前編號 ≠ 0)
圖片畫板 [當前編號].畫板背景色 ＝ #灰綠
圖片畫板 [當前編號].畫圖片 (圖片號 [當前編號], 8, 8, 32, 32, )
.如果真結束
當前畫板 ＝ 圖片畫板 [當前圖片數 ＋ 1]
當前編號 ＝ 當前圖片數 ＋ 1
.如果真 (圖片畫板 [當前圖片數 ＋ 1].左邊 ＋ 60 ＞ 畫板1.寬度)
橫向滾動條1.可視 ＝ 真
橫向滾動條1.最大位置 ＝ 圖片畫板 [當前圖片數 ＋ 1].左邊 ＋ 60 － 畫板1.寬度
橫向滾動條1.位置 ＝ 橫向滾動條1.最大位置
畫板5.移動 (－橫向滾動條1.最大位置, , , )
.如果真結束
連續賦值 (假, 生成按鈕.禁止, 清除按鈕.禁止, 刪除按鈕.禁止, 插入按鈕.禁止)
畫板5.寬度 ＝ 畫板5.寬度 ＋ 60
.如果真結束
.子程序 _生成按鈕_被單擊
.局部變量 容器1, 字節型
畫板4.可視 ＝ 真
畫板4.移動 (12, (畫板3.高度 － 高) ÷ 2, 取數組成員數 (圖片號) × 寬, 高)
.計次循環首 (取數組成員數 (圖片號), 容器1)
畫板4.畫圖片 (圖片號 [容器1], (容器1 － 1) × 寬, 0, 寬, 高, )
.計次循環尾 ()
.如果真 (畫板4.左邊 ＋ 畫板4.寬度 ＋ 12 ＞ 畫板3.寬度)
橫向滾動條2.可視 ＝ 真
橫向滾動條2.最大位置 ＝ 畫板4.左邊 ＋ 畫板4.寬度 ＋ 12 － 畫板3.寬度
橫向滾動條2.位置 ＝ 橫向滾動條2.最大位置
畫板4.移動 (12 － 橫向滾動條2.最大位置, , , )
.如果真結束
保存按鈕.禁止 ＝ 假
.如果 (橫向滾動條2.可視 ＝ 真)
_啟動窗口.移動 (, , , 326)
.否則
_啟動窗口.移動 (, , , 308)
.如果結束
.子程序 _橫向滾動條1_位置被改變
畫板5.移動 (－橫向滾動條1.位置, , , )
.子程序 _橫向滾動條2_位置被改變
畫板4.移動 (12 － 橫向滾動條2.位置, , , )
.子程序 _清除按鈕_被單擊
.局部變量 容器1, 字節型
.計次循環首 (取數組成員數 (圖片號), 容器1)
畫板4.畫圖片 (圖片號 [容器1], (容器1 － 1) × 寬, 0, 寬, 高, )
卸載圖片 (圖片號 [容器1])
圖片畫板 [容器1].銷毀 ()
.計次循環尾 ()
重定義數組 (圖片畫板, 假, 0)
重定義數組 (圖片號, 假, 0)
畫板4.清除 (, , , )
畫板4.可視 ＝ 假
連續賦值 (真, 生成按鈕.禁止, 保存按鈕.禁止, 清除按鈕.禁止, 刪除按鈕.禁止, 插入按鈕.禁止)
連續賦值 (1, 橫向滾動條1.位置, 橫向滾動條1.最大位置, 橫向滾動條2.位置, 橫向滾動條2.最大位置)
橫向滾動條1.可視 ＝ 假
橫向滾動條2.可視 ＝ 假
畫板5.移動 (0, , 72, )
_啟動窗口.移動 (, , , 224)
當前編號 ＝ 0
.子程序 _保存按鈕_被單擊
.如果真 (通用對話框2.打開 ())
.如果 (寫到文件 (通用對話框2.文件名, 畫板4.取圖片 (, )))
信息框 (“保存圖片組文件” ＋ 通用對話框2.文件名 ＋ “成功！”, #信息圖標, “保存圖片組”)
.否則
信息框 (“保存圖片組文件” ＋ 通用對話框2.文件名 ＋ “失敗！”, #錯誤圖標, “保存圖片組”)
.如果結束
.如果真結束
.子程序 __啟動窗口_創建完畢
_啟動窗口.移動 (, , , 224)
.子程序 _編輯框1_獲得焦點
編輯框1.被選擇字符數 ＝ -1
.子程序 _編輯框2_獲得焦點
編輯框2.被選擇字符數 ＝ -1
.子程序 _編輯框1_內容被改變
.如果真 (到數值 (編輯框1.內容) ＞ 64)
鳴叫 ()
編輯框1.內容 ＝ 取文本左邊 (編輯框1.內容, 取文本長度 (編輯框1.內容) － 1)
編輯框1.起始選擇位置 ＝ 取文本長度 (編輯框1.內容)
.如果真結束
.子程序 _編輯框2_內容被改變
.如果真 (到數值 (編輯框2.內容) ＞ 64)
鳴叫 ()
編輯框2.內容 ＝ 取文本左邊 (編輯框2.內容, 取文本長度 (編輯框2.內容) － 1)
編輯框2.起始選擇位置 ＝ 取文本長度 (編輯框2.內容)
.如果真結束
.子程序 _畫板2_鼠標左鍵被按下, 邏輯型
.參數 橫向位置, 整數型
.參數 縱向位置, 整數型
.參數 功能鍵狀態, 整數型
.局部變量 容器1, 字節型
當前畫板 ＝ 取事件組件 ()
圖片畫板 [當前編號].畫板背景色 ＝ #灰綠
圖片畫板 [當前編號].畫圖片 (圖片號 [當前編號], 8, 8, 32, 32, )
當前編號 ＝ 到數值 (當前畫板.標記)
當前畫板.畫板背景色 ＝ #藍色
當前畫板.畫圖片 (圖片號 [當前編號], 8, 8, 32, 32, )
.子程序 _刪除按鈕_被單擊
.局部變量 容器1, 字節型
當前畫板.銷毀 ()
刪除成員 (圖片號, 當前編號, 1)
刪除成員 (圖片畫板, 當前編號, 1)
.如果 (取數組成員數 (圖片號) ＝ 0)
畫板4.清除 (, , , )
畫板4.可視 ＝ 假
連續賦值 (真, 生成按鈕.禁止, 保存按鈕.禁止, 清除按鈕.禁止, 刪除按鈕.禁止, 插入按鈕.禁止)
連續賦值 (1, 橫向滾動條1.位置, 橫向滾動條1.最大位置, 橫向滾動條2.位置, 橫向滾動條2.最大位置)
橫向滾動條1.可視 ＝ 假
橫向滾動條2.可視 ＝ 假
_啟動窗口.移動 (, , , 224)
.否則
.如果真 (當前編號 ≤ 取數組成員數 (圖片畫板))
.變量循環首 (當前編號, 取數組成員數 (圖片畫板), 1, 容器1)
圖片畫板 [容器1].標記 ＝ 到文本 (容器1)
圖片畫板 [容器1].左邊 ＝ 圖片畫板 [容器1].左邊 － 60
.變量循環尾 ()
.如果真結束
當前畫板 ＝ 圖片畫板 [選擇 (當前編號 ＞ 取數組成員數 (圖片畫板), 取數組成員數 (圖片畫板), 當前編號)]
當前編號 ＝ 到數值 (當前畫板.標記)
圖片畫板 [當前編號].畫板背景色 ＝ #藍色
圖片畫板 [當前編號].畫圖片 (圖片號 [當前編號], 8, 8, 32, 32, )
.如果 (圖片畫板 [取數組成員數 (圖片畫板)].左邊 ＋ 60 ＞ 畫板1.寬度)
橫向滾動條1.可視 ＝ 真
橫向滾動條1.最大位置 ＝ 圖片畫板 [取數組成員數 (圖片畫板)].左邊 ＋ 60 － 畫板1.寬度
橫向滾動條1.位置 ＝ 橫向滾動條1.最大位置
畫板5.移動 (－橫向滾動條1.最大位置, , , )
.否則
橫向滾動條1.可視 ＝ 假
畫板5.左邊 ＝ 0
.如果結束
.如果結束
畫板5.寬度 ＝ 畫板5.寬度 － 60
.子程序 _插入按鈕_被單擊
.局部變量 插入畫板, 畫板
.局部變量 插入圖片號, 整數型
.局部變量 容器1, 字節型
.如果真 (通用對話框1.打開 ())
插入圖片號 ＝ 載入圖片 (通用對話框1.文件名)
.如果真 ((畫板2.取圖片寬度 (插入圖片號) ≠ 寬 或 畫板2.取圖片高度 (插入圖片號) ≠ 高) 且 選擇框1.選中 ＝ 假)
.如果真 (信息框 (“ 所要載入的圖片大小為” ＋ 到文本 (畫板2.取圖片寬度 (插入圖片號)) ＋ “×” ＋ 到文本 (畫板2.取圖片高度 (插入圖片號)) ＋ “象素，與設置的” ＋ 編輯框1.內容 ＋ “×” ＋ 編輯框2.內容 ＋ “象素不壹致，將根據設置的大小自動縮放。確定要載入嗎？” ＋ #換行符 ＋ “ 妳可以選中選擇框” ＋ #左引號 ＋ “自動縮放圖片” ＋ #右引號 ＋ “以避免出現本信息框。”, #信息圖標 ＋ #確認取消鈕, “載入圖片”) ＝ #取消鈕)
返回 ()
.如果真結束
.如果真結束
畫板5.寬度 ＝ 畫板5.寬度 ＋ 60
插入成員 (圖片號, 當前編號 ＋ 1, 插入圖片號)
復制窗口組件 (畫板2, 插入畫板)
插入成員 (圖片畫板, 當前編號 ＋ 1, 插入畫板)
圖片畫板 [當前編號 ＋ 1].可視 ＝ 真
圖片畫板 [當前編號 ＋ 1].畫板背景色 ＝ #藍色
圖片畫板 [當前編號 ＋ 1].標記 ＝ 到文本 (當前編號 ＋ 1)
圖片畫板 [當前編號 ＋ 1].左邊 ＝ 當前畫板.左邊 ＋ 60
圖片畫板 [當前編號 ＋ 1].畫圖片 (圖片號 [當前編號 ＋ 1], 8, 8, 32, 32, )
當前畫板.畫板背景色 ＝ #灰綠
當前畫板.畫圖片 (圖片號 [當前編號], 8, 8, 32, 32, )
當前畫板 ＝ 圖片畫板 [當前編號 ＋ 1]
當前編號 ＝ 當前編號 ＋ 1
.變量循環首 (當前編號 ＋ 1, 取數組成員數 (圖片畫板), 1, 容器1)
圖片畫板 [容器1].標記 ＝ 到文本 (容器1)
圖片畫板 [容器1].左邊 ＝ 圖片畫板 [容器1].左邊 ＋ 60
.變量循環尾 ()
.如果真 (圖片畫板 [取數組成員數 (圖片畫板)].左邊 ＋ 60 ＞ 畫板1.寬度)
橫向滾動條1.可視 ＝ 真
橫向滾動條1.最大位置 ＝ 圖片畫板 [取數組成員數 (圖片畫板)].左邊 ＋ 60 － 畫板1.寬度
橫向滾動條1.位置 ＝ 橫向滾動條1.最大位置
畫板5.移動 (－橫向滾動條1.最大位置, , , )