ASP不需要组件生成图片验证码的方法

  ' Compensation for radii spanning over 0 degree marker
  if sinEnd > DegreesToRadians(360) and dAngle < (sinEnd - DegreesToRadians(360)) then
   dAngle = dAngle + DegreesToRadians(360)
  end if
  
     If sinStart < sinEnd And (dAngle > sinStart And dAngle < sinEnd) Then
         'This is the "corrected" angle
         'To change back, change the minus to a plus
         Pixel(lX + ltX, lY + ltY) = ForegroundColourIndex
     End If
 End Sub
 
 ' Arc Kindly donated by Richard Deeming (www.webjx.com), vast improvement on the
 ' previously kludgy Arc function.
 Public Sub Arc(ByVal lX, ByVal lY, ByVal lRadiusX, ByVal lRadiusY, ByVal sinStartAngle, ByVal sinArcAngle)
  ' Draw an arc at point lX,lY with radius lRadius
  ' running from sinStartAngle degrees for sinArcAngle degrees
  Dim lAlpha, lBeta, S, T, lTempX, lTempY
  Dim dStart, dEnd
    
     dStart = DegreesToRadians(sinStartAngle)
     dEnd = dStart + DegreesToRadians(sinArcAngle)
    
     lAlpha = lRadiusX * lRadiusX
     lBeta = lRadiusY * lRadiusY
     lTempX = 0
     lTempY = lRadiusY
     S = lAlpha * (1 - 2 * lRadiusY) + 2 * lBeta
     T = lBeta - 2 * lAlpha * (2 * lRadiusY - 1)

上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] [31] [32] [33] 下一页

复制本页网址和标题，发送给你QQ/Msn的好友一起分享

上一篇:取汉字拼音首字母的存储过程

下一篇:ASP防止网页频繁刷新的方法介绍