主题：如何用gdi实现划线效果

此主题相关图片如下：tim图片20170911165645.png


老师使用删除线 中间断开视觉效果不是很好，如何在drawcell里用GDI实现划线效果 ？

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

 那你需要什么效果？

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))

谢谢