请问如何获取widows本地图片的缩略图？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问如何获取widows本地图片的缩略图？

共有3173人关注过本帖树形打印复制链接主题：请问如何获取widows本地图片的缩略图？

xuanxiao	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：三尾狐帖子：640 积分：5407 威望：0 精华：0 注册：2014/8/27 11:12:00	请问如何获取widows本地图片的缩略图？ Post By：2020/11/23 13:21:00 [只看该作者] 用户已经被屏蔽

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110648 积分：563148 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/11/23 14:19:00 [只看该作者]

全局代码

Public Function ThumbnailCallback() As Boolean

Return False

End Function

Public Function GetReducedImage(file As String, Width As Integer, Height As Integer) As Image

Try

Dim ReducedImage As Image

Dim ResourceImage As image = Image.FromFile(file )

Dim callb As Image.GetThumbnailImageAbort = New Image.GetThumbnailImageAbort(AddressOf ThumbnailCallback)

ReducedImage = ResourceImage.GetThumbnailImage(Width, Height, callb, IntPtr.Zero)

Return ReducedImage

Catch e As Exception

msgbox(e.Message)

Return Nothing

End Try

End Function

命令窗口

Dim img As image = GetReducedImage("D:\Pictures\123.jpg",50,50)

Output.Show(img is nothing)

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110648 积分：563148 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/11/23 15:02:00 [只看该作者]

如果图片很大，没有办法。foxtable不是专业的图像处理软件

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110648 积分：563148 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/11/23 15:21:00 [只看该作者]

windows一样要处理过，然后生成了专门的缩略图文件。foxtable没有办法读取这个缩略图文件

主题：请问如何获取widows本地图片的缩略图？