VB编荧屏焰火"屏保"程序

	T O P 排行
-	“QQ”的传奇
-	Wrapper和xinetd的实现（二）
-	色彩系列教程(1)：基础知识
-	网络浏览过滤软件

网校热门

VB编荧屏焰火"屏保"程序

2003-04-08· ·李笃瑞··Yesky

上一页 1 2 3

　　' 定义Label2 和imgCc大小和位置
　　Label2.Height = 600
　　Label2.Top = ScaleHeight - 600
　　Label2.Left = ScaleWidth
　　imgCc.Height = 1400
　　imgCc.Width = ScaleWidth
　　imgCc.Top = ScaleHeight - Label2.Height - imgCc.Height
　　imgCc.Picture = imgCd.Picture ' 装入城市图景
　　P = 1
　　End Sub

　　Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
　　End ' 按任意键退出运行
　　End Sub

　　Private Sub Timer1_Timer()
　　If P = 1 Then
　　' 装入焰火图样
　　q = Int(16 * Rnd)
　　imgCuYh.Picture = imgYh(q).Picture
　　imgCuYh.Move LeftCorner, TopCormer, WidthOfYh, HeightOfYh

　　Select Case dx

　　Case 1 ' 焰火升空
　　ay = ay + 1
　　TopCormer = TopCormer - 5000 * x
　　If ay = 2 Then dx = 2

　　Case 2
　　' 焰火爆炸位置
　　If TopCormer < 0 Then TopCormer = 0
　　LeftCorner = LeftCorner - 2000 * x
　　' 焰火爆炸范围
　　WidthOfYh = WidthOfYh + 6000 * x
　　HeightOfYh = HeightOfYh + 6000 * x
　　If WidthOfYh > 9000 * x Then
　　For j = 1 To 1000000: Next j '延时

　　' 恢复数据
　　WidthOfYh = 200
　　HeightOfYh = 200
　　TopCormer = 6000

　　If 0.3 < x > 0.7 Then x = 0.5
　　LeftCorner = ScaleWidth * x
　　Randomize
　　x = Rnd
　　ay = 0
　　dx = 1
　　End If

　　End Select
　　End If

　　End Sub

　　（部分控件的属性可在构筑窗体时参照图三设定）

上一页 1 2 3

【责任编辑：原野】

【发表评论】【关闭窗口】


	■ 相关内容

	优化之路：精简VB中的分段应用程序（上）　巧解VB安装程序制作　优化之路：精简VB程序的代码　 Flash 5与VB 6的TCP实时通信法　利用VB驱动pcAnyWhere进行自动文件传输　用VB实现窗口图标最小化到通知栏　 VB6实现局域网多站点互连完全手册

感谢访问天极网，如果您觉得该文章涉及版权问题，请看这里！