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

同样的用法，不会就上传实例

drawcell事件

If e.Col.Name = "第二列" Then

If FileSys.FileExists(ProjectPath & "Attachments\" & e.Row("第二列")) Then

e.Graphics.DrawImage(getImage(ProjectPath & "Attachments\" & e.Row("第二列")),e.x +1,e.y+1,e.Width - 2,e.Height - 2)

e.Text = ""

End If

单元格存储的是什么内容？

drawcell事件

If e.Col.Name = "第二列" Then

If FileSys.FileExists(e.Col.DataCol.DefaultFolder & "\" & e.Row("第二列")) Then

e.Graphics.DrawImage(getImage(e.Col.DataCol.DefaultFolder & "\" & e.Row("第二列")),e.x +1,e.y+1,e.Width - 2,e.Height - 2)

e.Text = ""

End If

1、建议同步保存一份缩略图，绘制的时候使用小图。图片绘制本身就比较占用资源

2、建议还是使用附件窗口查看图片。毕竟单元格那么小个地方也看不到多少细节

比如：Dim file As String = tables("表A").current("图片列")

不过除非是添加附件的时候就同步生成缩略图，如果是在drawcell里生成，反而更浪费资源

比如5楼的例子

BeforeAttachFile事件

Select Case e.DataCol.Name

Case "第二列" '如果在图片列插入文件

Dim img As image = getImage(ProjectPath & "Attachments\" & e.FileName)

If img.Width > 100 OrElse img.height > 100 Then

Dim name As String = e.FileName

Dim n2 As String = name.Split(".")(0)

Dim file As String = ProjectPath & "Attachments\" & n2 & "_缩略图." & name.Split(".")(1)

msgbox(file)

Dim bmp As new bitmap(img, 100, 100 * (img.height / img.width))

bmp.save(file)

bmp.Dispose

End If

End Select

drawcell事件

If e.Col.Name = "第二列" Then

If FileSys.FileExists(ProjectPath & "Attachments\" & e.Row("第二列")) Then

Dim ar() As String = e.Row("第二列").split(".")

Dim p As String = ProjectPath & "Attachments\" & ar(0) & "_缩略图." & ar(1)

Dim img As Image

If FileSys.FileExists(p) Then

img = getImage(p)

Else

img = getImage(ProjectPath & "Attachments\" & e.Row("第二列"))

End If

e.Graphics.DrawImage(img,e.x +1,e.y+1,e.Width - 2,e.Height - 2)

e.Text = ""

End If

已经添加的图片，自己使用代码遍历所有行生成一次缩略图

主题：单元格内填充图片