Foxtable(狐表)用户栏目专家坐堂 → 图片解析问题


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

主题:图片解析问题

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


加好友 发短信
等级:一尾狐 帖子:457 积分:3523 威望:0 精华:0 注册:2016/1/22 18:17:00
图片解析问题  发帖心情 Post By:2016/7/14 17:46:00 [只看该作者]


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

如图:两列 

图片存放 中存放的 是 图片的文件名称,放在项目的资源文件夹中

如何 将这些对应的图片 解析显示在 图片解析列中


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/7/14 17:48:00 [只看该作者]

 去编写drawcell事件

 

http://www.foxtable.com/webhelp/scr/2387.htm

 


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


加好友 发短信
等级:一尾狐 帖子:457 积分:3523 威望:0 精华:0 注册:2016/1/22 18:17:00
  发帖心情 Post By:2016/7/14 21:24:00 [只看该作者]

谢谢

如果 A列 有图片    图片A.jpg|图片B.jpg  如何在B列:前面绘制 图片A 后面绘制 图片B

以下代码要如何修改才能 同时绘制多图片

If e.Col.name = "图片解析"
    If e.Row.IsNull("图片存放") = False Then
        Dim se As String = e.Row("图片存放")
        'Output.Show(se)
        Dim sws As String() = se.split(vbcr)
        e.StartDraw()        
        For i As Integer = 0 To sws.length -1
            If FileSys.FileExists(ProjectPath & "Images\" & sws(i)) Then
                Dim img As Image = GetImage(sws(i))
                Dim IntW As Integer =Int(img.Width*e.Height/img.Height)
                Dim wid As Integer = e.Width
                e.Graphics.DrawImage(img,e.x + wid * i + 5 ,e.y,intW,e.height)                
            End If
        Next
        e.EndDraw()
    End If    
End If
[此贴子已经被作者于2016/7/14 21:38:33编辑过]

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/7/14 21:45:00 [只看该作者]

If e.Col.name = "图片解析"
    If e.Row.IsNull("图片存放") = False Then
        Dim se As String = e.Row("图片存放")
        Dim sws As String() = se.split(vbcr)
        e.StartDraw()
        Dim sum As Double = 0
        For i As Integer = 0 To sws.length -1
            If FileSys.FileExists(ProjectPath & "Images\" & sws(i)) Then
                Dim img As Image = GetImage(sws(i))
                Dim IntW As Integer =Int(img.Width*e.Height/img.Height)
                e.Graphics.DrawImage(img,e.x + sum + 5 ,e.y,intW,e.height)
                sum += Intw
            End If
        Next
        e.EndDraw()
    End If
End If

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


加好友 发短信
等级:一尾狐 帖子:457 积分:3523 威望:0 精华:0 注册:2016/1/22 18:17:00
  发帖心情 Post By:2016/7/14 22:15:00 [只看该作者]


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

没有实现 需要的效果 ,还只绘制了一个图片
Dim sum As Double = 0  不能用 Double 只能用 Integer

 回到顶部
帅哥哟,离线,有人找我吗?
凡夫俗子
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:457 积分:3523 威望:0 精华:0 注册:2016/1/22 18:17:00
  发帖心情 Post By:2016/7/14 22:24:00 [只看该作者]

谢谢 获得理想的结果了
需要对字符 进行预处理一下,去掉换行符号

 回到顶部