[AccessD] Circle method

Good question. I should've described them in my first message. I have tifs
if anyone wants to view them -- I don't think the lit takes attachments.

  Me.DrawWidth = 50
  Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), 2000, vbRed, 0, 3.142
  Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), 1700, vbYellow, 0,
3.142
  Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), 1400, vbBlue, 0, 3.142

The above returns a rainbow in the middle of the page, with blue, yellow,
and red lines -- blue in the middle, red on the outside.

Me.DrawWidth = 50
    Me.Circle (0, 0), 2000, vbRed, , 3.142
  Me.Circle (0, 0), 1700, vbYellow, , 3.142
  Me.Circle (0, 0), 1400, vbBlue, , 3.142


displays three small semi circles at the top left corner of the document
(using margins)


  Me.DrawWidth = 50
    Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), 2000, vbRed, , , 1
  Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), 1700, vbYellow, , , 1
  Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), 1400, vbBlue, , , 1

displays three circles, blue, yellow, and red (blue in the middle, red on
outside) in the middle of the document -- not filled -- just outlined, but
the three circles are close together so there's no white space between them,
just the white space in the middle of the middle circle.

Susan H.


----- Original Message -----
From: "Gustav Brock" <gustav at cactus.dk>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Friday, August 29, 2003 6:16 AM
Subject: Re: [AccessD] Circle method


> Hi Susan
>
> So what did you expect these to look like?
>
> /gustav
>
>
> > Below, I've listed a simple example of using the Circle method. There
are
> > three sets of circles in each example, and the first two are commented
> > out -- simply uncomment and comment to see the variety, but that's not
the
> > question. The same arguments are producing different results in
different
> > databases on the same system -- which I find truly odd. An editor
re-created
> > the example on his system and they samples were very different. He then,
> > copied his code from his sample database into mine and they worked as
> > expected -- truly odd since both mdbs were running on the same system.
Any
> > clues? I'm clueless.
>
> > Susan H.
>
> > Private Sub Report_Page()
> >   Me.DrawWidth = 50
> >   'Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), 2000, vbRed, 0,
3.142
> >   'Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), 1700, vbYellow, 0,
> > 3.142
> >   'Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), 1400, vbBlue, 0,
3.142
> >   'Me.Circle (0, 0), 2000, vbRed, , 3.142
> >   'Me.Circle (0, 0), 1700, vbYellow, , 3.142
> >   'Me.Circle (0, 0), 1400, vbBlue, , 3.142
> >   Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), 2000, vbRed, , , 1
> >   Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), 1700, vbYellow, , ,
1
> >   Me.Circle (Me.ScaleWidth / 2, Me.ScaleHeight / 2), 1400, vbBlue, , , 1
> > End Sub


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


> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>