VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >
  • vb教程之像星际争霸开头由大到小的字幕特效

 下面这个范例不用说太多,它给大家证明了一个真理:最复杂的东西往往是最简单的东西组合成的。不要每天去追逐各种各样的控件,用好最简单的东西是一件很困难的事情。
在窗体中加入一个Timer(定时器),标签(Label)
Private Sub Form_Load()

With Me
.BackColor = vbBlack
.WindowState = vbMaximized
End With
With Label1
.Alignment = vbCenter
.AutoSize = True
.BackColor = vbBlack
.Caption = "歪歪的VB教程"
.Font.Name = "宋体"
.Font.Size = 150
.ForeColor = vbGreen
.Visible = True
End With
With Timer1
.Interval = 1
.Enabled = True
End With

End Sub
Private Sub Timer1_Timer()
With Label1
If .FontSize $#@62; 2 Then
.FontSize = .FontSize - 2
.Left = (Me.Width - .Width) / 2
.Top = (Me.Height - .Height) / 2
Else
.Visible = False
Timer1.Enabled = False
End If
End With
End Sub

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。


相关教程