How a loop from VB6 to replace on loop in VB .NET?

[Dr. Zharkov]

Hello. I converted the project from VB6 in VB .NET 2003, however in the
following loop there are errors of a upgrade
(in Help of VB .NET 2003 is not written, how to correct these errors):

For x = Xmin To Xmax
CurrentX = Points(x, Ymin).Trans(1)
CurrentY = Points(x, Ymin).Trans(2)
For y = Ymin + 1 To Ymax
Me.Line(Points(x, y).Trans(1), Points(x, y).Trans(2))
Next y
Next x

The big request: inform, please, how competently to write this loop in VB
..NET?

Beforehand many thanks for the answer, Dr. V.A. Zharkov. Moscow, Russia.

[Ken Tucker [MVP]]

Hi,

Try something like this.

Dim g As Graphics = Me.CreateGraphics

For x = Xmin To Xmax

CurrentX = Points(x, Ymin).Trans(1)
CurrentY = Points(x, Ymin).Trans(2)
For y = Ymin + 1 To Ymax g.DrawLine(Pens.Black, Points(x,y-1).Trans(1),
Points(x,y-1).Trans(2), _

Points(x,y).Trans(1),
Points(x,y).Trans(2))
Next y
Next x

Ken

-----------------------------

"Dr. Zharkov" <va************@mtu-net.ru> wrote in message
news:%2****************@TK2MSFTNGP11.phx.gbl... Hello. I converted the project from VB6 in VB .NET 2003, however in the
following loop there are errors of a upgrade
(in Help of VB .NET 2003 is not written, how to correct these errors):

For x = Xmin To Xmax
CurrentX = Points(x, Ymin).Trans(1)
CurrentY = Points(x, Ymin).Trans(2)
For y = Ymin + 1 To Ymax
Me.Line(Points(x, y).Trans(1), Points(x, y).Trans(2))
Next y
Next x

The big request: inform, please, how competently to write this loop in VB
.NET?

Beforehand many thanks for the answer, Dr. V.A. Zharkov. Moscow, Russia.

[One Handed Man]

Dr Zharkov,
I am not particulary familiar with VB6. However, things
are done a little differently with graphics from what I have seen so far.
You need to return a graphics object from the form to begin working with
drawing.

Dim g as Graphics = g = Me.CreateGraphics

Then you can us the methods in g to draw lines etc. Please look this up in
your help. If you dont have help installed then install it. If you do not
have the option to install help, I suggest that you but a non pirate version
of the software and install it.

Regards - OHM

---------------------------

Dr. Zharkov wrote:

Hello. I converted the project from VB6 in VB .NET 2003, however in
the following loop there are errors of a upgrade
(in Help of VB .NET 2003 is not written, how to correct these errors):

For x = Xmin To Xmax
CurrentX = Points(x, Ymin).Trans(1)
CurrentY = Points(x, Ymin).Trans(2)
For y = Ymin + 1 To Ymax
Me.Line(Points(x, y).Trans(1), Points(x, y).Trans(2))
Next y
Next x

The big request: inform, please, how competently to write this loop
in VB .NET?

Beforehand many thanks for the answer, Dr. V.A. Zharkov. Moscow,
Russia.

Best Regards - OHMBest Regards - OHM On**********@BTInternet.Com

[One Handed Man]

Dim g as Graphics = Me.CreateGraphics

Sorry, Cut and Paste Type .

Regards - OHM

One Handed Man wrote:

Dr Zharkov,
I am not particulary familiar with VB6. However,
things are done a little differently with graphics from what I have
seen so far. You need to return a graphics object from the form to
begin working with drawing.

Dim g as Graphics = g = Me.CreateGraphics

Then you can us the methods in g to draw lines etc. Please look this
up in your help. If you dont have help installed then install it. If
you do not have the option to install help, I suggest that you but a
non pirate version of the software and install it.

Regards - OHM

---------------------------

Dr. Zharkov wrote:

Hello. I converted the project from VB6 in VB .NET 2003, however in
the following loop there are errors of a upgrade
(in Help of VB .NET 2003 is not written, how to correct these
errors):

For x = Xmin To Xmax
CurrentX = Points(x, Ymin).Trans(1)
CurrentY = Points(x, Ymin).Trans(2)
For y = Ymin + 1 To Ymax
Me.Line(Points(x, y).Trans(1), Points(x, y).Trans(2))
Next y
Next x

The big request: inform, please, how competently to write this loop
in VB .NET?

Beforehand many thanks for the answer, Dr. V.A. Zharkov. Moscow,
Russia.

Best Regards - OHMBest Regards - OHM On**********@BTInternet.Com

Best Regards - OHMBest Regards - OHM On**********@BTInternet.Com