no [General]

From: none on 5 Jun 2010 19:22

"nonoe nonone" wrote:

> no
>
>
>
> jeramie francis wrote:
>
> "jeramie francis" wrote:jeramie francis good i am boy i am that a tobo
> 23-Oct-09
>
> "jeramie francis" wrote:
>
> jeramie francis good i am boy i am that a tobo
>
> Previous Posts In This Thread:
>
> On Friday, October 23, 2009 5:20 PM
> Proposal Doctor wrote:
>
> Graphics to PDF
> I am interested in knowing which graphics format works best in Access 2007
> when the destination is PDF. I have tried gif, jpeg, and tiff. And I have
> tried copying a graphic directly from PowerPoint into an Access Report, which
> works best.
>
> Does anyone have a better solution? My problem is with an oval. It is
> jagged. Text looks great.
>
> Also, what is the difference between using "Image" and using "Logo?"
>
> Thanks.
>
> David
>
> On Friday, October 23, 2009 6:24 PM
> Arvin Meyer [MVP] wrote:
>
> Vector files do not leave jagged edges.
> Vector files do not leave jagged edges. Try using a WMF format
>
>
> An image is any image, a logo is an image that is a symbol for a corporate
> entity.
> --
> Arvin Meyer, MCP, MVP
> http://www.datastrat.com
> http://www.mvps.org/access
> http://www.accessmvp.com
>
> On Friday, October 23, 2009 7:34 PM
> jeramie francis wrote:
>
> "Proposal Doctor" wrote:
>
>
> "Proposal Doctor" wrote:
>
> On Friday, October 23, 2009 7:51 PM
> jeramie francis wrote:
>
> "jeramie francis" wrote:
> "jeramie francis" wrote:
>
> On Friday, October 23, 2009 8:18 PM
> jeramie francis wrote:
>
> "jeramie francis" wrote:jeramie francis good i am boy i am that a tobo
> "jeramie francis" wrote:
>
> jeramie francis good i am boy i am that a tobo
>
> On Friday, October 23, 2009 8:27 PM
> jeramie francis wrote:
>
> jeramie francis i not sin"jeramie francis" wrote:
> jeramie francis
>
> "jeramie francis" wrote:
>
> On Friday, October 23, 2009 9:18 PM
>
>
>
>
>
>
> On Monday, November 23, 2009 3:18 PM
> jeramie francis wrote:
>
>
>
>
> On Monday, November 23, 2009 3:19 PM
> jeramie francis wrote:
>
>
>
>
> On Monday, November 23, 2009 3:20 PM
> jeramie francis wrote:
>
> "jeramie francis" wrote:
> "jeramie francis" wrote:
>
> On Monday, November 23, 2009 3:21 PM
> jeramie francis wrote:
>
> ":
> ":
>
> On Monday, November 23, 2009 3:23 PM
> jeramie francis wrote:
>
>
>
>
> On Monday, November 23, 2009 3:24 PM
> jeramie francis wrote:
>
> "
> "
>
> On Wednesday, December 16, 2009 4:18 PM
> James A. Fortune wrote:
>
> For those creating PDF files directly from Access or from a PDFcreation tool
> For those creating PDF files directly from Access or from a PDF
> creation tool (i.e., without using the A2K7 PDF Add-In), perhaps the
> following solution for a vector ellipse will work until I come up with
> something better.
>
> Objective: Draw an ellipse centered at (X, Y) pts with eccentricity e
> used to stretch a circle along the X-Axis using the existing brush
> color, or (R,G,B) values if they are specified.
>
> Although stretching out a circle is simpler than creating an ellipse
> from scratch, it has a disadvantage that the width of the line also
> stretches, making the boundary tenuous near the minor axis. That
> might look O.K. for smaller ellipses or ones having only a slight
> eccentricity (1 = perfectly round). I checked that the center of the
> circle did not change when stretching by marking the center of the
> original circle after the ellipse was created and the graphics
> environment restored, but I did not actually measure it on the printed
> page, so it is possible that the origin moves when the circle is
> stretched.
>
> 'Begin module code
> Public Function DrawFlatEllipse(ByVal dblEccentricity As Double, ByVal
> dblX As Double, ByVal dblY As Double, ByVal dblR As Double, ByVal
> dblLineWidth As Double, Optional dblRed As Double = -1, Optional
> dblGreen As Double, Optional dblBlue As Double) As String
> Dim P1x As Double
> Dim P1y As Double
> Dim P1ux As Double
> Dim P1uy As Double
> Dim P1dx As Double
> Dim P1dy As Double
> Dim P2x As Double
> Dim P2y As Double
> Dim P2rx As Double
> Dim P2ry As Double
> Dim P2lx As Double
> Dim P2ly As Double
> Dim P3x As Double
> Dim P3y As Double
> Dim P3ux As Double
> Dim P3uy As Double
> Dim P3dx As Double
> Dim P3dy As Double
> Dim P4x As Double
> Dim P4y As Double
> Dim P4rx As Double
> Dim P4ry As Double
> Dim P4lx As Double
> Dim P4ly As Double
> Dim strTemp As String
> Dim strCR As String
>
> strCR = Chr(13)
> P1x = dblX + dblR
> P1y = dblY
> P1ux = P1x
> P1uy = P1y + CRatio * dblR
> P1dx = P1x
> P1dy = P1y - CRatio * dblR
> P2x = dblX
> P2y = dblY + dblR
> P2rx = P2x + CRatio * dblR
> P2ry = P2y
> P2lx = P2x - CRatio * dblR
> P2ly = P2y
> P3x = dblX - dblR
> P3y = dblY
> P3ux = P3x
> P3uy = P3y + CRatio * dblR
> P3dx = P3x
> P3dy = P3y - CRatio * dblR
> P4x = dblX
> P4y = dblY - dblR
> P4rx = P4x + CRatio * dblR
> P4ry = P4y
> P4lx = P4x - CRatio * dblR
> P4ly = P4y
> strTemp = "q" & strCR
> strTemp = strTemp & CStr(dblLineWidth) & " w" & strCR
> If dblRed <> -1 Then
> strTemp = strTemp & CStr(dblRed) & " " & CStr(dblGreen) & " " & CStr
> (dblBlue) & " rg" & strCR
> End If
> 'Set a new graphics origin at P4x, P3y
> strTemp = strTemp & "1 0 0 1 " & CStr(P4x) & " " & CStr(P3y) & " cm" &
> strCR
> 'Change the scale in the x direction, use dblEccentricity
> strTemp = strTemp & CStr(Round(1 / dblEccentricity, 4)) & " 0 0 1 0 0
> cm" & strCR
> 'Move to the right side of the circle
>
> On Friday, December 18, 2009 9:55 PM
> James A. Fortune wrote:
>
> wrote:Here is a sample of a PDF ellipse created from A97 using about 28Bezier
> wrote:
>
>
> Here is a sample of a PDF ellipse created from A97 using about 28
> Bezier curves.
>
> https://files.oakland.edu/users/fortune/web/TrueEllipse.pdf
>
> It should be possible to apply a coordinate transformation in order to
> tilt the ellipse any amount and still have it be fairly smooth.
>
> James A. Fortune
> MPAPoster(a)FortuneJames.com
>
> On Sunday, December 20, 2009 12:45 AM
> James A. Fortune wrote:
>
> wrote:I worked some more on getting the PDF ellipses smoother, plus I
> wrote:
>
>
> I worked some more on getting the PDF ellipses smoother, plus I am
> including the code I used to create the layout as input to the
> PDFLayoutViewer (modified with a Landscape option):
>
> https://files.oakland.edu/users/fortune/web/TrueEllipse2.pdf
>
> Note that I specify the lengths of the major and minor axes instead of
> using the eccentricity. It would not be difficult to free the delta
> angle from its current limitations.
>
> 'Code behind form
> Dim strOut As String
> Dim strFileOut As String
> Dim strCR As String
>
> strCR = Chr(13)
>
> strFileOut = "C:\TrueEllipseLayout.txt"
> 'Mark the center of the ellipse with a crosshair
> strOut = "0.3 w" & strCR
> strOut = strOut & "195 500 m" & strCR
> strOut = strOut & "205 500 l" & strCR
> strOut = strOut & "200 495 m" & strCR
> strOut = strOut & "200 505 l" & strCR
> strOut = strOut & "S" & strCR
> strOut = strOut & DrawTrueEllipse(200, 500, 30, 80, 50, 0, 0, 0.42353)
> Open strFileOut For Output As #1
> Print #1, strOut
> Close
> MsgBox ("Done.")
> 'End Code behind form
>
> 'Begin Module Code
>
> Public Type Curve
> DX As Double
> DY As Double
> L1 As Double
> Alpha As Double
> L4 As Double
> Beta As Double
> End Type
>
> Public Type PiecewiseCurve
> Curves(300) As Curve
> End Type
>
> Public Function DrawTrueEllipse(dblX As Double, dblY As Double, N As
> Integer, dblA As Double, dblB As Double, Optional dblR As Double = -1,
> Optional dblG As Double, Optional dblBlue As Double) As String
> Dim strTemp As String
> Dim strCR As String
> Dim thePiecewiseCurve As PiecewiseCurve
> Dim I As Integer
> Dim DeltaTheta As Integer
> Dim Theta As Integer
> Dim dblCurX As Double
> Dim dblCurY As Double
> Dim X1 As Double
> Dim X2 As Double
> Dim Y1 As Double
> Dim Y2 As Double
> Dim NSeg As Integer
> Dim boolSuccess As Boolean
> Dim dblRefAngle As Double
> Const DegToRad = 0.0174532925
>
> 'dblA = Half the major axis in pts.
> 'dblB = Half the minor axis in pts.
>
> 'For now use N's that go into 360 evenly
> DeltaTheta = 360 / N
> NSeg = 0
> dblCurX = 0
> dblCurY = 0
> X1 = 0
> Y1 = 0
> X2 = 0
> Y2 = 0
> For Theta = 0 To (360 - DeltaTheta) Step DeltaTheta
> NSeg = NSeg + 1
> X1 = X2
>
> On Sunday, December 20, 2009 2:54 AM
> James A. Fortune wrote:
>
> wrote:It would probably be nice to show code for the following
> wrote:
>
>
>
> It would probably be nice to show code for the following also:
>
> GetXY()
> GetReferenceAngle()
> GetBezierAngle()
>
> Public Function GetXY(dblA As Double, dblB As Double, dblTheta As
> Double, ByRef dblX As Double, ByRef dblY As Double) As Boolean
> Dim dblDenom As Double
> Dim dblAbsX As Double
> Dim dblAbsY As Double
> Const DegToRad = 0.0174532925
>
> GetXY = True
> If dblTheta = -90 Or dblTheta = 90 Then
> dblX = 0
> dblY = Sgn(dblTheta) * dblB
> Exit Function
> End If
> If dblTheta = 0 Then
> dblX = dblA
> dblY = 0
> Exit Function
> End If
> If dblTheta = 180 Then
> dblX = -dblA
> dblY = 0
> Exit Function
> End If
> dblDenom = dblB * dblB + dblA * dblA * Tan(dblTheta * DegToRad) * Tan
> (dblTheta * DegToRad)
> 'calculate the absolute value of x and y
> dblAbsX = (dblA * dblB) / Sqr(dblDenom)
> dblAbsY = dblAbsX * Abs(Tan(dblTheta * DegToRad))
> Select Case dblTheta
> Case Is < 90#:
> dblX = dblAbsX
> dblY = dblAbsY
> Case Is < 180#:
> dblX = -dblAbsX
> dblY = dblAbsY
> Case Is < 270#:
> dblX = -dblAbsX
> dblY = -dblAbsY
> Case Else
> dblX = dblAbsX
> dblY = -dblAbsY
> End Select
> End Function
>
> Public Function GetReferenceAngle(dblTheta As Double, dblX As Double,
> dblY As Double, dblA As Double, dblB As Double) As Double
> Dim dblReferenceAngle As Double
> Const DegToRad = 0.0174532925
>
> GetReferenceAngle = 0
> If dblTheta = 0 Or dblTheta = 360 Then
> GetReferenceAngle = 90
> Exit Function
> End If
> If dblTheta = 180 Then
> GetReferenceAngle = -90
> Exit Function
> End If
> GetReferenceAngle = Atn(dydx(dblA, dblB, dblX, dblY)) / DegToRad
> End Function
>
> Public Function dydx(dblA As Double, dblB As Double, dblCurX As
> Double, dblCurY As Double) As Double
> dydx = -dblB * dblB * dblCurX / (dblA * dblA * dblCurY)
> End Function
>
> Public Function GetBezierAngle(dblTheta As Double, dblReferenceAngle
> As Double, strAlphaBeta As String) As Double
> GetBezierAngle = 0
> If dblTheta > 360 Then dblTheta = dblTheta - 360
> If strAlphaBeta = "Alpha" Then
> Select Case dblTheta
> Case Is < 180:
> GetBezierAngle = dblReferenceAngle + 180#
> Case Else
> GetBezierAngle = dblReferenceAngle
> End Select
> Else
> Select Case dblTheta
> Case Is < 180:
> GetBezierAngle = dblReferenceAngle + 180#
>
> On Tuesday, February 09, 2010 2:42 PM
> arlene ramirez wrote:
>
> jeramie bellmay
>
>
> On Tuesday, February 09, 2010 2:43
>
> jeramie bellmay
>
>
> On Tuesday, February 09, 2010 2:45 PM
>
>
> jeramie bellmay?
> " wrote:
>
> On Tuesday, February 09, 2010 2:47 PM
> arlene ramirez wrote:
>
> jeramie bellmay?
> "jeramie bellmay" wrote:
>
> On Tuesday, February 09, 2010 2:48 PM
>
>
> jeramie bellmay
> ":
>
> On Tuesday, February 09, 2010 2:49 PM
>
>
> jeramie bellmay?
>
>
> On Tuesday, February 09, 2010 2:50 PM
>
>
> jeramie bellmay
>
>
> On Tuesday, February 09, 2010 2:52 PM
>
>
> jeramie bellmay
>
>
>
> Submitted via EggHeadCafe - Software Developer Portal of Choice
> Entity Framework 4.0 POCO-First development and POCO Template
> http://www.eggheadcafe.com/tutorials/aspnet/488279c4-214b-47ef-b152-955f3795ee13/entity-framework-40-poco.aspx
> .
>

|
Pages: 1
Prev: ehvhvnkdnbvkjd
Next: no