以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  单元格显示图片  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189954)

--  作者:creastzh
--  发布时间:2024/1/7 20:20:00
--  单元格显示图片
以前使用VBA在Excel中将图片直接调用显示在文件中, 这样方便查看,一览无余, 图片不大,一般只有100k大小,现在我将相关数据转入了foxtable, 但发现只能使用窗口方式才能显示, 我希望仍能使用类似Excel一样将图片直接显示在Foxtable页面上, 不知道如何操作, 谢谢!
--  作者:有点蓝
--  发布时间:2024/1/7 20:23:00
--  
单元格绘图?http://www.foxtable.com/webhelp/topics/1493.htm
--  作者:creastzh
--  发布时间:2024/1/7 20:33:00
--  
是的, 我仔细学习一下,谢谢!
--  作者:creastzh
--  发布时间:2024/1/7 21:12:00
--  
老师,我还是没有琢磨出来,能否请给我发一个案例, 我不是要在单元格画图,而是要在单元格显示指定的图片,谢谢!
--  作者:creastzh
--  发布时间:2024/1/7 21:14:00
--  
图片点击可在新窗口打开查看
就像这个状态,类似Excel图片显示在Foxtable单元格中

--  作者:有点蓝
--  发布时间:2024/1/7 21:36:00
--  
要在单元格显示指定的图片Foxtable只能通过绘制的方式实现
--  作者:creastzh
--  发布时间:2024/1/7 21:47:00
--  
我刚才根据搜索到的1篇文章终于试验出来了

图片点击可在新窗口打开查看此主题相关图片如下:2024-01-07 21_46_26-dragfilewindowtitle.jpg
图片点击可在新窗口打开查看


--  作者:creastzh
--  发布时间:2024/1/7 21:49:00
--  
确实如您所说,我使用DrawCell事件完成了图片绘制,感谢您的提示.

e.StartDraw
    \'Dim img As Image = GetImage(ProjectPath & e.Row("_Identify") & ".jpg"
    If e.Row.IsNull("第一列") = False Then
        \'MessageBox.Show( e.Row("第一列"))
        Dim img As Image = GetImage( e.Row("第一列"))
        e.Graphics.DrawImage(img, e.x, e.y, e.Width, e.Height)
    End If
    e.EndDraw