Question

vb加上shockwaveflash控件后保存完再打开加载错误

vb菜单设计好后加上shockwaveflash控件后再打开提示行 19: 不能加载控件 MenuFile；包含的控件不是有效的载体。
行 19: 不能加载文件 G:\计算机基础\VB课程设计\新年贺卡3.frm 。
详细QQ：928572589，课设成功完成加分，我的电脑win7,64位，flash mx2004
怎么调整让flash显示大小与窗体相适应啊，程序要能够通过菜单命令来控制动画的播放、设置贺词的字体和字号、窗体及一些控件的背景颜色。
 贺词象霓虹灯一样闪烁；每个字的颜色是随机的，且字的颜色不能与其控件的背景颜色相同。
 五彩缤纷的碎纸在不停地散落。
 显示播放flash动画的进度（Slider控件）。
 当窗体缩放时，窗体上的各个控件随着作相应的变化。
按空格键能控制播放和暂停

Answer 1

flash的ocx比较悲催,不能直接添加到窗体.....要用别的方法变通一下...比如......

Option Explicit

Public objFlash As Object

Private Sub Form_Load()
'初始化flash
Dim tmpCtl As Object
Set tmpCtl = Me.Controls.Add("ShockwaveFlash.ShockwaveFlash", "Flash") '自动添加控件
'调整大小和位置
tmpCtl.Move 0, 0, 1000, 1000
tmpCtl.Visible = True

Set objFlash = tmpCtl.object

'指定播放的swf
objFlash.Movie = "c:\swf\my.swf"
End Sub

追问

怎么调整让flash显示大小与窗体相适应啊，程序要能够通过菜单命令来控制动画的播放、设置贺词的字体和字号、窗体及一些控件的背景颜色。
 贺词象霓虹灯一样闪烁；每个字的颜色是随机的，且字的颜色不能与其控件的背景颜色相同。
 五彩缤纷的碎纸在不停地散落。
 显示播放flash动画的进度（Slider控件）。
 当窗体缩放时，窗体上的各个控件随着作相应的变化。
按空格键能控制播放和暂停

Answer 2

重先安装你的FLASH
用VC做好封装成OCX VB调用

追问

VB我都不会，更别提VC了

Answer 3

浩南
欢馨
健柏