社区
VB
帖子详情
雪花飘的屏保
xuepiaopiao
2007-10-22 12:42:07
老师要求我们做个VB.NET做个雪花飘的屏保, 但我不会,求助大家了.
...全文
434
3
打赏
收藏
雪花飘的屏保
老师要求我们做个VB.NET做个雪花飘的屏保, 但我不会,求助大家了.
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
绝代坏坏
2007-10-22
打赏
举报
回复
我也不会
IThurricane
2007-10-22
打赏
举报
回复
用VB制作下雪的特技景象
http://vb.lihuasoft.net/showart.php?id=413
和VBnet差不多,改一下就行了
xfyxq
2007-10-22
打赏
举报
回复
构建当前环境、雪花2个类
当前环境中至少要有风向、风速2个变量,还要有当前正在飘动的雪花对象数组,如果要做复杂点,你可能还要保存雪花落下后的积雪状态。
雪花类中至少要有当前坐标、下坠速度2个变量;可能的话还会有雪花类型变量,这影响到屏幕上是否只有单一品种的雪花还是花样齐全。下坠速度可以在雪花对象构建时随机初始化,这样就使屏幕上的所有雪花不是同一速度下降的,增加真实感。
然后在窗体中增加Time对象,并打开窗体的图像二次缓冲,在Time中随机追加雪花并计算当前雪花下一个坐标点,最后使用GDI+对所有对象进行绘画。
雪花
飘
飘
(很漂亮的
屏保
)
很逼真的下雪
屏保
,这款
屏保
是我一直用的,很喜欢,第一次上传,希望大家喜欢!
飘
雪花
的屏幕保护程序
可以手控
雪花
数量的屏幕保护,给你死静的桌面带来动感哦!
桌面下雪
屏保
.很好看,白色
雪花
飘
飘
.
桌面下雪
屏保
很好看,白色
雪花
飘
飘
. 推荐大家下载.
圣诞小礼物全屏
雪花
飘
狠好玩的一款
屏保
哦也可以当圣诞礼物送人 特别是是送给女孩子噢 亲
让整个屏幕
雪花
飘
飘
.rar
V = 18 '修改此数字,可改变
雪花
整体
飘
荡的速度 Randomize '初始化随机发生器 ' WinInTop Me.hWnd, True '使
雪花
(窗口)显示在最前,包括显示到任务栏上面 ' WinInTop Form2.hWnd, True Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), Me.BackColor, BF For I = 1 To ctSnowS ctSnow(I).X = ctSnow(I).X + ctSnow(I).xV * V ctSnow(I).Y = ctSnow(I).Y + ctSnow(I).yV * V If Rnd * 20 < 1 Then ctSnow(I).xV = Rnd - 0.5 '改变水平移动速度,模拟随风
飘
荡
VB
16,554
社区成员
110,527
社区内容
发帖
与我相关
我的任务
VB
VB技术相关讨论,主要为经典vb,即VB6.0
复制链接
扫一扫
分享
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章