在painter的mousedown写了如下代码想用鼠标点击在里面画直线:
Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
If Vars("n") = 1 Then
If e.Button = MouseButtons.Left Then
points.add(New Point(e.x,e.y))
Vars("n")=Vars("n")+ 1
End If
ElseIf Vars("n") = 2 Then
If e.Button = MouseButtons.Left Then
points.add(New Point(e.x,e.y))
Vars("n")= 1
End If
End If
If Vars("n") > 1 Then
Dim point() As point = points.ToArray()
g.DrawLine(Pens.Red,point(0).x,point(0).y ,point(1).x ,point(1).y)
p.repaint()
points.clear()
Vars("n") = 1
End If
第一条直线画完后再点击就出现错误提示:索引超出范围
请教问题出在哪里?我感觉是不是数组没有清空造成的?