以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助] drawcell的图片居中显示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138309) |
-- 作者:hotday1972 -- 发布时间:2019/7/28 10:01:00 -- [求助] drawcell的图片居中显示 怎么让drawcell画出的图片上下方向上居中显示,如图 If e.Row.IsNull("证据") Then e.Graphics.DrawImage(_AttachImg, e.x + 3, e.y + 3) 谢谢老师 [此贴子已经被作者于2019/7/28 10:02:28编辑过]
|
-- 作者:hotday1972 -- 发布时间:2019/7/28 13:08:00 -- 有老师在吗 |
-- 作者:y2287958 -- 发布时间:2019/7/28 15:05:00 -- 在单元格中直接绘图 在介绍表事件DrawCell的时候,我们了解了通过更改文本和样式,让单元格的显示变得丰富多彩。 DrawCell事件的完整e参数属性: Table: 准备绘制的表 |
-- 作者:hotday1972 -- 发布时间:2019/7/28 21:56:00 -- 不懂啊,有没有具体点的办法? |
-- 作者:有点蓝 -- 发布时间:2019/7/28 23:01:00 -- If e.Row.IsNull("证据") Then dim x as integer = (e.Width - _AttachImg.width) / 2 dim y as integer = (e.Height - _AttachImg.Height) / 2 e.Graphics.DrawImage(_AttachImg, x,y) end if
|
-- 作者:hotday1972 -- 发布时间:2019/7/29 15:00:00 -- 蓝老师, 不在我要的那一列的单元格里了,跑到整个表格的左上角去了!
|
-- 作者:有点蓝 -- 发布时间:2019/7/29 15:09:00 -- e.Graphics.DrawImage(_AttachImg, e.x + x,e.y + y) |
-- 作者:hotday1972 -- 发布时间:2019/7/29 15:12:00 -- 改成以下,测试完美! Dim ht As Integer = e.Height / 2 + _AttachImg.Height
If e.Row.IsNull("证据") Then e.Graphics.DrawImage(_AttachImg, e.x + 3, ht) |
-- 作者:hotday1972 -- 发布时间:2019/7/29 15:18:00 -- 最终改为: Dim ht As Integer = e.Height / 2 + _AttachImg.Height / 2
If e.Row.IsNull("证据") Then e.Graphics.DrawImage(_AttachImg, e.x + 3, ht) |
-- 作者:hotday1972 -- 发布时间:2019/7/29 15:26:00 -- Dim ht As Integer = e.Height / 2 - _AttachImg.Height / 2 If e.Row.IsNull("证据") Then e.Graphics.DrawImage(_AttachImg, e.x + 3, e.y + ht) 解决了,测试多行,OK!谢谢蓝老师!又学到一点新知识,开心!
|