- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 图片缩略图填充 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140971)
-- 发布时间：2019/9/18 14:21:00
-- 图片缩略图填充
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.table |
怎样在单元格内填充缩略图,放上是原图显示,现在原图填充实在是太卡了,最好的电脑也卡得不能动,求帮助,实例已上传,请老师在实例改好发我可以吗?
此主题相关图片如下：1.png
-- 发布时间：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
如果要看大图，到列窗口看即可
-- 发布时间：2019/9/18 14:46:00
--
报错了
-- 发布时间：2019/9/18 14:49:00
--
设置存储路径哪里最后加一个反斜杠"\\"
-- 发布时间：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
还是不行呢
-- 发布时间：2019/9/18 15:47:00
--
到1楼图片列属性里改啊
-- 发布时间：2019/9/18 23:59:00
--
还是这个问题,老师
此主题相关图片如下：3.jpg
-- 发布时间：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
-- 发布时间：2019/9/19 9:00:00
--
老师,那个小实例可以用了,但我换个项目又出错了
此主题相关图片如下：4.png
-- 发布时间：2019/9/19 10:08:00
--
e.filename是文件名，放到目录中间肯定不行啊