极有难度,透明flash作为窗体背景,或者说只播发透明的flash播放,寻源码

极有难度,透明flash作为窗体背景,或者说只播放透明的flash播放,寻源码
FLASH全透明的地方,鼠标要能直接穿过.
也就是真的FLASH透明,像桌面挂钟那样,不过我不是要做成桌面背景,我是想做一个应用程序
如迅雷右下角弹出广告
QQ魔法表情.
桌面FLASH挂钟
寻源码...寻源码...寻源码...寻源码...寻源码...寻源码...寻源码...寻源码...寻源码...寻源码...寻源码...寻源码...
[解决办法]
头像很有意思。
[解决办法]

[解决办法]
参考以下步骤进行：
1、在窗体上拖放一个Flash控件，并加载你的SWF
2、设置窗体的BorderStyle=0，BackColor为需要屏蔽的颜色，注意这种颜色不要在SWF中使用。
3、调用API函数屏蔽窗体颜色，如以下代码所示：
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const LWA_COLORKEY = &H1

Private Sub Form_Load()
Dim rtn As Long
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes hwnd, VbRed,0, LWA_COLORKEY
'这里屏蔽的为红色。VbRed可改为其他你想屏蔽的颜色
Sub

极有难度,透明flash作为窗体背景,或者

热点推荐