第一次注册，非常 高兴，就发了这个贴子！！

[xtfgha]

请问如何在桌面放些动画，就像招财猫！

我想是不是先用findwindow来找到桌面的句柄，然后用其它函数再上画！！具体应怎么样实现，因为偶是菜鸟，所以希望能有人能回复一下！！谢谢！别外，我在学VB的过程走了不少弯路，所以希望能有志同道合的朋友帮助一下！！\QQ:6227575,

[BlueBeer]

那不是在桌面上画的哦，那是异型窗体

[sanyou98]

up

[viena]

在桌面上画，那就不是动画，是背景了

[thirdapple]

异型窗体，画在桌面太麻烦，要处理太多的事件。

[熊孩子开学喽]

如果想在桌面上画东西，使用GETDC(0)得到桌面的HDC，然后使用API就可以画了。
因为API绘制图形都需要先得到对象的HDC，包括窗体或PICTUREBOX，都可以画。
一般常用的绘图的API如：LINETO，PUTPIXEL，BITBLT，STRETCHBLT等等

[kmzs]

可以用网页作壁纸（动态壁纸），网页里面是swf或gif

[BlueBeer]

是可以画，但被画的区域就不可以再动了，一动就得重画了，还是异型窗体来的实惠

[achinacracker]

动态异型窗体

[xtfgha]

谢谢啦！！！
发贴标题不对内容！！！

不好意思1

[熊孩子开学喽]

给楼主写了段小代码，新建个窗体，直接把代码拷贝进去运行就可以了，什么控件也不用加。
就是在你的屏幕上画点。

Private Declare Function SetPixelV Lib "gdi32" (ByVal HDC As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Private Sub Form_Load()
Me.ScaleMode = 3
Me.Visible = False
Dim X As Long, Y As Long, I As Long
Dim DC As Long, Wid As Long, Hei As Long
Wid = Screen.Width
Hei = Screen.Height
DC = GetDC(0)
I = timeGetTime
Do While timeGetTime - I < 100000 '这是你要运行的时间，单位毫秒
X = Rnd * Wid
Y = Rnd * Hei
SetPixelV DC, X, Y, RGB(Rnd * 256, Rnd * 256, Rnd * 256)
DoEvents
Loop
End
End Sub

[boyzhang]

把桌面换成一个GIF不就得了?

[daisy8675]

如果楼主不希望自己的贴被转,就以后好点写标题

[zcm123]

瑞星的那个狮子助手效果是如何做的阿？

[dongge2000]

WallesCai
CPU 60%