求一个用Flash作的带滚动条的文本框的源程序

求一个用Flash作的带滚动条的文本框的源程序,第1张

[Flash]可以上下滚动的文本框

1、创建场景文件。

2、输入或者粘贴一段文字。调整好大小。

3、将文本框转换为影片剪辑,在影片剪辑的属性面板中,为实例取名txtBox。

4、在靠近文本框右上角处画一个三角形。

5、将三角形转换为按钮。双击进入按钮的编辑界面。

6、在反应区插入帧。

7、返回场景1。选择三角形按钮,打开动作面板。

8、输入如下代码:

on (release) {

if (txtBox_y>-340) {

//-340的意思是顶部y值减去高度Height的结果,

//保证文本框向上移动到刚好看不见。

txtBox_y = txtBox_y-10;

}

else{

txtBox_y=txtBox_y;

}

}

9、选择三角形按钮,复制,粘贴,选择新按钮,执行 修改-->转换-->垂直翻转 命令,使之变成向下按钮。将向下按钮移动到文本框右下角。

10、选择向下按钮,打开动作面板,修改代码如下:

on (release) {

if (txtBox_y<385) {

txtBox_y = txtBox_y+10;

}

else{

txtBox_y=txtBox_y;

}

}

11、新建图层2,在图层2第一帧画一个矩形,刚好掩盖住文本框和两个按钮。

12、在图层2上点右键,遮蔽,将图层2创建为蒙板层。

13、Ctrl+Enter,并点击两个按钮查看效果。

[Flash]带滚动条的文本框(三)

1、新建场景文件,创建三个图层。

2、在最下面的图层1粘贴比较长的一段文字,然后在属性面板将其改为动态文字,多行,实例取名为txt。

3、在图层2画一个矩形,遮住一段文字。将举行转换为影片剪辑,在属性面板中为实例取名为mask。

4、在图层3的文字右侧画一条和mask等高的线段,转换为图形元件。在图层3上点右键,遮蔽,将图层3创建为蒙板层。

5、在图层3的文字右侧画一个小矩形,转换为影片剪辑,在属性面板中为实例命名为scroll_bar,将scroll_bar放在 线段顶部。

6、在图层3选择第一帧,打开动作面板,输入如下代码:

//首先定义滑块的移动范围

barUp = 67;

barDown = 204;

barPos = 446;

//然后是缓冲的程度,速度值越大缓冲越明显

speed = 6;

//然后这个是计算比例,也就是滑槽和内容的可移动长度之比

rate = (txt_height-mask_height)/(barDown-barUp);

//记录下内容的最初位置

txtOrigin = txt_y;

//在滑块上按下的时候开始拖动,down用来判断是否处在拖动中

scroll_baronPress = function() {

scroll_barstartDrag(0, barPos, barUp, barPos, barDown);

down = 1;

};

//鼠标松开的时候停止拖动,down变为0

scroll_baronMouseUp = function() {

scroll_barstopDrag();

down = 0;

};

//这个是关键,enterFrame加上if(down),也就是在拖动的时候不停地执行if里面的程序

thisonEnterFrame = function() {

if (down) {

//将此时滑块的y值减去滑块上限,计算出滑块向下移动的距离,

//乘以之前算出的比例,就得到了文本内容应该向上移动的距离

txtMove = (scroll_bar_y-barUp)rate;

//原来的位置减去距离,得到文本内容现在应该在的位置,也就是目标位置

txtm_y = txtOrigin-txtMove;

}

//文本内容y值的每一次变化量=(目标位置-当前位置)除以缓冲速度。

//注意这一句不能放在if循环里面,否则鼠标一松开缓冲就停止了

txt_y += (txtm_y-txt_y)/speed;

};

7、Ctrl+Enter测试。

[Flash]带滚动条的文本框

1、打开昨天的作品《可以上下滚动的文本框》。

2、在图层1绘制一个小矩形,转换为**剪辑元件,在属性面板上为实例命名为myScrollBar。

3、选择myScrollBar元件,打开动作面板,输入如下代码:

on (press) {

startDrag ("myScrollBar", true, 523, 85, 523, 325);

down=true;

//down 变量是用来控制文本框滚动的,

//拖动是允许滚动。

}

on (release) {

stopDrag();

down=false;

//停止拖动后也就停止滚动。

}

4、在时间轴最顶上添加一个图层,选择第一帧,打开动作面板,输入如下代码:

function onEnterFrame() {

if (down) {

v_Shift = (getProperty("myScrollBar",_y) - 200)3;

setProperty("text_movie", _y, v_Shift);

}

//如果这里不用if判断,文本框就会不停的滚动下去。

}

5、Ctrl+Enter观看效果。

在Windows XP中创建还原点的步骤(安装新驱动程序之前):

点击“开始”

指向“程序”

指向“附件”

指向“系统工具”

点击“系统还原”

点击“创建一个还原点”,然后点击“下一步”

键入识别该还原点的名称,然后点击“创建”

您好,滚筒洗衣机程序常见调节方式如下:

1、旋钮式:打开电源后,通过旋转此旋钮,选择所需的程序;

2、触摸按钮式:打开电源后,触摸<>按钮,选择对应程序;

※注意!不同品牌有所差异,详细 *** 作方法,请联系品牌售后咨询

Sub 宏1()

  Dim i&, n&

  n = ActiveSheetUsedRangeRowsCount

  While True

      Cells(1, 1)Activate

      For i = 1 To n - 10

          ApplicationWait Now() + 1 / 24 / 3600

          DoEvents

          ActiveWindowSmallScroll Down:=1

      Next i

  Wend

End Sub

着是1秒滚动一行的代码,如果需要慢一点修改wait行的1为其它数,如果需要一次滚动多行修改down后面的数值

程序没有设置终止,一天都滚动,滚完又从头开始,下班的时候按CTRL+BREAK

- = 很古董哦```` 软件就不知道了` 如果你想看显示结果可以这样 DIR c:\ >D:\1txt >D:\1txt 为把结果写入D盘的1TXT 那你就可以用edit D:\1txr查看 比较方便

以上就是关于求一个用Flash作的带滚动条的文本框的源程序全部的内容,包括:求一个用Flash作的带滚动条的文本框的源程序、如何回滚驱动程序和恢复驱动程序更新、滚筒洗衣机怎么调节程序等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/zz/9267694.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-04-26
下一篇 2023-04-26

发表评论

登录后才能评论

评论列表(0条)

保存