drawcell事件,写代码
If e.Row.Index = e.Table.RowSel AndAlso e.Col.Index = e.Table.ColSel Then e.StartDraw() Dim n As New Pen(Color.Red,1) e.Graphics.DrawRectangle(n,e.x,e.y, e.width-1, e.height-1) e.EndDraw()End If