主题：如何实现单元格内直接显示图片缩略图，鼠标放上去弹出大图

drawcell事件

If e.Col.name= "第一列" Then
    e.StartDraw
    If e.Row("第一列")  > "" Then
        e.Graphics.DrawImage(getimage(projectPath & "attachments\" & e.row("第一列")), e.x + 3,e.y + 3) '绘制第一个图标
    End If
    e.EndDraw
End If

动态显示图片，参考

下载信息  [文件大小：316.0 KB  下载次数：3]

点击浏览该文件:表格提示窗口_小例.table