【CBM666 请教有关ShockwaveFlash透明问题】
'原文出处 老马的一个帖子
'直接使用控件属性 Wmode="transparent" 可以让背景透明,自定义的没法, 请问那里出错了？谢谢
Dim TransColor&,AppDisk$
Dim TmpFlash As Object
Private Sub Form_Load()
AppDisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
Set TmpFlash = Me.Controls.Add("ShockwaveFlash.ShockwaveFlash", "TmpFlash")
TransColor = vbWhite
TmpFlash.object.BackgroundColor = TransColor
TmpFlash.Visible = True
TmpFlash.object.Wmode = "transparent" '************** 背景无法透明
TmpFlash.object.LoadMovie 0, AppDisk & "QQPET.SWF"
[解决办法]
插入一个问题：
如何让这样用动态添加的控件自动调整大小。（即如何根据帧图像大小调整控件大小）？
[解决办法]
可能是控件版本问题吧
[解决办法]
这不是刘老师么?
[解决办法]
uncle sam，please。
[解决办法]
如果SWF本身是透明的话,可以考虑用API透明窗体,然后在透明窗体上播放SWF.
[解决办法]
TmpFlash.object.BackgroundColor = TransColor
这个颜色值应该没偏差吧?XP下的FLASH控件版本与WIN7下一样么?
