以文本方式查看主题

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

--  作者:yetle
--  发布时间:2021/4/14 16:06:00
--  窗口表单元格内显示图片
窗口表
图片地址列(nvarchar(255))值例如:\\\\10.0.0.11\\DRP2images\\http10.0.0.180group1M010009CgAAAVtQTWSAZRxiAAAP10ZCIAM413.jpg
窗口表中,能否根据图片地址列在窗口表格单元格内显示图片

--  作者:有点蓝
--  发布时间:2021/4/14 16:16:00
--  
参考:http://www.foxtable.com/webhelp/topics/1493.htm 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=150739&skin=0

--  作者:yetle
--  发布时间: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

--  作者:有点蓝
--  发布时间:2021/4/14 16:51:00
--  
把窗口表改为sqlquery类型,就有窗口表事件了

如果还不行就到全局表事件处理:http://www.foxtable.com/webhelp/topics/0671.htm

--  作者:yetle
--  发布时间:2021/4/14 17:28:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20210414172744.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2021/4/14 17:29:00
--  
代码不是随便找个事件就能用的
--  作者:yetle
--  发布时间:2021/4/14 17:40:00
--  
哦,应该放到DrawCell
但是放了之后,图片怎么没显示呢

--  作者:有点蓝
--  发布时间:2021/4/14 17:45:00
--  
没有图片,或路径不正确
--  作者:yetle
--  发布时间: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
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2021/4/15 8:58:00
--  
drawcell代码看看