Foxtable(狐表)用户栏目专家坐堂 → 自定义函数求助


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

主题:自定义函数求助

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


加好友 发短信
等级:幼狐 帖子:130 积分:874 威望:0 精华:0 注册:2008/8/31 21:32:00
自定义函数求助  发帖心情 Post By:2009/5/15 11:00:00 [只看该作者]

想自定义一函数应用在DrawCell事件中:

Functions.Execute("函数1",e.Table,e.Row,e.Col,e.Style,e.Text,e.X,e.Y,e.Width,e.Height,e.Graphics)


Dim g As Graphics = Args(9)
if Args(2).Name = "第一列" Then
    Dim Msg as String = Args(1)("第一列")
    Dim fnt As New Font("宋体",9)
    e.StartDraw()  '这行该怎么写?
    g.FillRectangle(Brushes.White,Args(5) ,Args(6) , Args(7), Args(8))
    g.DrawString(msg,fnt,Brushes.Blue,Args(5) + 2, Args(6) + 2)
    e.EndDraw()   '这行该怎么写?
end if


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


加好友 发短信
等级:管理员 帖子:47449 积分:251065 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/5/15 11:16:00 [只看该作者]

e.Table不是第一个参数吗:

Args(0).StartDraw()
Args(0).EndDraw()

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


加好友 发短信
等级:幼狐 帖子:130 积分:874 威望:0 精华:0 注册:2008/8/31 21:32:00
  发帖心情 Post By:2009/5/15 11:29:00 [只看该作者]

以下是引用狐狸爸爸在2009-5-15 11:16:00的发言:
e.Table不是第一个参数吗:

Args(0).StartDraw()
Args(0).EndDraw()


出错呀!  提示: 未找到类型"Table"的公共成员"StartDraw"


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


加好友 发短信
等级:管理员 帖子:47449 积分:251065 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/5/15 11:33:00 [只看该作者]

那就直接将e作为一个参数传递过去。

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


加好友 发短信
等级:幼狐 帖子:130 积分:874 威望:0 精华:0 注册:2008/8/31 21:32:00
  发帖心情 Post By:2009/5/15 11:37:00 [只看该作者]

以下是引用狐狸爸爸在2009-5-15 11:33:00的发言:
那就直接将e作为一个参数传递过去。


对了!   谢谢指点.


 回到顶部