共有2449人关注过本帖树形打印

主题:ShotGraph普通的画图的原理

帅哥哟,离线,有人找我吗?
gaofeng
  1楼 个性首页 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:3510 积分:11231 威望:5 精华:7 注册:2000-5-19 10:19:38
ShotGraph普通的画图的原理  发帖心情 Post By:2014-2-27 11:58:46

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
首先建立一个对象 "shotgraph.image".
使用 CreateImage 方法。
使用 SetColor 方法一次或者多次来定义画图要使用的颜色。
清除你图区中的所有内容,必要时使用 FillRect 普遍认为方法.
使用有效的方法画图.
使用 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.Cset 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 imgPerl
$obj=CreateObject("shotgraph.image")$size=201$obj->CreateImage($size,$size,4)$obj->SetColor


支持(0中立(0反对(0回到顶部