转载 flashas3.0进度条 flash as3.0
stage.showDefaultContextMenu=false;//屏蔽右键菜单
stage.frameRate=12;//帧频率
var stageW=stage.stageWidth;
varstageH=stage.stageHeight;//取得舞台的宽和高
var loadclip:MovieClip=newMovieClip();//创建预载动画loadclip
this.addChild(loadclip);//将预载动画loadclip添加到舞台
var txt=newTextField();//创建文本文件txt
txt.autoSize=TextFieldAutoSize.CENTER;//文本文件自适应大小并且居中显示
txt.text="Johnny portfolioloading...";
txt.textColor=0x000000;//设置文本颜色
txt.selectable=false;//文本设置为不可选
txt.x=stageW/2-txt.width/2;
txt.y=stageH/2-txt.height/2;//设置x,y轴的坐标,使他们居中
loadclip.addChild(txt).name="txt";
//将文本txt添加到loadclip中
var stgb=new Sprite;
stgb.graphics.lineStyle(1,0x000000,1);
stgb.graphics.beginFill(0x3399ff,.5);//采用单色填充, 红色透明50%(0.5)
stgb.graphics.endFill();
stgb.x=stageW/2-stage.width/2;
stgb.y=txt.y+txt.height+5;
loadclip.addChild(stgb);
//绘制进度条底色并且添加到舞台
var stg=new Sprite();
stg.graphics.lineStyle(1, 0x000000, 0.5);
stg.graphics.beginGradientFill(GradientType.LINEAR, [0XFF0000,0xffff00], [100,100], [0,255]);
//填充渐变色:红到黄
stg.graphics.drawRect(0, 0 ,200, 10);
stg.graphics.endFill();
stg.x=stageW/2-stg.width/2;
stg.y=txt.y+txt.height+5;
loadclip.addChild(stg);
//绘制进度条并且添加到舞台
this.loaderInfo.addEventListener(ProgressEvent.PROGRESS,loading);
this.loaderInfo.addEventListener(Event.COMPLETE, loaded);
//添加进度完成监听器
function loading(eve) {
varloadpre:int=eve.bytesLoaded/eve.bytesTotal*100;
txt.text="Johnny portfolioloading..."+loadpre+"%";
stg.scaleX=loadpre/100;
}
//显示进度条载入百分比
function loaded(eve) {
txt.text="影片载入完毕!";
if(framesLoaded==totalFrames) {
removeChild(this.getChildAt(0));
nextFrame();
}
}
更多阅读
MFC中进度条控件的使用方法 mfc进度条控件使用
MFC中进度条控件的使用方法——简介进度条控件是程序开发中基础控件之一,常用于显示程序的进度。在进行程序安装、文件传输时经常用到。其用法也比较简单固定。今天就和大家分享一下其简单的使用方法吧。^_^MFC中进度条控件的使用方
易语言让进度条动起来怎么写 易语言进度条怎么用
易语言让进度条动起来怎么写——简介最近在写一个下载工具,需要获取下载进度,也就是需要使进度条动起来,然而到底如何才能使进度条动起来呢?这里分享一下!易语言让进度条动起来怎么写——方法/步骤易语言
易语言进度条源码 精易论坛
易语言进度条源码——简介今天,我给大家带来如何弄进度条!易语言进度条源码——工具/原料电脑易语言易语言进度条源码——方法/步骤易语言进度条源码 1、打开易语言!拉
vb 简单彩色进度条代码 |VB 网|VB 视频教程|VB编程入门网 html简单进度条
vb 简单彩色进度条代码代码比较简单一看就看出来 他只用了 两种颜色 哈哈 !保存为 frm 后缀 编译就可以了VERSION 5.00Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"Begin VB.Form Form1BorderStyle =
转载 亲测推荐 网页FLASH抓取器V7.0  网页flash抓取视频
原文地址:【亲测推荐】网页FLASH抓取器V7.0亲测实用版再也不用担心网页Flash下载作者:拾荒者共享网页中内嵌的Flash有时候不好下载,这个时候有了这个工具就简单多了,喜欢的朋友请支持,谢谢。资源截图: