用Visual Basic6.0实现电影特效

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环境下调试通过。

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