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

     Loop While lTempY > 0
 End Sub

 public sub AngleLine(ByVal lX,ByVal lY,ByVal lRadius,ByVal sinAngle)
  ' Draw a line at an angle
  ' Angles start from the top vertical and work clockwise
  ' Work out the destination defined by length and angle
  Dim lX2
  Dim lY2
  
  lY2 = (Sin(DegreesToRadians(sinAngle)) * lRadius)
  lX2 = (Cos(DegreesToRadians(sinAngle)) * lRadius)
  
  Line lX,lY,lX + lX2,lY + lY2
 end sub

 ' Bresenham line algorithm, this is pretty quick, only uses point to point to avoid the
 ' mid-point problem
 public sub Line(ByVal lX1,ByVal lY1,ByVal lX2,ByVal lY2)
  Dim lDX
  Dim lDY
  Dim lXIncrement
  Dim lYIncrement
  Dim lDPr
  Dim lDPru
  Dim lP
  
  lDX = Abs(lX2 - lX1)
  lDY = Abs(lY2 - lY1)
  
  if lX1 > lX2 then
   lXIncrement = -1
  else
   lXIncrement = 1
  end if
  
  if lY1 > lY2 then
   lYIncrement = -1
  else
   lYIncrement = 1
  end if
  
  if lDX >= lDY then
   lDPr = ShiftLeft(lDY,1)
   lDPru = lDPr - ShiftLeft(lDX,1)
   lP = lDPr - lDX
   
   while lDX >= 0
    Pixel(lX1,lY1) = ForegroundColourIndex
    if lP > 0 then
     lX1 = lX1 + lXIncrement
     lY1 = lY1 + lYIncrement
     lP = lP + lDPru

上一页 [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防止网页频繁刷新的方法介绍