发表评论(0)作者:, 平台:, 阅读:12562, 日期:2000-03-12
在图片上平滑移动文字
在很多电影及游戏的结尾,你可以看到文本在图片上平滑地卷到屏幕的上方(如电
影的版权声明等),在 VB 中,可以使用以下步骤及方法实现此“特技”:
1、新建一工程文件,缺省创建 Form1;
2、在 Form1 上放置 Picture Box 控件 Picture1,选择背景图片;
3、选择 Picture1(即以它为一个容器),在上面放置 Label 控件 Label1,设置
Label1 的 BorderStyle 属性为 0(透明——即在控件后的背景色和任何图片都是
可见的),设置 Caption 为待移动的字符串;
4、在 Form1 上放置 Timer 控件 Timer1,设置 Enabled 属性为 True,设置
Interval 为 100,在 Timer1 的 Timer 事件中加入以下程序:
iStep=20
Label1.Top=Label1.Top - iStep
Interval 决定图形移动速度;iStep 决定图形移动的平滑程度。
5、在 Form_Load 事件中加入以下程序: face="宋体">Lable1.Top = Picture1.
ScaleHeight
到此,你就可以实现文字在图形上的平滑移动。本例产生的效果是由下向上移动,
如果你将程序稍加改变,就可以实现由下到上,由左到右,由右到左等“特技”效
果。
在很多电影及游戏的结尾,你可以看到文本在图片上平滑地卷到屏幕的上方(如电
影的版权声明等),在 VB 中,可以使用以下步骤及方法实现此“特技”:
1、新建一工程文件,缺省创建 Form1;
2、在 Form1 上放置 Picture Box 控件 Picture1,选择背景图片;
3、选择 Picture1(即以它为一个容器),在上面放置 Label 控件 Label1,设置
Label1 的 BorderStyle 属性为 0(透明——即在控件后的背景色和任何图片都是
可见的),设置 Caption 为待移动的字符串;
4、在 Form1 上放置 Timer 控件 Timer1,设置 Enabled 属性为 True,设置
Interval 为 100,在 Timer1 的 Timer 事件中加入以下程序:
iStep=20
Label1.Top=Label1.Top - iStep
Interval 决定图形移动速度;iStep 决定图形移动的平滑程度。
5、在 Form_Load 事件中加入以下程序: face="宋体">Lable1.Top = Picture1.
ScaleHeight
到此,你就可以实现文字在图形上的平滑移动。本例产生的效果是由下向上移动,
如果你将程序稍加改变,就可以实现由下到上,由左到右,由右到左等“特技”效
果。