Foxtable(狐表)用户栏目专家坐堂 → 单元格显示图片


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

主题:单元格显示图片

帅哥哟,离线,有人找我吗?
creastzh
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:298 积分:2198 威望:0 精华:0 注册:2023/1/11 7:15:00
单元格显示图片  发帖心情 Post By:2024/1/7 20:20:00 [只看该作者]

以前使用VBA在Excel中将图片直接调用显示在文件中, 这样方便查看,一览无余, 图片不大,一般只有100k大小,现在我将相关数据转入了foxtable, 但发现只能使用窗口方式才能显示, 我希望仍能使用类似Excel一样将图片直接显示在Foxtable页面上, 不知道如何操作, 谢谢!

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110773 积分:563797 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/1/7 20:23:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
creastzh
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:298 积分:2198 威望:0 精华:0 注册:2023/1/11 7:15:00
  发帖心情 Post By:2024/1/7 20:33:00 [只看该作者]

是的, 我仔细学习一下,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
creastzh
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:298 积分:2198 威望:0 精华:0 注册:2023/1/11 7:15:00
  发帖心情 Post By:2024/1/7 21:12:00 [只看该作者]

老师,我还是没有琢磨出来,能否请给我发一个案例, 我不是要在单元格画图,而是要在单元格显示指定的图片,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
creastzh
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:298 积分:2198 威望:0 精华:0 注册:2023/1/11 7:15:00
  发帖心情 Post By:2024/1/7 21:14:00 [只看该作者]

图片点击可在新窗口打开查看
就像这个状态,类似Excel图片显示在Foxtable单元格中

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110773 积分:563797 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/1/7 21:36:00 [只看该作者]

要在单元格显示指定的图片Foxtable只能通过绘制的方式实现

 回到顶部
帅哥哟,离线,有人找我吗?
creastzh
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:298 积分:2198 威望:0 精华:0 注册:2023/1/11 7:15:00
  发帖心情 Post By:2024/1/7 21:47:00 [只看该作者]

我刚才根据搜索到的1篇文章终于试验出来了

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


 回到顶部
帅哥哟,离线,有人找我吗?
creastzh
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:298 积分:2198 威望:0 精华:0 注册:2023/1/11 7:15:00
  发帖心情 Post By: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

 回到顶部