主题：[求助]如何用GDI划这样的虚线呢

你需要这个？

If e.Col.Name = "ico" AndAlso e.Row("ico")="" Then
    Dim pen As new Pen(Color.Red, 2)
    pen.DashStyle = System.Drawing.Drawing2D.DashStyle.dot
    Dim g As Graphics = E.Graphics
    Dim XX As Integer
    g.DrawLine(pen,e.X+10, E.Y, E.X+10, e.y + E.Height) ' E.Y + 60   这里应该判断行距,然后算出值...这里不知道如何处理
    '.Repaint()
End If