用VB5制作文字上卷效果

什么是文字的上卷效果？就像电影结束时播报制作人员名单那样，文字徐徐上升。此效果在软件制作中也被广泛应用。其实，用VB5.0很容易制作这一效果。首先，在VB5.0中选择文件菜单,选择新建工程，选择标准EXE,确定。此时，自动创建默认窗口FORM1。在FORM1上建立一个PICTURE BOX控件，然后在PICTURE BOX控件上再建立一个TEXT控件。再在FORM1上建立一个COMMAND控件和TIMER控件。选中TEXT控件，打开属性窗口。把APPEARANCE属性设置为0 FLAT，BORDERSTYLE属性设为0 NONE，MULTILINE设置为TRUE。再选中TIMER控件，把INTERVEL 属性设为250。这时，可以给这些控件起名字，只要设置相应控件的CAPTION属性即可。这里默认的CAPTION 属性分别是FORM1、PICTUREBOX1、TEXT1、COMMAND1、TIMER1。
　　接下来加入代码。这个程序很简单。在“通用”部分，加入：
　　Option Explicit
　　Dim CurY As Single ′ 定义变量，表示文本首
　　 部的当前高度
　　COMMAND1控件部分加入：
　　Private Sub Command1_Click()
　　CurY = Picture1.Height
　　Timer1.Enabled = True
　　End Sub
　　注解：当运行该程序，点击COMMADN1控件时，激活TIMER控件，并且把TEXT1中内容的当前位置放在PICTURE BOX的底部，开始徐徐上升。
　　在窗口代码部分加入：
　　Private Sub Form_Load()
　　Dim STR As String, ENTER As String ＊ 2 ′ 定义变量
　　Picture1.BackColor = ＆H00000000 ′ PICTUREBOX的
　　 背景色为黑色
　　Text1.BackColor = ＆H00000000 ′ TEXT的背景
　　 为黑色
　　Text1.ForeColor = ＆H000000FF ′ TEXT中文字的
　　 前景色为红色
　　Timer1.Enabled = False
　　Text1 = ″　″ ′把TEXT1的内容设为空串
　　ENTER = Chr＄(13) ＋ Chr＄(10) 　　′回车，
　　 换行标志
　　Open App.Path ＋ “\AAA.txt" For Input As ＃1 ′ 文件
　　 AAA.txt是被播放的文本文件
　　While Not EOF(1) ′从文件AAA.txt一行一行读入
　　 文本，并加上回车换行标志
　　Line Input ＃1, STR
　　 Text1 = Text1 ＋ STR ＋ ENTER
　　Wend ′循环结束
　　Close ＃1 ′关闭文件输入输出通道
　　Text1.Font.Size = 14 ′设置TEXT文本字体大小
　　Set Font = Text1.Font ′设置字体
　　Text1.Move 0, Picture1.Height ′把TEXT1的文本移动到
　　 PICTURE底部
　　Text1.Width = Picture1.Width ′把TEXT1的文本宽度设
　　 置为PICTURE的宽度
　　Text1.Height = TextHeight(Text1.Text) ′计算TEXT1文本
　　 的高度，并赋予HEIGHT属性
　　End Sub
　　在TIMER控件部分加入代码：
　　Private Sub Timer1_Timer()
　　 Text1.Top = CurY ′把CURY的值赋予TEXT1
　　 的TOP属性
　　CurY = CurY