Static rPoints As System.Drawing.Point()
Static cPoints As System.Drawing.Point()
If e.Row.Index = 0 AndAlso e.Col.Index = 0 Then
Dim RowsCount As Integer = e.Table.Rows.Count
Dim ColsCount As Integer = e.Table.Cols.Count
Dim rps As System.Drawing.Point() = New System.Drawing.Point() {}
Dim cps As System.Drawing.Point() = New System.Drawing.Point() {}
Array.Resize(rps, RowsCount)
Array.Resize(cps, ColsCount)
For i As Integer = 0 To RowsCount - 1
For j As Integer = 0 To ColsCount - 1
Dim rp As System.Drawing.Point = rps(i)
If rp = Nothing Then
rp = New System.Drawing.Point(0, 0)
End If
rp.X = rp.X + val(e.Table.Rows(i)(j))
rps(i) = rp
If i > 0 Then
rps(i-1).Y = rp.X
End If
Dim cp As System.Drawing.Point = cps(j)
If cp = Nothing Then
cp = New System.Drawing.Point(0, 0)
End If
cp.X = cp.X + val(e.Table.Rows(i)(j))
cps(j) = cp
If j > 0 Then
cps(j-1).Y = cp.X
End If
Next
Next
rPoints = rps
cPoints = cps
End If
Dim x As Integer = rPoints(e.Row.Index).X
Dim x1 As Integer = rPoints(e.Row.Index).Y
If x = e.Col.Index Then
Dim points(1) As Point
points(0) = New Point(e.X+e.Width, e.Y)
points(1) = New Point(e.X+e.Width, e.Y+e.Height)
e.Graphics.DrawLines(Pens.Green, points)
End If
If x > x1 AndAlso e.Col.Index > x1 AndAlso e.Col.Index <= x Then
Dim points(1) As Point
points(0) = New Point(e.X, e.Y+e.Height)
points(1) = New Point(e.X+e.Width, e.Y+e.Height)
e.Graphics.DrawLines(Pens.Green, points)
ElseIf x < x1 AndAlso e.Col.Index > x AndAlso e.Col.Index <= x1 Then
Dim points(1) As Point
points(0) = New Point(e.X, e.Y+e.Height)
points(1) = New Point(e.X+e.Width, e.Y+e.Height)
e.Graphics.DrawLines(Pens.Green, points)
End If
Dim y As Integer = cPoints(e.Col.Index).X
Dim y1 As Integer = cPoints(e.Col.Index).Y
If y = e.Row.Index + 1 Then
Dim points(1) As Point
points(0) = New Point(e.X, e.Y+e.Height)
points(1) = New Point(e.X+e.Width, e.Y+e.Height)
e.Graphics.DrawLines(Pens.Red, points)
End If
If y < y1 AndAlso e.Row.Index >= y AndAlso e.Row.Index < y1 Then
Dim points(1) As Point
points(0) = New Point(e.X+e.Width, e.Y)
points(1) = New Point(e.X+e.Width, e.Y+e.Height)
e.Graphics.DrawLines(Pens.Red, points)
End If
If y > y1 AndAlso e.Row.Index < y AndAlso e.Row.Index >= y1 Then
Dim points(1) As Point
points(0) = New Point(e.X+e.Width, e.Y)
points(1) = New Point(e.X+e.Width, e.Y+e.Height)
e.Graphics.DrawLines(Pens.Red, points)
End If
加好友 
发短信
Post By：2018/11/22 13:57:00 [显示全部帖子]
此主题相关图片如下：qq图片20181128020238.png
