如何实现单元格内直接显示图片缩略图，鼠标放上去弹出大图 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何实现单元格内直接显示图片缩略图，鼠标放上去弹出大图

共有9353人关注过本帖树形打印复制链接主题：如何实现单元格内直接显示图片缩略图，鼠标放上去弹出大图

WELOVEFOX

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：463 积分：3343 威望：0 精华：0 注册：2016/12/21 22:58:00

Post By：2018/9/18 18:04:00 [显示全部帖子]

以下是引用有点甜在2018/9/10 14:43:00的发言：

要写代码的 http://www.foxtable.com/webhelp/scr/1445.htm

请教下，如果有多个图片，如何写

如果只有一个图片，则不会出错，如果有多个图片，则提示出错，

我自己写个事例，draw代码

If e.Col.name= "物件图片" Then

e.StartDraw

If e.Row.IsNull("物件图片") = False Then

Dim Multi As String = e.Row("物件图片")

Dim Values() As String

Values = Multi.split(vbLf)

e.Graphics.DrawImage(getimage(projectPath & "attachments\" & Values(0)), e.x + 3,e.y + 3, 50, 50) '绘制第一个图标

End If

e.text = ""

e.EndDraw

End If

提示详细错误信息：

调用的目标发生了异常。值不能为空。

参数名: image

[此贴子已经被作者于2018/9/18 18:03:46编辑过]

WELOVEFOX

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：463 积分：3343 威望：0 精华：0 注册：2016/12/21 22:58:00

Post By：2018/9/19 9:14:00 [显示全部帖子]

是的

WELOVEFOX

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：463 积分：3343 威望：0 精华：0 注册：2016/12/21 22:58:00

Post By：2018/9/19 9:16:00 [显示全部帖子]

以下是引用有点甜在2018/9/18 19:05:00的发言：
如果有多个图片，你要显示哪一个图片？第一个？

是的图片点击可在新窗口打开查看

WELOVEFOX

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：463 积分：3343 威望：0 精华：0 注册：2016/12/21 22:58:00

Post By：2018/9/19 9:57:00 [显示全部帖子]

以下是引用有点甜在2018/9/18 19:05:00的发言：
如果有多个图片，你要显示哪一个图片？第一个？

可以了

Values = Multi.split(vbLf)

换成

Values = Multi.split(vbcrlf)

图片点击可在新窗口打开查看

WELOVEFOX

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：463 积分：3343 威望：0 精华：0 注册：2016/12/21 22:58:00

Post By：2018/9/19 10:09:00 [显示全部帖子]

以下是引用有点甜在2018/9/19 9:58:00的发言：

试试

If e.Col.name= "物件图片" Then
    e.StartDraw
    If e.Row.IsNull("物件图片") = False Then
        Dim ls = e.Row.DataRow.Lines("物件图片")

output.show(ls(0))
        e.Graphics.DrawImage(getimage(projectPath & "attachments\" & ls(0)), e.x + 3,e.y + 3, 50, 50) '绘制第一个图标
    End If
    e.text = ""
    e.EndDraw
End If

也成功。图片点击可在新窗口打开查看

下一主题 >> << 上一主题

主题：如何实现单元格内直接显示图片缩略图，鼠标放上去弹出大图