图片解析问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

主题：图片解析问题