# 别被吓到了

Posted by Honey on December 03, 1998 at 22:43:20:

In Reply to: 如何制作桌面上的动画? posted by 哈林 on December 02, 1998 at 23:07:42:

别被吓到了 这问题基本上只要你会
在Form上播放动画 or 有透明GIF图片
一切都不成问题
提供你以下程式码
当然图片移动的部分你自己
要修改一下
在Form1上放一个Timer1就好了

Option Explicit

Private Sub Form_Load()
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
If Me.Top <= 5500 Then
Form1.Top = Me.Top + 50
Else
Form1.Top = 0
End If
End Sub
表单就会自己移动 当然要移动的自然
得动动脑筋 可以放多一点Timer物件
操作会比较简单
没想到会这般简单吧
你可以参考cww网页上
http://sunh.hosp.ncku.edu.tw/~cww/
使表单成为透明的部分
另外 表单大小可不要超出图片太多
否则桌面图示就按不到了
另外这种表单通常是放在最顶端的....
提醒你一下

Follow Ups: