以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  图片缩略图填充  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=140971)

--  作者:fendouww
--  发布时间: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

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

--  作者:fendouww
--  发布时间:2019/9/18 14:46:00
--  
报错了图片点击可在新窗口打开查看
--  作者:有点蓝
--  发布时间:2019/9/18 14:49:00
--  
设置存储路径哪里最后加一个反斜杠"\\"
--  作者:fendouww
--  发布时间: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楼图片列属性里改啊
--  作者:fendouww
--  发布时间: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

--  作者:fendouww
--  发布时间:2019/9/19 9:00:00
--  
老师,那个小实例可以用了,但我换个项目又出错了
图片点击可在新窗口打开查看此主题相关图片如下:4.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2019/9/19 10:08:00
--  
e.filename是文件名,放到目录中间肯定不行啊