马大哈 发表于 2005-4-27 22:12:16

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

<P>应朋友要求就发上来了</P>
<P>看看效果吧~~~~~~呵呵</P>

小吧 发表于 2005-4-27 22:27:45

哈 我还没看 去看看去哈

小吧 发表于 2005-4-27 22:32:12

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

马大哈 发表于 2005-4-28 12:33:15

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

小吧 发表于 2005-4-28 13:07:31

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

马大哈 发表于 2005-4-28 18:40:02

OK

小吧 发表于 2005-5-6 02:18:31

谁能写个这样的程序用在2000系统里，当系统接到关机指令的时候忽略一切直接关 掉电

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

小吧 发表于 2005-5-6 02:23:22

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

马大哈 发表于 2005-5-10 23:50:44

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

小吧 发表于 2005-5-11 00:15:13

理解了！！

小吧 发表于 2005-5-11 20:33:26

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

马大哈 发表于 2005-5-11 21:47:36

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

小吧 发表于 2005-5-11 21:51:57

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

马大哈 发表于 2005-5-11 21:55:20

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

小吧 发表于 2005-5-11 23:00:39

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

马大哈 发表于 2005-5-12 15:26:05

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

小吧 发表于 2005-5-12 18:42:44

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

小吧 发表于 2005-5-12 19:29:18

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

小吧 发表于 2005-5-12 23:30:42

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

小吧 发表于 2005-5-18 10:59:38

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

马大哈 发表于 2005-5-23 17:36:00

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

哈妹妹--猫 发表于 2005-6-10 20:24:34

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

小吧 发表于 2005-6-11 03:27:30

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

哈妹妹--猫 发表于 2005-6-12 17:20:36

看不懂看不懂`````

小吧 发表于 2005-6-21 14:41:35

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

小吧 发表于 2005-6-21 23:14:34

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

马大哈 发表于 2005-6-24 22:52:51

<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>

马大哈 发表于 2005-7-10 00:03:08

可以的呀，不过麻烦点

马大哈 发表于 2005-10-24 12:14:09

为什么不能下载?

马大哈 发表于 2006-1-5 18:43:08

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

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

马大哈 发表于 2006-1-18 05:08:31

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

wszjljx 发表于 2010-1-2 19:24:51

用图片替代画点试试？
页: [1] 2
查看完整版本: [下载]一个简单的下雪效果