软件下载 | 资讯教程 | 最近更新 | 下载排行 | 一键转帖 | 发布投稿
您的位置:最火下载站 > 源码下载 > VB源码 > 图形处理 > VB实现应用程序窗口抖动飘雪效果,一个恶搞代码下载

VB实现应用程序窗口抖动飘雪效果,一个恶搞代码

  • 资源语言:简体中文
  • 资源类型:国产软件
  • 资源大小:8 KB
  • 资源等级:3星级
  • 相关链接:Home Page
  • 资源性质:免费版
运行环境:windows/vb6.0
更新时间:2011-07-04 20:24:59
有无插件:无插件

VB实现应用程序窗口抖动飘雪效果,一个恶搞代码

一个Vb恶搞程序,屏幕抖动下雪,下雪API声明(摘录):

GetDC()功能是获取指定窗体的设备场景的句柄(hDC),用参数0则可以获取整个屏幕的场景句柄

GetPixel用于取得场景(这里是整个屏幕)中某点的颜色值

释放由GetDC()获取的设备场景句柄,否则可能造成系统锁死

定义“区域”数据结构,但实际上并没有用到,因为仅需在函数InvalidateRect中传递一个空的RECT参数

Dim rect1 As RECT

Private Const ScrnWidth = 1024 ‘屏幕宽度(单位:像素)

Private Const ScrnHight = 768 ‘屏幕高度(单位:像素)

Private Const SnowCol = &HFEFFFE ‘雪花颜色

Private Const SnowColDown = &HFFFFFF ‘积雪颜色

Private Const SnowColDuck = &HFFDDDD ‘深色积雪颜色

Private Const SnowNum = 500 ‘同一时间飘动的雪花数量

Dim hDC1 As Long ‘存储桌面窗口设备句柄

Dim pData(SnowNum) As POINTAPI ‘存储每个雪花的位置信息

Dim pColor(SnowNum) As Long ‘存储画出雪花前屏幕原来的颜色

Dim Vx As Integer ‘雪花总体水平飘行速度

Dim Vy As Integer ‘雪花总体垂直下落速度

Dim PVx As Integer ‘单个雪花实际水平飘行速度

Dim PVy As Integer ‘单个雪花实际垂直飘行速度

确定当前位置没有与另一个雪花重叠,否则返回0,用于防止由于不同雪花重叠造成雪花乱堆,分别获取ColorCmp与对比点的蓝、绿、红部分的差值,画出一帧,即重画所有雪花位置一次,设置新的位置,i Mod 3用于将雪花分为三类采用不同速度,以便形成层次感。

注意,测试时候如果要停止程序,请在任务栏右键直接关闭程序字符串即可。

 报告下载错误
点击链接开始下载
本类最新
相关教程
下载说明
栏目导航
推荐软件