像星际争霸开头由大到小的字幕特效

最新推荐文章于 2024-09-14 09:00:00 发布

8080

最新推荐文章于 2024-09-14 09:00:00 发布

阅读量907

点赞数

文章标签： timer vb

本文链接：https://blog.csdn.net/8080/article/details/10501

版权

第29天像星际争霸开头由大到小的字幕特效

5/15/2000 0:0:0· ·歪歪··cpcw

　　下面这个范例不用说太多，它给大家证明了一个真理：最复杂的东西往往是最简单的东西组合成的。不要每天去追逐各种各样的控件，用好最简单的东西是一件很困难的事情。
在窗体中加入一个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