如何在form中嵌入swf？

如题

解决方案 »

  1.   

    直接在DreamWeaver里面编辑页面就可以了，如果只是想插入flash的话，这是最简单的方法。直接选取工具条上的按钮就可以了。保存退出，在检查你的页面，就发现所有的工作都已经做好了。再研究研究，不就爽了？
      

  2.   

    不好意思，等我发完了帖子才看到您是在VB基础类里面发的。我是在大类里面看到的帖子，^_^,不过还是希望dreamweaver的代码能对你有用。看到form，我还以为是网页上的form呢，下次吸取教训。
      

  3.   

    给个例子吧 我也在学vb 
    这样就可以了 不过我不会用chdir app.path 只能用笨办法 以下路径是win98的 ：
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyF1 Then
    '调用外部程序iexplore.exe来打开帮助文本文件
    Shell "c:\program files\internet explorer\iexplore.exe E:\flash\yesterday.swf", vbNormalFocus
    End IfEnd Sub
      

  4.   

    先做成网页，再用Webbrowser加载这个网页，同样也是可以的！
      

  5.   

    利用OLE
    首先建立一个工程，一个窗体Form1。然后在VB的工具栏里选中OLE容器，在Form1中画出一个方框。这时会弹出一个插入对象的对话框，选择从文件创建。然后选择一个Flash文件。
    确定后，Form1的OLE容器里便有了个Flash的图标。在运行时你只要双击这个图标，便可以欣赏这个Flash动画了。如果想让窗体加载完后Flash动画片自动播放。只要在Form1中加入面的代码即可。
    Private Sub Form_Load()
    OLE1.DoVerb (0)
    End Sub
    当然你还可以把OLE容器设为不可见。这样，Flash动画就能起到修饰程序的作用了。利用这种方法还能给程序添加背景音乐。用Shockwave Flash控件
    选择工程菜单中的部件选项，然后在对话框的控件栏里选择Shockwave Flash控件，按确定，该控件的图标就会出现在工具栏中。然后点击该控件，在Form1中画出一个方框，方框就是显示Flash动画的地方。设你的D盘里有个Flash动画:about.swf，想在窗体加载后即显示该动画。只要我们在窗体的Load事件中加入代码“shockwaveflash1.movie =(“d:\about.swf”)”就可以轻松搞定！
    若要移植你的程序，则要带上你所用的Flash动画，当然，还得把上面的程序改为“shockwaveflash1.movie=(app.path &“\about.swf”)”，这个代码表示Flash文件和程序在同一目录下。
    注:如果是用第一种方法插入Flash，则程序会把用到的Flash动画包容进去，也就是说移植程序时不用带程序中用到的Flash。
      

  6.   

    http://www.dapha.net/down/list.asp?id=1609
    http://www.dapha.net/down/list.asp?id=1704