上下滚动的字符动画制作方法

时　间:2010-10-07 10:09:06
作　者:爱吉瑞   ID：15524  城市：连云港
摘　要:Access，字符，动画，一种制作方法
正　文:

上下滚动的字符动画制作方法

一、窗体

在窗体中插入选定的图片，1个标签。图片上下有两个矩形的方框，是用来遮蔽动画运行中多余的部分的,其它都在代码中解决了。

二、窗体代码

Option Compare Database

Dim I As Integer

Dim x As Integer

Dim y As Integer

Private Sub Form_Load()

x = Label0.Left

y = Label0.Top

End Sub

Private Sub Form_Timer()

If I < 10 Then

Label0.Move Label0.Left, Label0.Top - 100

End If

If I > 30 And I < 40 Then

Label0.Move Label0.Left, Label0.Top - 100

End If

If I = 40 Then

Label0.Move x, y

   If Label0.Caption = "Access软件网" Then

        Label0.Caption = "学习交流的好地方"

    I = 0

      Exit Sub

   End If

   If Label0.Caption = "学习交流的好地方" Then

        Label0.Caption = "ACCESS学习简单快乐"

        I = 0

       Exit Sub

   End If

   If Label0.Caption = "ACCESS学习简单快乐" Then

       Label0.Caption = "服务广大爱好者"

       I = 0

       Exit Sub

   End If

  If Label0.Caption = "服务广大爱好者" Then

       Label0.Caption = "Access软件网"

       I = 0

       Exit Sub

   End If

End If

I = I + 1

End Sub

附件:

点击下载此附件