VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 用VB5制作文字上卷效果
发表评论(0)作者:, 平台:, 阅读:9646, 日期:2000-03-17
用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 - 120 ′提高文本的高度,被减数越大,上升得越快

   If CurY + Text1.Height <0 Then ′ 如果文本结束,再从PICTURE BOX底部重新开始上升

   CurY = Picture1.Height

   End If

  End Sub

  接下来,运行该程序。按F5即可。然后,点击COMMAND1控件。怎么样,效果不错吧。你只要适当调整程序中的数字大小,或者改变TIMER1的INTERVEL值便能够改变文字上升的速度。你也可以改变文字的大小,以及文字的前景色和背景色等。