- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 图片解析问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87610)
-- 发布时间：2016/7/14 17:46:00
-- 图片解析问题
此主题相关图片如下：qq图片20160714174222.png
如图：两列
图片存放 中存放的 是 图片的文件名称，放在项目的资源文件夹中
如何 将这些对应的图片 解析显示在 图片解析列中
-- 发布时间：2016/7/14 17:48:00
--
去编写drawcell事件
http://www.foxtable.com/webhelp/scr/2387.htm
-- 发布时间：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编辑过]
-- 发布时间：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
-- 发布时间：2016/7/14 22:15:00
--
此主题相关图片如下：qq图片20160714221246.png
没有实现 需要的效果 ，还只绘制了一个图片
Dim sum As Double = 0 不能用 Double 只能用 Integer
-- 发布时间：2016/7/14 22:24:00
--
谢谢 获得理想的结果了
需要对字符 进行预处理一下，去掉换行符号