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


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

主题：图片缩略图填充
帅哥哟，离线，有人找我吗？
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


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：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
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


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：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


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：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


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：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


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/9/19 10:08:00 [只看该作者]

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

 回到顶部
总数 17 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 5 次数据查询