以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]获取打开图片的大小  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117249)

--  作者:blsu33
--  发布时间:2018/4/9 15:44:00
--  [求助]获取打开图片的大小
老师,
  求如何获取打开图片的大小,例如在PS中打开图片的大小数据如下,按照这个尺寸打印:


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

原始图片如下


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


--  作者:有点甜
--  发布时间:2018/4/9 16:54:00
--  
获取尺寸,参考

 

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


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

--  作者:有点甜
--  发布时间:2018/4/9 18:05:00
--  

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

 

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


--  作者:blsu33
--  发布时间:2018/4/9 18:06:00
--  
通用吗 这个72 
--  作者:有点甜
--  发布时间: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