以文本方式查看主题

-  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=139804)

--  作者:fendouww
--  发布时间:2019/8/22 8:38:00
--  单元格内填充图片

图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

我想在单元格内填 充图片展示,可以做到吗?如何做?效果同excel内

--  作者:有点蓝
--  发布时间:2019/8/22 9:27:00
--  
参考:http://www.foxtable.com/webhelp/topics/1493.htm
--  作者:fendouww
--  发布时间:2019/8/22 13:06:00
--  单元格内填充图片
我要的是这样填充图片的
图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2019/8/22 13:46:00
--  
同样的用法,不会就上传实例
--  作者:fendouww
--  发布时间:2019/8/22 14:04:00
--  单元格内填充图片

图片点击可在新窗口打开查看此主题相关图片如下:3.jpg
图片点击可在新窗口打开查看
图片显示在单元格内,请教做法
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:1.rar


--  作者:有点蓝
--  发布时间:2019/8/22 14:20:00
--  
drawcell事件

If e.Col.Name = "第二列" Then
    If FileSys.FileExists(ProjectPath & "Attachments\\" & e.Row("第二列")) Then
        e.Graphics.DrawImage(getImage(ProjectPath & "Attachments\\" & e.Row("第二列")),e.x +1,e.y+1,e.Width - 2,e.Height - 2)
        e.Text = ""
    End If
End If

--  作者:fendouww
--  发布时间:2019/8/22 14:22:00
--  单元格内填充图片
很感谢
--  作者:fendouww
--  发布时间:2019/8/29 13:28:00
--  
我使用了远程存储后就不再绘制了是什么原因,图片不填充了
图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2019/8/29 14:27:00
--  
单元格存储的是什么内容?

drawcell事件

If e.Col.Name = "第二列" Then
    If FileSys.FileExists(e.Col.DataCol.DefaultFolder & "\\" & e.Row("第二列")) Then
        e.Graphics.DrawImage(getImage(e.Col.DataCol.DefaultFolder & "\\" & e.Row("第二列")),e.x +1,e.y+1,e.Width - 2,e.Height - 2)
        e.Text = ""
    End If
End If

--  作者:fendouww
--  发布时间:2019/9/3 8:37:00
--  
现在功能已经做好了,但绘图后表格会很卡,有解决办法吗?
我看别的软件转换图片后并不会这么卡的
图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看