Rediming an array causes an exception on End Sub

[Ashish]

Hi, please take a look at the following code. (I've ommitted the Windows
generated code)
--------------------------------
Imports System.Drawing.Drawing2D
Public Class Form1
Inherits System.Windows.Forms.Form
Dim points() As Point = {}
Dim pen As New Pen(Color.FromArgb(255, 0, 0, 255))
Protected Overrides Sub OnPaint(ByVal e As
System.Windows.Forms.PaintEventArgs)
If points.Length > 0 Then
e.Graphics.DrawCurve(pen, points)
End If
End Sub

Protected Overrides Sub OnMouseDown(ByVal e As
System.Windows.Forms.MouseEventArgs)
If e.Button = MouseButtons.Right Then
' clear points
ReDim points(-1)
Me.Refresh()
End If
If e.Button = MouseButtons.Left Then
ReDim Preserve points(points.Length)
Dim p As New Point(e.X, e.Y)
points(points.Length - 1) = p
Me.Refresh()
End If
End Sub
End Class
---------------------
On mousedown, the array 'points' gets lengthened by 1 and the curve is
redrawn. But, on exiting from the sub, it gives an InvalidArgumentException.
But if I dont Redim the array, the code runs fine.

Whats going on???

Thanks in advance.

[Scott]

It's probably because the DrawCurve method takes a Point array that requires
at least 4 points. You are starting with an empty array and only adding one
point with each mouse click. You then try to draw the curve if the array
contains at least one point. You should change the OnPaint code to the
following:

If points.length > 3 Then
e.Graphics.DrawCurve(pen, points)
End If

"Ashish" <as*****@hotmail.com> wrote in message
news:c1*************@ID-75446.news.uni-berlin.de...

Hi, please take a look at the following code. (I've ommitted the Windows
generated code)
--------------------------------
Imports System.Drawing.Drawing2D
Public Class Form1
Inherits System.Windows.Forms.Form
Dim points() As Point = {}
Dim pen As New Pen(Color.FromArgb(255, 0, 0, 255))
Protected Overrides Sub OnPaint(ByVal e As
System.Windows.Forms.PaintEventArgs)
If points.Length > 0 Then
e.Graphics.DrawCurve(pen, points)
End If
End Sub

Protected Overrides Sub OnMouseDown(ByVal e As
System.Windows.Forms.MouseEventArgs)
If e.Button = MouseButtons.Right Then
' clear points
ReDim points(-1)
Me.Refresh()
End If
If e.Button = MouseButtons.Left Then
ReDim Preserve points(points.Length)
Dim p As New Point(e.X, e.Y)
points(points.Length - 1) = p
Me.Refresh()
End If
End Sub
End Class
---------------------
On mousedown, the array 'points' gets lengthened by 1 and the curve is
redrawn. But, on exiting from the sub, it gives an InvalidArgumentException. But if I dont Redim the array, the code runs fine.

Whats going on???

Thanks in advance.

[Ashish]

I dont think thats the problem. I had the Me.Refresh() and DrawCurve()
methods commented. So, it never drew a graph. But still gave the exception.
On commenting the Redim statement, I no longer got any exceptions.

-Ashish

"Scott" <sc*****@yahoo.com> wrote in message
news:eX**************@tk2msftngp13.phx.gbl...

It's probably because the DrawCurve method takes a Point array that requires at least 4 points. You are starting with an empty array and only adding one point with each mouse click. You then try to draw the curve if the array
contains at least one point. You should change the OnPaint code to the
following:

If points.length > 3 Then
e.Graphics.DrawCurve(pen, points)
End If

"Ashish" <as*****@hotmail.com> wrote in message
news:c1*************@ID-75446.news.uni-berlin.de...

Hi, please take a look at the following code. (I've ommitted the Windows
generated code)
--------------------------------
Imports System.Drawing.Drawing2D
Public Class Form1
Inherits System.Windows.Forms.Form
Dim points() As Point = {}
Dim pen As New Pen(Color.FromArgb(255, 0, 0, 255))
Protected Overrides Sub OnPaint(ByVal e As
System.Windows.Forms.PaintEventArgs)
If points.Length > 0 Then
e.Graphics.DrawCurve(pen, points)
End If
End Sub

Protected Overrides Sub OnMouseDown(ByVal e As
System.Windows.Forms.MouseEventArgs)
If e.Button = MouseButtons.Right Then
' clear points
ReDim points(-1)
Me.Refresh()
End If
If e.Button = MouseButtons.Left Then
ReDim Preserve points(points.Length)
Dim p As New Point(e.X, e.Y)
points(points.Length - 1) = p
Me.Refresh()
End If
End Sub
End Class
---------------------
On mousedown, the array 'points' gets lengthened by 1 and the curve is
redrawn. But, on exiting from the sub, it gives an

InvalidArgumentException.

But if I dont Redim the array, the code runs fine.

Whats going on???

Thanks in advance.

[Ashish]

"Scott" <sc*****@yahoo.com> wrote in message
news:eX**************@tk2msftngp13.phx.gbl...

It's probably because the DrawCurve method takes a Point array that requires at least 4 points. You are starting with an empty array and only adding one point with each mouse click. You then try to draw the curve if the array
contains at least one point. You should change the OnPaint code to the
following:
By the way, the DrawCurve method can take less than 4 points and works
perfectly well.

-Ashish

If points.length > 3 Then
e.Graphics.DrawCurve(pen, points)
End If

"Ashish" <as*****@hotmail.com> wrote in message
news:c1*************@ID-75446.news.uni-berlin.de...

Hi, please take a look at the following code. (I've ommitted the Windows
generated code)
--------------------------------
Imports System.Drawing.Drawing2D
Public Class Form1
Inherits System.Windows.Forms.Form
Dim points() As Point = {}
Dim pen As New Pen(Color.FromArgb(255, 0, 0, 255))
Protected Overrides Sub OnPaint(ByVal e As
System.Windows.Forms.PaintEventArgs)
If points.Length > 0 Then
e.Graphics.DrawCurve(pen, points)
End If
End Sub

Protected Overrides Sub OnMouseDown(ByVal e As
System.Windows.Forms.MouseEventArgs)
If e.Button = MouseButtons.Right Then
' clear points
ReDim points(-1)
Me.Refresh()
End If
If e.Button = MouseButtons.Left Then
ReDim Preserve points(points.Length)
Dim p As New Point(e.X, e.Y)
points(points.Length - 1) = p
Me.Refresh()
End If
End Sub
End Class
---------------------
On mousedown, the array 'points' gets lengthened by 1 and the curve is
redrawn. But, on exiting from the sub, it gives an

InvalidArgumentException.

But if I dont Redim the array, the code runs fine.

Whats going on???

Thanks in advance.

[Derrick]

Hi Ashish,

Indeed it does work with less that four points, but it really needs at least
two (what does a spline with only one point look like?). I have taken your
code and changed the "If points.Length > 0 Then" line to read "If
points.Length > 1 Then" and it works without error.

Please give that a try and let me know if it works for you.

HTH,
Derrick
"Ashish" <as*****@hotmail.com> wrote in message
news:c1*************@ID-75446.news.uni-berlin.de...

"Scott" <sc*****@yahoo.com> wrote in message
news:eX**************@tk2msftngp13.phx.gbl...

It's probably because the DrawCurve method takes a Point array that

requires

at least 4 points. You are starting with an empty array and only adding

one

point with each mouse click. You then try to draw the curve if the array
contains at least one point. You should change the OnPaint code to the
following:

By the way, the DrawCurve method can take less than 4 points and works
perfectly well.

-Ashish

If points.length > 3 Then
e.Graphics.DrawCurve(pen, points)
End If

"Ashish" <as*****@hotmail.com> wrote in message
news:c1*************@ID-75446.news.uni-berlin.de...

Hi, please take a look at the following code. (I've ommitted the Windows generated code)
--------------------------------
Imports System.Drawing.Drawing2D
Public Class Form1
Inherits System.Windows.Forms.Form
Dim points() As Point = {}
Dim pen As New Pen(Color.FromArgb(255, 0, 0, 255))
Protected Overrides Sub OnPaint(ByVal e As
System.Windows.Forms.PaintEventArgs)
If points.Length > 0 Then
e.Graphics.DrawCurve(pen, points)
End If
End Sub

Protected Overrides Sub OnMouseDown(ByVal e As
System.Windows.Forms.MouseEventArgs)
If e.Button = MouseButtons.Right Then
' clear points
ReDim points(-1)
Me.Refresh()
End If
If e.Button = MouseButtons.Left Then
ReDim Preserve points(points.Length)
Dim p As New Point(e.X, e.Y)
points(points.Length - 1) = p
Me.Refresh()
End If
End Sub
End Class
---------------------
On mousedown, the array 'points' gets lengthened by 1 and the curve is
redrawn. But, on exiting from the sub, it gives an

InvalidArgumentException.

But if I dont Redim the array, the code runs fine.

Whats going on???

Thanks in advance.

[Ashish]

Works like a charm! Thanks Derrick
-Ashish
"Derrick" <Derrick[underscore]Repep[at]toxicall[dot]com> wrote in message
news:e2**************@TK2MSFTNGP11.phx.gbl...

Hi Ashish,

Indeed it does work with less that four points, but it really needs at least two (what does a spline with only one point look like?). I have taken your code and changed the "If points.Length > 0 Then" line to read "If
points.Length > 1 Then" and it works without error.

Please give that a try and let me know if it works for you.

HTH,
Derrick
"Ashish" <as*****@hotmail.com> wrote in message
news:c1*************@ID-75446.news.uni-berlin.de...

"Scott" <sc*****@yahoo.com> wrote in message
news:eX**************@tk2msftngp13.phx.gbl...

It's probably because the DrawCurve method takes a Point array that

requires

at least 4 points. You are starting with an empty array and only adding

one

point with each mouse click. You then try to draw the curve if the

array contains at least one point. You should change the OnPaint code to the following:

By the way, the DrawCurve method can take less than 4 points and works
perfectly well.

-Ashish

If points.length > 3 Then
e.Graphics.DrawCurve(pen, points)
End If

"Ashish" <as*****@hotmail.com> wrote in message
news:c1*************@ID-75446.news.uni-berlin.de...
> Hi, please take a look at the following code. (I've ommitted the

Windows > generated code)
> --------------------------------
> Imports System.Drawing.Drawing2D
> Public Class Form1
> Inherits System.Windows.Forms.Form
> Dim points() As Point = {}
> Dim pen As New Pen(Color.FromArgb(255, 0, 0, 255))
> Protected Overrides Sub OnPaint(ByVal e As
> System.Windows.Forms.PaintEventArgs)
> If points.Length > 0 Then
> e.Graphics.DrawCurve(pen, points)
> End If
> End Sub
>
> Protected Overrides Sub OnMouseDown(ByVal e As
> System.Windows.Forms.MouseEventArgs)
> If e.Button = MouseButtons.Right Then
> ' clear points
> ReDim points(-1)
> Me.Refresh()
> End If
> If e.Button = MouseButtons.Left Then
> ReDim Preserve points(points.Length)
> Dim p As New Point(e.X, e.Y)
> points(points.Length - 1) = p
> Me.Refresh()
> End If
> End Sub
> End Class
> ---------------------
> On mousedown, the array 'points' gets lengthened by 1 and the curve is > redrawn. But, on exiting from the sub, it gives an
InvalidArgumentException.
> But if I dont Redim the array, the code runs fine.
>
> Whats going on???
>
> Thanks in advance.
>
>