GDI - DrawLine problem....

[Stu]

Hi,

Why does the code below only draw the last line of the loop? I was expecting
this to draw 10 parallel lines. More to the piont....how do I get it to draw
10 parallel lines?

Public Function GetImage() As Bitmap
Dim oBitmap As Bitmap = New Bitmap(200, 200)
Dim oGraphic As Graphics = Graphics.FromImage(oBitmap)
Dim oPen As New Pen(Color.Black, 4)
Dim i As Integer
For i = 0 To 10
oGraphic.DrawLine(oPen, i, 0, i, 150)
Next
Return oBitmap
End Function

Thanks in advance,

Stu

[Saber]

It doesn't draws only last line of the loop, since in your loop there is no
distance between lines it seems like a thick line.
use something like this loop to draw 10 parallel lines:
For i = 1 To 10
oGraphic.DrawLine(oPen, i * 15, 0, i * 15, 150)
Next

HTH
--
Saber S.

"Stu" <s.****@cergis.com> wrote in message
news:eQ****************@TK2MSFTNGP14.phx.gbl...

Hi,

Why does the code below only draw the last line of the loop? I was
expecting this to draw 10 parallel lines. More to the piont....how do I
get it to draw 10 parallel lines?

Public Function GetImage() As Bitmap
Dim oBitmap As Bitmap = New Bitmap(200, 200)
Dim oGraphic As Graphics = Graphics.FromImage(oBitmap)
Dim oPen As New Pen(Color.Black, 4)
Dim i As Integer
For i = 0 To 10
oGraphic.DrawLine(oPen, i, 0, i, 150)
Next
Return oBitmap
End Function

Thanks in advance,

Stu

[Stu]

Thanks - I am duly embarrasssed and shall not try new stuff drunk again!

"Saber" <saber[.AT.]oxin.ir> wrote in message
news:uq**************@TK2MSFTNGP09.phx.gbl...

It doesn't draws only last line of the loop, since in your loop there is
no
distance between lines it seems like a thick line.
use something like this loop to draw 10 parallel lines:
For i = 1 To 10
oGraphic.DrawLine(oPen, i * 15, 0, i * 15, 150)
Next

HTH
--
Saber S.

"Stu" <s.****@cergis.com> wrote in message
news:eQ****************@TK2MSFTNGP14.phx.gbl...

Hi,

Why does the code below only draw the last line of the loop? I was
expecting this to draw 10 parallel lines. More to the piont....how do I
get it to draw 10 parallel lines?

Public Function GetImage() As Bitmap
Dim oBitmap As Bitmap = New Bitmap(200, 200)
Dim oGraphic As Graphics = Graphics.FromImage(oBitmap)
Dim oPen As New Pen(Color.Black, 4)
Dim i As Integer
For i = 0 To 10
oGraphic.DrawLine(oPen, i, 0, i, 150)
Next
Return oBitmap
End Function

Thanks in advance,

Stu