Foxtable(狐表)用户栏目专家坐堂 → [求助]获取打开图片的大小


  共有2127人关注过本帖树形打印复制链接

主题:[求助]获取打开图片的大小

帅哥哟,离线,有人找我吗?
blsu33
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2927 积分:20161 威望:0 精华:0 注册:2012/2/3 17:45:00
[求助]获取打开图片的大小  发帖心情 Post By:2018/4/9 15:44:00 [只看该作者]

老师,
  求如何获取打开图片的大小,例如在PS中打开图片的大小数据如下,按照这个尺寸打印:


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20180409154220.png
图片点击可在新窗口打开查看

原始图片如下


图片点击可在新窗口打开查看此主题相关图片如下:20180408220159.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/9 16:54:00 [只看该作者]

获取尺寸,参考

 

Dim bmp As new bitmap("d:\test.jpg")
msgbox(bmp.width)
msgbox(bmp.height)
bmp.dispose


 回到顶部
帅哥哟,离线,有人找我吗?
blsu33
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2927 积分:20161 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2018/4/9 17:23:00 [只看该作者]

显示数据是 574*661  想要的结果是 20.25厘米 *23.32 厘米   怎么换算?
这边是用对应纸进行打印的 尺寸是米的 厘米也行
如何获取分辨率
[此贴子已经被作者于2018/4/9 17:59:53编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/9 18:05:00 [只看该作者]

'象素数 / DPI = 英寸数
'英寸数 * 25.4 = 毫米

 

Dim x As Integer = 574
Dim hm = x / 72 * 25.4
msgbox(hm)


 回到顶部
帅哥哟,离线,有人找我吗?
blsu33
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2927 积分:20161 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2018/4/9 18:06:00 [只看该作者]

通用吗 这个72 

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/9 18:43:00 [只看该作者]

以下是引用blsu33在2018/4/9 18:06:00的发言:
通用吗 这个72 

 

获取图片的dpi,参考

 

Dim bmp As new bitmap("d:\test.jpg")
msgbox(bmp.HorizontalResolution)
msgbox(bmp.VerticalResolution)
bmp.dispose


 回到顶部