ShotGraph普通的画图的原理Step by step

80酷酷网    80kuku.com

  ShotGraph 能在以下的环境中使用:

  • Visual Basic
  • VBScript
  • Visual Basic for applications (VBA), Word, Excel, etc.
  • Active Server Pages (ASP) engine with Internet Information Server
  • Perl for Windows
  • others

ShotGraphCOOL代码:
  • 上载文件
  • 计数器
  • 画GIF动画图形
  • 画图形

我们来先来简单的:

Step by step

  1. 首先建立一个对象 "shotgraph.image".
  2. 使用 CreateImage 方法。
  3. 使用 SetColor 方法一次或者多次来定义画图要使用的颜色。
  4. 清除你图区中的所有内容,必要时使用 FillRect 普遍认为方法.
  5. 使用有效的方法画图.
  6. 使用 GifImage 函数. 你的图画就完成了!
下面的是一个简单的例子来说怎样用 shotgraph画图。

The size of the image is 201x201.
VBScript 中的代码:
'Creating the objectset obj=CreateObject("shotgraph.image")size=201'Calling the CreateImage methodobj.CreateImage size,size,4'Set 4 colors for drawingobj.SetColor 0,255,255,255obj.SetColor 1,0,0,0obj.SetColor 2,255,108,0obj.SetColor 3,0,0,204'Crearing the painting area with color 0obj.SetBgColor 0obj.FillRect 0,0,size-1,size-1'Color 0 will be used for drawingobj.SetDrawColor 1'Drawing the lineobj.Line size-1,0,0,size-1'Color 2 will be used for fillingobj.SetBgColor 2'Draw the big circleobj.Ellipse 5,5,size-6,size-6'Color 2 will be used for fillingobj.SetBgColor 3'Draw the small circleobj.Ellipse 5,(size-5)/4,size/2,(size-5)*3/4'Create the image file named test.gifobj.GifImage 0,1,"test.gif"
下面是在ASP和PERL中的代码:
ASP
Response.ContentType="image/gif"set obj=Server.CreateObject("shotgraph.image")size=201obj.CreateImage size,size,4obj.SetColor 0,255,255,255obj.SetColor 1,0,0,0obj.SetColor 2,255,108,0obj.SetColor 3,0,0,204obj.SetBgColor 0obj.FillRect 0,0,size-1,size-1obj.SetDrawColor 1obj.Line size-1,0,0,size-1obj.SetBgColor 2obj.Ellipse 5,5,size-6,size-6obj.SetBgColor 3obj.Ellipse 5,(size-5)/4,size/2,(size-5)*3/4img=obj.GifImage(0,1,"")Response.BinaryWrite img
Perl
$obj=CreateObject("shotgraph.image")$size=201$obj->CreateImage($size,$size,4)$obj->SetColor(0,255,255,255)$obj->SetColor(1,0,0,0)$obj->SetColor(2,255,108,0)$obj->SetColor(3,0,0,204)$obj->SetBgColor(0)$obj->FillRect(0,0,$size-1,$size-1)$obj->SetDrawColor(1)$obj->Line($size-1,0,0,$size-1)$obj->SetBgColor(2)$obj->Ellipse(5,5,$size-6,$size-6)$obj->SetBgColor(3)$obj->Ellipse(5,($size-5)/4,$size/2,($size-5)*3/4)$obj->GifImage(0,1,"test.gif")

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: