图片修改大小并支持图片预览

skysmile

最近看上一个比较心仪的源码，无奈没钱下载，于是就发布一个刚写的代码，来赚钱小钱，代码不叫简陋，可能有很多修改的地方，也有一些地方运用手法也不怎么高明，仅作学习参考吧

本代码可以批量导入图片，可以添加目录会自动筛选图片导入，也可以直接拖动图片进窗口，listview做了个简单排序，可以点击标题排序



下面是部分代码，全部的请下载附件

#NoTrayIcon
#RequireAdmin
#Region ;**** 编译指令由 AutoIt3Wrapper 选项编译窗口创建 ****
#AutoIt3Wrapper_Icon=48x48.ico
#AutoIt3Wrapper_UseUpx=y
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Description=修改图片大小，带图片预览
#AutoIt3Wrapper_Res_Fileversion=2.0
#AutoIt3Wrapper_Res_LegalCopyright=聆听天笑:281452390
#AutoIt3Wrapper_Res_Language=2052
#EndRegion ;**** 编译指令由 AutoIt3Wrapper 选项编译窗口创建 ****
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <Array.au3>
#include <File.au3>
#include <ListViewConstants.au3>
#include <GuiListView.au3>

Global $DPIW ;分辨率宽
Global $ADDFolder ;添加目录
Global $One_File ;添加单个文件
Global $Dir;目录
Global $g_bSortSense = False ; 设置初始升序排序

$temp = @DesktopDir & "\图片修改"

;主窗口
$Form1 = GUICreate("修改图片大小V2.0", 640, 450, -1, -1, -1, $WS_EX_ACCEPTFILES)
GUISetFont(10, 400, 0, "微软雅黑")
GUISetBkColor(0xf0f0f0)

;图片保存地址
Global $Label1 = GUICtrlCreateLabel("输出目录", 10, 12, 70, 25)
Global $Input1 = GUICtrlCreateInput($temp, 70, 10, 300, 25)
Global $Button1 = GUICtrlCreateButton("修改", 380, 10, 60, 25)

;修改图片大小
GUICtrlCreateGroup("选择你要调整后图片的宽度（根据宽度等比缩放）", 10, 50, 430, 60)
GUICtrlSetColor(-1, 0xFFFFFF)
GUIStartGroup()
Global $Radio1 = GUICtrlCreateRadio("宽*600", 40, 75, 80, 20)
Global $Radio2 = GUICtrlCreateRadio("宽*800", 120, 75, 80, 20)
Global $Radio3 = GUICtrlCreateRadio("宽*1024（建议）", 200, 75, 120, 20)
Global $Radio4 = GUICtrlCreateRadio("宽*1440", 340, 75, 80, 20)

GUICtrlSetState($Radio3, $GUI_CHECKED)
GUICtrlCreateGroup("", -99, -99, 1, 1)

;接受图片拖放区域
GUICtrlCreateLabel("已添加的图片（图片可以直接拖入下框，点击预览，双击打开，右键删除）", 10, 120, 430, 25)
Global $ListView = GUICtrlCreateListView("文件所在地址|分辨率|图片大小|修改时间", 10, 150, 620, 249,$LVS_SORTASCENDING,$LVS_EX_FULLROWSELECT+$LVS_EX_GRIDLINES)
_GUICtrlListView_SetColumnWidth($ListView, 0, 310)
_GUICtrlListView_SetColumnWidth($ListView, 1, 80)
_GUICtrlListView_SetColumnWidth($ListView, 2, 80)
_GUICtrlListView_SetColumnWidth($ListView, 3, 100)

GUICtrlSetState(-1, $GUI_DROPACCEPTED)

;功能按钮
Global $Button2 = GUICtrlCreateButton("添加图片目录", 20, 410, 100, 25)
Global $Button3 = GUICtrlCreateButton("添加单张图片", 135, 410, 100, 25)
Global $Button4 = GUICtrlCreateButton("修改图片", 250, 410, 80, 25)
Global $Button5 = GUICtrlCreateButton("清空图片", 345, 410, 80, 25)
Global $Help = GUICtrlCreateButton("查看帮助", 440, 410, 80, 25)
Global $Helpclose = GUICtrlCreateButton("关闭帮助", 535, 410, 80, 25)

;注册 Windows 消息
GUIRegisterMsg($WM_DROPFILES, "WM_DROPFILES")
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
GUISetState(@SW_SHOW,$Form1)

;图片预览区域
$Form2 = GUICreate("图片预览区域", 180,125, 450, 10, $WS_CHILD+$WS_BORDER, -1,$Form1)
GUISetState(@SW_SHOW,$Form2)

_StringFormatCreate()
_help()
While 1

        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

                Case $GUI_EVENT_MINIMIZE
                        SplashOff ( )

                Case $Button1 ;选择图片保存目录
                        $SavePath = FileSelectFolder("选择图片保存目录", @DesktopDir, 1)
                        If Not @error Then
                                GUICtrlSetData($Input1, $SavePath)
                        EndIf

                Case $Button2 ;添加图片目录
                        $ADDFolder = FileSelectFolder("选择图片目录", $Dir)
                        If Not @error Then
                                $Dir = $ADDFolder
                                _ByFolder($Dir)
                        EndIf

                Case $Button3 ;添加图片
                        $FileList = FileOpenDialog("选择图片", $Dir, "图像文件 (*.jpg;*.bmp;*.gif;*.png)", 1 + 2 + 4)
                        If Not @error Then
                                _ByFiles($FileList)
                        EndIf

                Case $Button4 ;修改图片
                        Local $Read_ADD[1] ;读取添加在EDIT控件的内容
                        Local $ADD_File[1] ;将$Read_ADD内容生成数组
                        If GUICtrlRead($Input1) = "" Then
                                MsgBox(64, "提示", "请选择修改后图片保存目录")
                        Else
                                If _GUICtrlListView_GetItemTextString($ListView, 0) = "||" Then
                                        MsgBox(64, "提示", "你没添加图片")
                                Else
                                        For $i = 0 To _GUICtrlListView_GetItemCount($ListView) - 1
                                                $Read_ADD = _GUICtrlListView_GetItemTextString($ListView, $i)
                                                _ArrayAdd($ADD_File, $Read_ADD)
                                        Next
                                        If GUICtrlRead($Input1)= $temp And NOT FileExists($temp ) Then
                                                DirCreate(@DesktopDir & "\图片修改")
                                        EndIf
                                        If GUICtrlRead($Radio1) = $GUI_CHECKED Then $DPIW = "600"
                                        If GUICtrlRead($Radio2) = $GUI_CHECKED Then $DPIW = "800"
                                        If GUICtrlRead($Radio3) = $GUI_CHECKED Then $DPIW = "1024"
                                        If GUICtrlRead($Radio4) = $GUI_CHECKED Then $DPIW = "1440"
                                        For $i = 0 To UBound($ADD_File, 1) - 1
                                                $name = _WinAPI_PathFindFileName($ADD_File[$i])
                                                _GDIPlus_Startup()
                                                Local $hImage = _GDIPlus_ImageLoadFromFile($ADD_File[$i])
                                                Local $iX = _GDIPlus_ImageGetWidth($hImage)
                                                Local $iY = _GDIPlus_ImageGetHeight($hImage)
                                                _GDIPlus_ImageDispose($hImage)
                                                _GDIPlus_Shutdown()
                                                Local $newY = Round($DPIW / $iX * $iY, 0)
                                                _PicChangeSize($ADD_File[$i], GUICtrlRead($Input1) & "" & $DPIW & "X" & $newY & "-" & $name, $DPIW)
                                        Next

                                        $pid = MsgBox(0 + 4, "", "修改完成,是否打开修改后的图片目录")

                                        If $pid = 6 Then
                                                ShellExecute("explorer", GUICtrlRead($Input1))
                                        EndIf
                                EndIf
                        EndIf


                Case $Button5 ;清空
                        _GUICtrlListView_DeleteAllItems($ListView)

                Case $Help
                        _help()

                Case $Helpclose
                        SplashOff ( )

        EndSwitch
WEnd

zpmc123

善于在论坛上学习新的东西

绿色风

加油，以前我也写了个，半成品，用了一次后，就再也没有完整它的了。

顶一下

fenhanxue

为何全是乱码啊，楼主

skysmile

回复 4# fenhanxue
你的版本问题，换成utf8