[下载]一个简单的下雪效果

马大哈

<P>应朋友要求就发上来了</P>
<P>看看效果吧~~~~~~呵呵</P> fqdolpPQ.rar (6.68 KB, 下载次数: 29134)

2005-4-27 22:12 上传

点击文件名下载附件
[下载]一个简单的下雪效果

小吧

哈 我还没看 去看看去哈

小吧

<P>哈 刚看了 的确好看</P><P>不过就是雪花要是大些真就好看多拉！哈</P><P>退出的方式哈 ！ 啊路里亚！！！！！！！！！！！！  </P>[em05]

马大哈

<P>嘿嘿</P><P>其实那里的"雪花"只是一个小点,想做大的雪花就只能自己绘,写一个小小的过程就可以了</P><P>谁写写?</P>

小吧

<P>马哥啊 帮我去看你给我们留的题目哦</P><P>我上传了 ！昨天没传好 不好意思！</P>

马大哈

OK

小吧

<P>晚上好好看了看，通过更改drawwidth属性大小  并修改同时修改数组的大小，可以让小点变大些，但是还只限于是个点！</P><P>大家有机会试试 ！   以后就可以自己做拉 哈！！
！</P>

小吧

<P>还有想请问马哥的是代码里的api函数setwindowpos 去掉并不影响任何效果，马哥把它也写进代码的意思是不是也是一种子类处理，处理窗体的位置？？？？？？？？</P><P>小弟不懂！！！！</P><P>懂的解释下！！！</P>

马大哈

setwindowpos只是为了让窗体在最上层显示,这样,就算你用其他的什么键来切换,本程序也永在最上面,哈哈.

小吧

理解了！！

小吧

<P>这个程序还有东西要改正，比如退出，可以加上如下代码，更方便：</P><P>Private Sub form_KeyPress(KeyAscii As Integer)
Unload Me
End Sub</P><P>另外这个雪花是向下下的，我们只要把其中的过程snow该了就可以变成从中间向两边散开，就是系统自带的那个穿越时空的代码了，当然雪花的大小处理要注意，有兴趣的可以自己写几个屏幕保护的代码哦，反正我是写了，呵呵！！！</P>

马大哈

那好,就用这个为蓝本,开发一个屏保存,怎么样?

小吧

<P>大家狂顶哦！！！！！！
顶顶顶！</P>

马大哈

屏保主要是要用到一些特殊的命令,可以用Command$函数来得到.

小吧

<P>呵呵，那些我认为可以照搬，主要是做出来这个自己独特的画面来，呵呵 ！！！！</P><P>其实就是一个小动画！！！</P><P>然后加上command 些许命令就可以加入列表中正式使用拉！</P>

马大哈

嘿,就是怎么样才做好看的问题哦!!!

小吧

呵呵，马哥以后也做个好点的放上来给大家做教材看哈！！

小吧

<P>朋友，把你原代码也传上来啊 ！
看看 也可以大家交流修改下哈！！！！！！</P>

小吧

<P>看了 </P><P>呵呵  ！！！</P>

小吧

<P>添加一个背景来说是没问题，但是要做成动态的背景的话，俺还没好的注意，也正在努力寻找！</P><P>另外就是做成屏幕保护程序，其实只要在里面加上些语句，来判断是不是只有一个屏幕保护程序在运行然后做成scr文件就ok ，就可以在机子上安装运行，我是2k的系统，测试成功拉！！！！</P><P>那个具体的判断语句我找下发上来 呵呵！</P><P>大哥，你也做几个好看的给我做屏幕保护哈！</P>

马大哈

嘿,看来屏保也是一个学习的好东西!!

哈妹妹--猫

<P>昏哒哒````</P><P>为什么这么难退出哈```</P><P>哈哥哥</P><P>说~！老实说~！</P><P>你动了什么手脚？</P><P>真好玩~不知道QQ 上能不能用到哈？</P>

小吧

呵呵，只要略做修改就可以很容易的退出了！！！！！！！！！！

哈妹妹--猫

看不懂看不懂`````

小吧

<P>不错不错 其实这个代码就是退出的时候太那个了............</P><P>如果真想做成屏保最好也加上个键盘退出............</P><P>另外再加一点点............</P><P>等过几天装了vb发上来...........</P>

小吧

<P>顶顶把...</P>

马大哈

<P>很不错!!只是那个框应该在移动鼠标时才出现,要不然就破坏了效果了,你觉得呢?</P><P>至于雪花的大小问题,就要在以下这里把PSET改成画雪花的语句:</P><P>PSet (oldx, oldy), Me.BackColor '因为要实现再下落，就要清除以前的白点，要不就会连成一片
            
          PSet (Snow(i, 0), Snow(i, 1)), RGB(coloury, coloury, coloury)               '显示新的点
           PSet (Snow(i, 0), Snow(i, 1)), vbWhite '不也可以吗？反正雪是白色的</P><P>而代码本身并不是我的,所以也没有去深入了解.</P><P>注释有些是我加上的.</P>

马大哈

可以的呀，不过麻烦点

马大哈

为什么不能下载?

马大哈

代码不是我写的啦!!!!

是我在别人那里转的。。。

马大哈

呵呵,期待楼上朋友的作品!!

wszjljx

用图片替代画点试试？