开发工具:
文件大小: 8kb
下载次数: 0
上传时间: 2011-07-04
详细说明： 摘要:VB源码,图形处理,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用于将雪花分为三类采用不同速度，以便形成层次感。 注意，测试时候如果要停止程序，请在任务栏右键直接关闭程序字符串即可。 ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
