文件名称：VB编程，下雪，窗口抖动
文件大小：8KB
文件格式：RAR
更新时间：2014-07-24 10:08:33
VB编程
摘要: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用于将雪花分为三类采用不同速度，以便形成层次感。 注意，测试时候如果要停止程序，请在任务栏右键直接关闭程序字符串即可。
【文件预览】：
codefans.net
----抖动下雪()
--------FORM01.FRX(3KB)
--------抖动下雪.vbw(50B)
--------MSSCCPRJ.SCC(195B)
--------dark.ico(3KB)
--------FORM01.FRM(11KB)
--------小小礼物.suo(6KB)
--------抖动下雪.VBP(624B)