- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何用gdi实现划线效果 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106561)
-- 发布时间：2017/9/11 17:02:00
-- 如何用gdi实现划线效果
此主题相关图片如下：tim图片20170911165645.png
老师使用删除线 中间断开视觉效果不是很好，如何在drawcell里用GDI实现划线效果 ？
-- 发布时间：2017/9/11 17:08:00
--
If e.Col.name <> "第二列" Then
e.Graphics.DrawLine(Pens.Red,e.x,e.y+cint(e.height/2),e.x+e.width,e.y+cint(e.height/2))
End If
-- 发布时间：2017/9/11 17:18:00
--
If e.Row("变更")=True Then
e.Graphics.DrawLine(Pens.Red,e.x,e.y+cint(e.height/2),e.x+e.width,e.y+cint(e.height/2))
End If
老师我修改了下代码，但是效果是这样的
此主题相关图片如下：ewrqwr5.png
-- 发布时间：2017/9/11 17:19:00
--
那你需要什么效果？
-- 发布时间：2017/9/11 17:25:00
--
Dim msg As String = e.text
Dim fnt As new font("宋体", 10, FontStyle.Bold Or FontStyle.Italic)
e.Graphics.DrawString(msg,fnt,Brushes.Red,e.x,e.y+3)
e.text = ""
e.Graphics.DrawLine(Pens.Red,e.x,e.y+cint(e.height/2),e.x+e.width,e.y+cint(e.height/2))
-- 发布时间：2017/9/11 17:34:00
--
谢谢