Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共5 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:自定义函数求助

1楼
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

2楼
狐狸爸爸 发表于:2009/5/15 11:16:00
e.Table不是第一个参数吗:

Args(0).StartDraw()
Args(0).EndDraw()
3楼
ybtxdz 发表于:2009/5/15 11:29:00
以下是引用狐狸爸爸在2009-5-15 11:16:00的发言:
e.Table不是第一个参数吗:

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


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

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


对了!   谢谢指点.

共5 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.