以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自定义函数求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2793)
--  作者：ybtxdz
--  发布时间：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
--  作者：狐狸爸爸
--  发布时间：2009/5/15 11:16:00
--  
e.Table不是第一个参数吗：

Args(0).StartDraw()
Args(0).EndDraw()
--  作者：ybtxdz
--  发布时间：2009/5/15 11:29:00
--  
以下是引用狐狸爸爸在2009-5-15 11:16:00的发言：
e.Table不是第一个参数吗：

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


出错呀!  提示: 未找到类型"Table"的公共成员"StartDraw"
--  作者：狐狸爸爸
--  发布时间：2009/5/15 11:33:00
--  
那就直接将e作为一个参数传递过去。
--  作者：ybtxdz
--  发布时间：2009/5/15 11:37:00
--  
以下是引用狐狸爸爸在2009-5-15 11:33:00的发言：
那就直接将e作为一个参数传递过去。


对了!   谢谢指点.