论坛交流
首页| 办公自动化| 网页制作| 平面设计| 动画制作| 数据库开发| 程序设计| 全部视频教程
应用视频: Windows | Word2007 | Excel2007 | PowerPoint2007 | Dreamweaver 8 | Fireworks 8 | Flash 8 | Photoshop cs | CorelDraw 12
编程视频: C语言视频教程 | HTML | Div+Css布局 | Javascript | Access数据库 | Asp | Sql Server数据库 |  Asp.net  | Flash AS
当前位置 > 文字教程 > Flash AS编程教程
Tag:2.0,3.0菜鸟,游戏,类,cs,技巧,源码,层,文本,文字,函数,音乐,随机,拖拽,asp,access,xml,mc,视频教程

AS滚动文本（带缓动效果）(as2.0)

文章类别：Flash AS编程 | 发表日期:2008-10-6 17:37:37

昨天完成的一个纯AS滚动文本（带缓动效果）。可是中文内容的字体我改不了，闪吧的讨厌说这是AS的一个Bug。

 


代码：

//在做滚动文本之前，我们得想好这个滚动文本的基本属性
Start_x = 10;
Start_y = 10;
//这是滚动文本的位置
Bar_Width = 15;
//这是滚动条的宽
TeBaD = 2;
//这是滚动条与文本之间的间隔
Matter = "<br><font face=’楷体_GB2312’ size=’25’ color=’#FFDD00’>朦胧诗一</font><br><br><font size=’18’ color=’#FFFFFF’ face=’楷体_GB2312’>嘻嘻朋兄，笑我痴种。<br>回探心中，满怀虚若空。<br>朦朦胧胧，笑我懵懂。<br>醉入花丛，自恨太无用。<br>意有所钟，愿得伊人相从，从一而终。<br>微冻，醒来一场梦，一晃无影踪，两眼只朦胧！<br>倚窗问东风，花落谁人梦？</font><br><br><br><font size=’25’ color=’#FFDD00’ face=’楷体_GB2312’>朦胧诗二</font><br><br><font size=’18’ color=’#FFFFFF’ face=’楷体_GB2312’>朦朦胧胧也朦胧，<br>懵懵懂懂亦懵懂。<br>莞笑无语应有意，<br>究竟花落谁人梦。</font><br><br><br><font size=’25’ color=’#FFDD00’ face=’楷体_GB2312’>当年你决定向南而去</font><br><br><font size=’18’ color=’#FFFFFF’ face=’楷体_GB2312’>是否你将要向北远行，<br>那我便放弃向南的决定。<br>你将去哪座茫茫城市，<br>我终究抱着跟随的心。<br>时光这样的飞逝，<br>我们也许没有相聚的日子。<br>我愿珍惜这一份情，<br>直到回忆化成灰烬。<br>愿和我一起走吗？<br>走过会了却心中无际的牵挂。<br>把世上恩怨都抛下，<br>世事无常中渐渐长大。<br>和我一起走好吗？<br>不要让思绪在冷风里挣扎。<br>跟随我吧！<br>你不会害怕，<br>一起营造那温馨的家。</font><br>";
New_Width = 450;
New_Height = 280;
//这是文本的宽以及初始高度
RollBarFCol = 0x000000;
RollBarLCol = 0xFF0000;
BGLCol = 0x000000;
BGFCol = 0x333333;
//滚动条及背景色彩
tempVar0 = Start_x+New_Width;
tempVar1 = Start_y+New_Height;
//一些临时变量
//——————————————————————————————————————
//现在我们可以开始了，首先需要一个文本：
this.createEmptyMovieClip("Text_mc", 1);
//我先做了一个名为<Text_mc>的影片剪辑方便存放文本
Text_Width = New_Width-Bar_Width-TeBaD;
Text_mc.createTextField("NewText_txt", 0, Start_x, Start_y, Text_Width, New_Height);
//创建一个实例名为<NewText_txt>的空白文本
with (Text_mc) {
NewText_txt.autoSize = true;
//自动调整文本<NewText_txt>的高度
NewText_txt.multiline = true;
//设置多行文本
NewText_txt.wordWrap = true;
//设置自动换行
NewText_txt.html = true;
//采用HTML表示形式
NewText_txt.htmlText = Matter;
//内容
var format:TextFormat = new TextFormat();
format.align = "center";
NewText_txt.setTextFormat(format);
//居中
}
//——————————————————————————————————————
//接下来的就是一个滚动条的制作了：
ratio = New_Height/Text_mc._height;
if (Text_mc._height>New_Height) {
RBHeight = New_Height*ratio;
} else {
RBHeight = New_Height;
}
this.createEmptyMovieClip("RollBar_mc", 2);
with (RollBar_mc) {
beginFill(RollBarFCol, 100);
lineStyle(2, RollBarLCol, 70);
moveTo(tempVar0-Bar_Width, Start_y);
lineTo(tempVar0, Start_y);
lineTo(tempVar0, Start_y+RBHeight);
lineTo(tempVar0-Bar_Width, Start_y+RBHeight);
lineTo(tempVar0-Bar_Width, Start_y);
endFill();
}
//——————————————————————————————————————
//我们现在还要加一个遮罩层才行：
this.createEmptyMovieClip("Mask_mc", 3);
with (Mask_mc) {
beginFill(0xFF0000, 30);
moveTo(Start_x, Start_y);
lineTo(Start_x+Text_Width, Start_y);
lineTo(Start_x+Text_Width, tempVar1);
lineTo(Start_x, tempVar1);
lineTo(Start_x, Start_y);
endFill();
}
Text_mc.setMask(Mask_mc);
//——————————————————————————————————————
//然后就是画一个背景了：
this.createEmptyMovieClip("BG_mc", 0);
with (BG_mc) {
Dst1 = 7;
//加个Dst变量控制背景边缘与文本的距离，免得背景的边缘紧贴文本
beginFill(BGFCol, 100);
lineStyle(3, BGLCol, 30);
moveTo(Start_x-Dst1, Start_y-Dst1);
lineTo(Start_x-Dst1, tempVar1+Dst1);
lineTo(tempVar0+Dst1, tempVar1+Dst1);
lineTo(tempVar0+Dst1, Start_y-Dst1);
lineTo(Start_x-Dst1, Start_y-Dst1);
Dst2 = 2;
moveTo(tempVar0-Bar_Width-Dst2, Start_y-Dst2);
lineTo(tempVar0+Dst2, Start_y-Dst2);
lineTo(tempVar0+Dst2, tempVar1+Dst2);
lineTo(tempVar0-Bar_Width-Dst2, tempVar1+Dst2);
lineTo(tempVar0-Bar_Width-Dst2, Start_y+Dst2);
endFill();
}
//——————————————————————————————————————
//最后让滚动条及文本都动起来:
RollBar_mc.onPress = function() {
this.startDrag(false, 0, 0, 0, New_Height-RBHeight);
Move = true;
};
RollBar_mc.onMouseUp = function() {
this.stopDrag();
Move = false;
};
Text_mc.onEnterFrame = function() {
if (Move) {
  TEndY = -RollBar_mc._y/ratio;
}
this._y -= (this._y-TEndY)/8;
};

视频教程列表
文章教程搜索
 
Flash AS推荐教程
Flash AS热门教程
看全部视频教程
购买方式/价格
购买视频教程: 咨询客服
tel:15972130058