Foxtable(狐表)用户栏目专家坐堂 → [求助]能否在数据表的照片列中直接显示人员头像?


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

主题:[求助]能否在数据表的照片列中直接显示人员头像?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/28 19:57:00 [显示全部帖子]

 直接在单元格显示?这个就需要编写drawcell事件了。

 

 参考 http://www.foxtable.com/help/topics/2387.htm

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/28 20:26:00 [显示全部帖子]

 3楼这样也可以,不过,这种不会重绘,如果你对表进行了筛选等操作之后,需要重新设置一遍。

 

Dim o As Objec = Tables("表A").grid.GetCellRange(2,3,2,3)
o.Image = getimage("d:\001.ico")


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/28 20:31:00 [显示全部帖子]

以下是引用智友软件工作室在2014-4-28 20:26:00的发言:
二楼帮助例子看过  帮助的例子是同一个图片  不知如何去对应每一个人员的头像绘制
三楼  一是代码没看懂 二是不知放在哪个事件中

 

你一行里面不是有一个图片列么?直接这样写,就可以了的。

 

If e.Col.Name = "图片" Then

    e.Graphics.DrawImage(getImage(e.row("图片")), e.x + 3,e.y + 3) '绘制第一个图标

End If

 

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/28 20:34:00 [显示全部帖子]

3楼的代码,是需要你循环一次,去设置的,可以放在一个按钮里,或者afterOpenProject事件,代码类似

 

For Each r As Row In Tables("xxx").Rows  

    Dim o As Objec = Tables("xxx").grid.GetCellRange(r.Index+1, 3, r.Index+1, 3)
    o.Image = getimage("d:\001.ico")

Next

[此贴子已经被作者于2014-4-28 20:34:06编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/28 21:05:00 [显示全部帖子]

以下是引用智友软件工作室在2014-4-28 20:55:00的发言:
6楼比较好理解,现在可以了。 e.x + 3,e.y + 3  这个参数是什么意思呢?

 

这个参数,是在哪个坐标开始绘制。

 

参考 DrawImage(图片, x, y, 宽度, 高度)


 回到顶部