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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 图片缩略图填充

共有3669人关注过本帖树形打印复制链接主题：图片缩略图填充

fendouww

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

加好友

发短信

等级：小狐帖子：312 积分：2519 威望：0 精华：0 注册：2019/7/19 13:09:00

图片缩略图填充 发帖心情

Post By：2019/9/18 14:21:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.table

怎样在单元格内填充缩略图,放上是原图显示,现在原图填充实在是太卡了,最好的电脑也卡得不能动,求帮助,实例已上传,请老师在实例改好发我可以吗?
图片点击可在新窗口打开查看

此主题相关图片如下：1.png

有点蓝

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

加好友

发短信

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

Post By：2019/9/18 14:36:00 [只看该作者]

直接单元格绘图本身就很耗资源，不管是原图还是缩略图，效果都好不到哪去。

如果要做那么应该在添加图片的时候就同步生成缩略图保存下来，比如图片：张三.jpg，可以在BeforeAttachFile事件创建一个名称为“缩略图_张三.jpg”的图片

Dim file As String = e.DataCol.DefaultFolder & "\" & e.FileName

Dim img As image = getImage(file)

Dim bmp As new bitmap(img, 100, 100 * (img.height / img.width))

bmp.save(e.DataCol.DefaultFolder & "缩略图_" & e.FileName,img.RawFormat)

bmp.Dispose

drawcell事件

If e.Col.Name = "第一列" Then

If FileSys.FileExists(e.Col.DataCol.DefaultFolder & "缩略图_" & e.Row("第一列").trim("\")) Then

e.Graphics.DrawImage(getImage(e.Col.DataCol.DefaultFolder & "缩略图_" & e.Row("第一列").trim("\")),e.x +1,e.y+1,e.Width - 2,e.Height - 2)

e.Text = ""

End If

如果要看大图，到列窗口看即可

fendouww

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

加好友

发短信

等级：小狐帖子：312 积分：2519 威望：0 精华：0 注册：2019/7/19 13:09:00

Post By：2019/9/18 14:46:00 [只看该作者]

报错了

有点蓝

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

加好友

发短信

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

Post By：2019/9/18 14:49:00 [只看该作者]

设置存储路径哪里最后加一个反斜杠"\"

fendouww

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

加好友

发短信

等级：小狐帖子：312 积分：2519 威望：0 精华：0 注册：2019/7/19 13:09:00

Post By：2019/9/18 15:05:00 [只看该作者]

Dim file As String = e.DataCol.DefaultFolder & "\" & e.FileName

Dim img As image = getImage(file)

Dim bmp As new bitmap(img, 100, 100 * (img.height / img.width))

bmp.save(e.DataCol.DefaultFolder & "缩略图_" & "\" & e.FileName ,img.RawFormat)

bmp.Dispose

还是不行呢

有点蓝

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

加好友

发短信

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

Post By：2019/9/18 15:47:00 [只看该作者]

到1楼图片列属性里改啊

fendouww

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

加好友

发短信

等级：小狐帖子：312 积分：2519 威望：0 精华：0 注册：2019/7/19 13:09:00

Post By：2019/9/18 23:59:00 [只看该作者]

还是这个问题,老师

此主题相关图片如下：3.jpg

有点蓝

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

加好友

发短信

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

Post By：2019/9/19 8:16:00 [只看该作者]

Dim file As String = e.DataCol.DefaultFolder & "\" & e.FileName

msgbox(file) '这里显示什么路径

Dim img As image = getImage(file)

Dim bmp As new bitmap(img, 100, 100 * (img.height / img.width))

bmp.save(e.DataCol.DefaultFolder & "缩略图_" & e.FileName,img.RawFormat)

bmp.Dispose

fendouww

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

加好友

发短信

等级：小狐帖子：312 积分：2519 威望：0 精华：0 注册：2019/7/19 13:09:00

Post By：2019/9/19 9:00:00 [只看该作者]

老师,那个小实例可以用了,但我换个项目又出错了
图片点击可在新窗口打开查看

此主题相关图片如下：4.png

有点蓝

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

加好友

发短信

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

Post By：2019/9/19 10:08:00 [只看该作者]

e.filename是文件名，放到目录中间肯定不行啊

下一主题 >> << 上一主题

总数 17 1 2 下一页

主题：图片缩略图填充