标题: 如何做透明窗体（可以放透明FLASH的） [打印本页]

---

作者: netice    时间: 2006-10-31 09:49     标题: 如何做透明窗体（可以放透明FLASH的）

想做个透明窗体、上边可以放个透明背景的GIF图片或者透明背景的FLASH
怎么做呢。。。
以前有一个这样的例子。。。实现起来也不太难。。。可惜在一次数据丢失中没了。。。
现在再到网上找，怎么也找不到那个方法了。。。。
只能找到一些，但是不是我要的效果。。

Option Explicit
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private hBitmap As Long
Private Sub Form_Load()
Me.AutoRedraw = True
Set Image1.Picture = LoadPicture("e:\bubbles.gif") ' 注释：请自行找一个背景透明的图
hBitmap = CreateCompatibleBitmap(Me.hdc, 0, 0)
SelectObject Me.hdc, hBitmap
Me.Refresh
End Sub



上边的看起来还可以，但是，就是不能移动，移动下就不通明了。。。。。郁闷啊。。。
记得以前看的那个实例是放了个透明的FLASH动画，效果特好。。
偶还做了个可移动（控制）的。。。在桌面跟QQ宠物几乎一样。。。。
嗨。。无奈了
请高手指点下。。谢了

---

欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/)

Powered by Discuz! 6.0.0