flash课件加个纯代码图形工具条

《flash课件加个纯代码图形工具条》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、[AS3.0]给Flash课件加个纯代码图形工具条2013-4-3013:14阅读(137)o权限设置o修改分类o推荐日志o设为置顶o转为私密日志o举报o申诉     在PPT播放过程中，可以使用圆珠笔等工具，在幻灯片上涂涂画画，很好用，Flash就没有了，只有自己动手做，这里做好了一个可以插入课件的工具箱，大家可以试试看。    一、工具样式：    课件播放时会看到左下脚一个小三角形按钮，点击后拉出一个工具条（如下图），上有相关的按钮，可以点“？”按钮查看使用帮助。        二、应用方法：    1.新建一个基于Ac

2、tionScripe3.0的flash文件，并保存。也可以是一个已经做好的课件，但一定要基于ActionScript3.0 。    2.新建一个ActionSprite文件，复制下面的代码， 粘贴进去，保存在与flash文件相同的位置，取名为ShapeTool.as（区分大小写）。也可以用记事本，保存为UTF-8编码，名为ShapeTool.as即可。    3.在flash文件或已经做好的课件的第一帧加入代码：      if(shapetool==null){importShapeTool;varshapetool:Sh

3、apeTool;shapetool=newShapeTool(stage);stage.addChildAt(shapetool,stage.numChildren);     }     4.导出生成swf文件即可。     三、要复制的代码：package{importflash.display.Sprite;importflash.display.Shape;importflash.display.SimpleButton;importflash.geom.Matrix;importflash.display.Gradi

4、entType;importflash.display.SpreadMethod;importflash.text.TextField;importflash.text.TextFormat;importflash.text.TextFieldAutoSize;importflash.text.TextFieldType;importflash.display.DisplayObject;importflash.display.Bitmap;importflash.display.BitmapData;importflash.

5、events.MouseEvent;importflash.events.Event;importflash.geom.Point;importflash.events.KeyboardEvent;importflash.ui.Mouse;importflash.display.CapsStyle;importflash.utils.setTimeout;publicclassShapeToolextendsSprite{privatevarclock:Boolean =false;privatevarshapeToolBar

6、:Sprite;//按钮相关privatevararrTools:Array     =newArray(9);privatevartoolButtons:Array   =newArray(9);privatevarcurrentButton:String  ="";privatevartmpCurrentButton:String="";//舞台和画布privatevar_stage;privatevarcanvas:Sprite  =newSprite();privatevarcountSprite:Array=newA

7、rray();privatevarcountNumber:uint;//定位点、Shift钮、鼠标、统计绘图数、撤销统计privatevarpoint:Point   =newPoint();privatevarshiftdown:Boolean=false;privatevar_mouse:Sprite  =newSprite();privatevartotalDraw:uint  =0;privatevarcancleCount:Array=newArray();privatevarnewCancle:Boolean=fa

8、lse;//颜色privatevarcolordb:Sprite;privatevarcolor:uint    =0xFF0000;privatevar_examples:Sprite =newSprite();//线大小privatevar_linesize:uint