电影结束画面的卷动效果

页面导航:首页 > 软件编程 > vb.net > 电影结束画面的卷动效果

电影结束画面的卷动效果

来源: 作者: 时间:2016-02-05 12:32 【

----所需物件:PictureBox(2),Label(4),Timer(1),Image(1)。 ----程式码: Private Sub Form_Load() Label1.Alignment = 2 La

 

 

 ----所需物件: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

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <