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


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

主题：窗口表单元格内显示图片
帅哥哟，离线，有人找我吗？
yetle
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		窗口表单元格内显示图片  发帖心情 Post By：2021/4/14 16:06:00 [显示全部帖子]

窗口表
图片地址列（nvarchar(255)）值例如：\\10.0.0.11\DRP2images\http10.0.0.180group1M010009CgAAAVtQTWSAZRxiAAAP10ZCIAM413.jpg
窗口表中，能否根据图片地址列在窗口表格单元格内显示图片
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2021/4/14 16:48:00 [显示全部帖子]

看列子是这么写的，但是不是窗口表，窗口表是slq查询表，没有DrawCell，怎么写？

DrawCell

If e.Col.Name = "第二列" Then
    If e.Row.IsNull("第一列") = False Then
        If FileSys.FileExists(ProjectPath & e.Row("_Identify") & ".jpg") = False Then
            Network.DownloadFile(e.Row("第一列"), ProjectPath  & e.Row("_Identify") & ".jpg", "", "", False, 6000, True)
        End If
        e.StartDraw
        Dim img As Image = GetImage(ProjectPath  & e.Row("_Identify") & ".jpg")
        e.Graphics.DrawImage(img, e.x, e.y)
        e.EndDraw
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2021/4/14 17:28:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20210414172744.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2021/4/14 17:40:00 [显示全部帖子]

哦，应该放到DrawCell
但是放了之后，图片怎么没显示呢
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2021/4/14 17:51:00 [显示全部帖子]

PictureBox都有显示图片
Dim pbx1 As WinForm.PictureBox = Forms("商品销售").Controls("PictureBox1")
pbx1.ImageFile = Tables("商品销售_Table1").Rows(0)("图片地址")

Dim pbx2 As WinForm.PictureBox = Forms("商品销售").Controls("PictureBox2")
pbx2.ImageFile = Tables("商品销售_Table1").Rows(1)("图片地址")

图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20210414174932.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2021/4/15 11:06:00 [显示全部帖子]

Select Case e.Table.Name
    Case "商品销售"
If e.Col.Name = "图片" Then
    If e.Row.IsNull("图片地址") = False Then
        If FileSys.FileExists(ProjectPath & e.Row("_Identify") & ".jpg") = False Then
            Network.DownloadFile(e.Row("图片地址"), ProjectPath  & e.Row("_Identify") & ".jpg", "", "", False, 6000, True)
        End If
        e.StartDraw
        Dim img As Image = GetImage(ProjectPath  & e.Row("_Identify") & ".jpg")
        e.Graphics.DrawImage(img, e.x, e.y,e.Width,e.Height)
        e.EndDraw
    End If
End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2021/4/15 11:36:00 [显示全部帖子]

“商品销售”是sql查询表，你教我在全局表属性drawcell设置事件，没有设置表属性事件的地方
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2021/4/15 13:20:00 [显示全部帖子]

在AfterLoad设置了
Tables("商品销售_table1").DataTable.GlobalHandler.drawcell= True
图片还是没有显示呢

Tables("商品销售_table1")绑定了sql查询表（商品销售）的
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2021/4/15 14:14:00 [显示全部帖子]

图片点击可在新窗口打开查看
是在绑定后设置的
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2021/4/15 14:38:00 [显示全部帖子]

sql查询表没有事件吧？

 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.09863 秒, 5 次数据查询