三、移动字幕

在电视上我们时常会看到屏幕下方会有一行提示文字或广告信息由右至左移动，这样既起了提示作用又不会破坏整体屏幕。在Visual Basic 5.0中我们同样可以完成这种设计。

进入Visual Basic 5.0系统环境，建立一个新的表单（FORM1），并设置FORM1的Backcolor属性为一个RGB(192,192,192)。
鼠标点击“表单控制栏”中的“标签”，并在FORM1上拉出一个矩形方框（LABEL1）。设置它的属性Caption为“活动字幕演示”，Autosize为 .T.，Backstyle为0，Forecolor为RGB（128,128,128），Fontname为“隶书体”,Fontbold为 .T.，Fontsize为36。
鼠标点击LABEL1，按CTRL + C（拷贝）键，再按CTRL + V（粘贴）键，在FORM1上创建另一个标题与LABEL1相同的标签（LABEL2），设置它的Forecolor属性为RGB（255，255，0）。调整LABEL2的位置，使其刚好比LABEL1高一些，使LABEL1看起来象LABEL2的阴影。
鼠标点击“表单控制栏”中的“计时器”，再在FORM1上点击一下，即可在FORM1上创建一个计时器（TIMER1）。设置它的属性Interval为200。
双击FORM1，编写FORM1的Load过程如下：
Private Sub Form_Load()

Label1.Left = Width + 50

Label2.Left = Width

End Sub

6、双击TIMER1，编写TIMER1的Timer过程如下：

Private Sub Timer1_Timer()

If Label1.Left < 0 - Label1.Width Then

Label1.Left = Width + 50

Label2.Left = Width

End If

Label1.Left = Label1.Left - 500

Label2.Left = Label2.Left - 500

End Sub

7、按‘F5'键运行即可见到字幕由屏幕右方出现，移至屏幕最左方消失。

四、文字的淡入淡出

很多游戏的开始时的解说字幕和爆机后的创作人员表都使用了字符的淡入淡出方式，在Visual Basic 5.0中同样可以制作有淡入淡出效果的文字。

进入Visual 　Basic 5.0系统环境，建立一个新的表单（FORM1）。
鼠标点击“表单控制栏”中的“标签”，并在FORM1上拉出一个矩形方框（LABEL1）。设置它的属性Caption为“文字的淡入淡出”，Autosize为 .T.，Backstyle为0，文字颜色为RGB（0,128,128），字体为“隶书体”,Fontbold为 .T.，字体大小为36。
鼠标点击“表单控制栏”中的“计时器”，再在FORM1上点击一下，即可在FORM1上创建一个计时器（TIMER1）。设置它的属性Interval为100，Enabled属性为 .F.。
鼠标点击“表单控制栏”中的“命令按钮”，并在FORM1上拉出一个矩形方框（COMMAND1）。设置它的属性Caption为“开始”。
双击COMMAND1，编写COMMAND1的Click过程如下：
Private Sub Command1_Click()

If Timer1.Enabled = False Then

Timer1.Enabled = True

End If

End Sub

双击FORM1，编写FORM1的Activate过程如下：
BackColor = RGB(0,128,128)

I = 0

7、双击TIMER1，编写TIMER1的Timer过程如下：

Private Sub Timer1_Timer()

I = I + 10

If I >= 255 * 2 Then

Timer1.Enabled = False

I = 0

End If

If I >= 255 Then

Label1.ForeColor = RGB(255 * 2 - I, 128, 128)

Else

Label1.ForeColor = RGB(I, 128, 128)

End If

End Sub

按‘F5'键运行。用鼠标点“开始”按钮，可以看到标题由背景色渐变为红色，然后由红色渐变为背景色。

 2/2   首页 上一页 1 2