Here's the example again because it wasn't origanly posted in this thread
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim myBmp As New Bitmap(450, 450)
Dim g As Graphics
g = Graphics.FromImage(myBmp)
g.Clear(Color.Black)
g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
Dim posX As Integer = 10
Dim myWidth, myHeight As Integer
myWidth = 4
myHeight = 4
For i As Integer = 0 To 21
If i <= 10 Then
drawCircles(g, 0, posX, myWidth, myHeight)
Else
drawCircles(g, 1, posX, myWidth, myHeight)
End If
posX += 20
myWidth += 1
myHeight += 1
If i = 10 Then
myWidth = 4
myHeight = 4
End If
Next
g.Dispose()
PictureBox1.Image = myBmp
myBmp.Save("c:\testEllipse.bmp", Drawing.Imaging.ImageFormat.Bmp)
MsgBox("c:\testEllipse.bmp Saved", MsgBoxStyle.Information, "Saved")
End Sub
Private Sub drawCircles(ByVal g As Graphics, ByVal drawType As Integer,
ByVal x As Integer, ByVal width As Integer, _ ByVal _ height As Integer)
Dim intY As Integer = 5
For i As Integer = 0 To 20
Select Case drawType
Case 0
g.FillEllipse(Brushes.LawnGreen, x, intY, width, height)
Case 1
g.DrawEllipse(Pens.LawnGreen, x, intY, width, height)
End Select
intY += 18
Next
End Sub
Greetz Peter
--
Programming today is a race between software engineers striving to build
bigger and better idiot-proof programs, and the Universe trying to produce
bigger and better idiots. So far, the Universe is winning. (Rich Cook)
"Nathan Sokalski" <nj********@hotmail.com> schreef in bericht
news:#$**************@TK2MSFTNGP14.phx.gbl...
I tried all of the settings for each of these, but none of them made
ellipses with a radius of 6 the same on all sides, the closest ones were
the same as not setting the settings at all. I am assuming that this would be
true for other radii as well, but since DrawEllipse already gave me good
ellipses for all the radii I tried, I didn't bother testing anything other
than 6. In other words, back to the System.Drawing board.
--
Nathan Sokalski
nj********@hotmail.com
http://www.nathansokalski.com/
"Peter Proost" <pp*****@nospam.hotmail.com> wrote in message
news:eS*************@TK2MSFTNGP14.phx.gbl... Hi Nathan
these two thing should help you, you don't need to use them both, it
seems to me that setting the g.SmoothingMode gives better results.
g.PixelOffsetMode = Drawing2D.PixelOffsetMode.Half
g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
Greetz Peter
--
Programming today is a race between software engineers striving to build
bigger and better idiot-proof programs, and the Universe trying to
produce bigger and better idiots. So far, the Universe is winning. (Rich Cook)
"Nathan Sokalski" <nj********@hotmail.com> schreef in bericht
news:uI**************@TK2MSFTNGP14.phx.gbl... I am not currently subscribed to that newsgroup, so I guess I forgot to
post to it. But now that I know about it, I guess it would be one of, if not
the, best group for my question. Thanks.
--
Nathan Sokalski
nj********@hotmail.com
http://www.nathansokalski.com/
"Cor Ligthert [MVP]" <no************@planet.nl> wrote in message
news:%2****************@TK2MSFTNGP12.phx.gbl...
> Nathan,
>
> You make me curious I see a lot of crossposting adresses. Feel free
to do > that.
>
> The in my idea real newsgroup for this question
>
> microsoft.public.dotnet.framework.drawing
>
> is not in it.
>
> What is the reason for that?
>
> Cor
>
