用Visual Basic6.0实现电影特效

　　　 Timer1.Enabled=False
　　 End If
　　 With Label1
　　　 .Font.Size=zt
　　　 .Left=(Form1.Width - Lable1.Width) /2
　　　 .Top=(Form1.Height - Label1.Height)/2
　　 End With
　　 Label1.Caption=s
End Sub

Private Sub Timer2_Timer() '实现图片缩放的过程
　 If 1(1)=True Then '使图片放大
　　 Image1.Width=Image1.Width Form1.Width/10
　　 Image1.Height=Image1.Height Form1.Height/10
　 Else '使图片缩小
　　 Image1.Width=Image1.Width - Form1.Width/10
　　 Image1.Height=Image1.Height - Form1.Height/10
　 End If
　 If (Image1.Width >=Form1.Width/2) or (Image1.Width <=Form1.Width/10) Then
　　 Timer2.Enabled=False
　 End If
　　 Image1=LoadPicture("c:\win98\安装程序.bmp")
　 End Sub

Private Sub Timer3.Timer()
　 Label1.Font.Size = 30
　 If 1(2)=True Then
　　 i=i l
　 Else
　　 i=i一1
　 End If
　 If i >=Len(s) on i<1 Then
　　 Timer3.Enabled=False
　 End If
　 If i >=0 Then
　　 Label1.Caption=Left$(s,i)
　 End If
End Sub
　　 以上程序在VB6.0和Windows98/2000环境下调试通过。

上一篇： Visual Basic代码优化的六条军规
下一篇： 用VB编写“红绿灯”程序

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!