如何用VB调用FLASH控件?

[love2000]

[poweruser]

加入控件不就可以了吗

[jmylf]

要是装了flash在列表里面有,直接添加就可以来哦

[kenryHuang]

在FLASH的文件目录里找，一个叫？？？。OCX文件

[xmao]

在VB中使用Flash4自带的Swflash.ocx控件就可以了。方法如下：
　　新建一个工程， 在工具箱上单击右键，选择部件，在部件窗口的控件列表中选择Shockwave flash，然后确定，Flash控件就被加到工具箱上。
　　然后将Flash控件放到窗体上，并调整至适当的大小，然后在属性窗口里设置movie属性为Flash动画文件的路径(如:c:\demo.swf)，设置scale model属性为2，quality 属性为 1。
　　双击窗体，在form_load( )过程里加入：
　　shockwaveflash1.playing=true
　　按F5就可以看到播放的Flash动画了。

[lanren_me]

Swflash.ocx

[伽楠]

好象是swfbrower.ocx控件

[bgxy]

用Swflash.ocx。
Flash只有与VB完全融合才好玩，用FSCommand
在Flash的按扭中添加
on (release) {
fscommand ("QuitCommand", "Quit_My_App");
}

参照以下VB代码：
Private Sub MyFlash_FSCommand(ByVal command As String, ByVal args As String)
'其中flash中的“QuitCommand”作为command的参数，“Quit_My_App”作为args 的参数
'点击flash中添加了fscommand的按扭时
If command = "QuitCommand" Then
'判断fscommand的值
if args = "Quit_My_App" then
quit
end if
End if
end sub

[woowindice]

很简单的，如上所说。