Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
想自定义一函数应用在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
出错呀! 提示: 未找到类型"Table"的公共成员"StartDraw"
对了! 谢谢指点.