28(1).txt

来自「VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）」· 文本 代码 · 共 32 行

电影结束画面的卷动效果

 ----所需物件：PictureBox(2),Label(4),Timer(1),Image(1)。 
 ----程式码： 

Private Sub Form_Load()
   Label1.Alignment = 2
   Label2.Alignment = 2
 
   Label1.Caption = "电影结束画面的卷动效果！"
   Label2.Caption = "电影结束画面的卷动效果！"
   Label3.Caption = "东汉工作室"
   Label4.Caption = "东汉工作室"
   Label1.FontName = "研泽古印体"
   Label2.FontName = "研泽古印体"
   Label3.FontName = "研泽古印体"
   Label4.FontName = "研泽古印体"
   Label1.ForeColor = QBColor(13)
   Label3.ForeColor = QBColor(9) 

End Sub
  

Private Sub Picture2_Click()
   End
End Sub
  

Private Sub Timer1_Timer()
   Picture2.Top = Picture2.Top - 1
   If Picture2.Top <= -150 Then Picture2.Top = 93
End Sub