[教程][图像]AutoHotkey获取图片实际厘米

获取图片实际厘米
通过windows内置的函数获取图片实际尺寸厘米

Gui,Add,ListView,xm vMyListView r10, FileName|Width|Height
Gui,Show,AutoSize,FileName-Width-Height
SetFormat, float, 0.2
Return
GuiDropFiles:
LV_Delete()
Loop, Parse, A_GuiEvent ,`n
{
SplitPath,A_LoopField,,, OutExtension
if OutExtension not in BMP,bmp,jpg
continue
strPic = %A_LoopField%
objImage := ComObjCreate("WIA.ImageFile")
objImage.LoadFile(strPic)
objImage.Width
objImage.Height
objImage.HorizontalResolution
Width := objImage.Width/objImage.HorizontalResolution*2.54
Height := objImage.Height/objImage.HorizontalResolution*2.54
LV_Add("",A_LoopField,Width,Height)
}
LV_ModifyCol()
Gui +LastFound
win = 0
Loop % LV_GetCount("Column")
{
    SendMessage, 4125, A_Index - 1, 0, SysListView321  ; 4125 为 LVM_GETCOLUMNWIDTH.
    win := ErrorLevel+win
}
win := win+30
GuiControl, Move,MyListView,w%win%
Gui,Show,AutoSize
Return
GuiClose:
ExitApp

为TA充电
共{{data.count}}人
人已赞赏
AHKV1办公

AutoHotkey内置函数解压文件

2016-8-9 13:33:18

AHKV1学习

[教程][网络]AutoHotkey获取上网方式与链接状态

2016-8-10 10:00:37

0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索