vb问题 谁能帮帮我~~~

Question

帮帮我~~~
vb的flash窗体怎么做啊？谁有实例呀？
我是初学者

Answer 1

工程-添加部件-Adobe Flash ActiveX
然后画到窗体上，设置swf路径，OK。

Answer 2

上csdn的，就会蹦出一个装Flash Ctrl的提示。

Answer 3

我上网的时候蹦出任何东西都选No
怪不得我这边VB中没有

Answer 4

要安装 VB 企业版（或专业版）后，在“部件”中才会有。
我的系统，上 CSDN 没有任何要安装组件的提示，在 VB6 工程“部件”中也找不到 Adobe Flash ActiveX 。

Answer 5

在VB中按Ctrl+T
然后找东西

Answer 6

我里面也没有Adobe Flash ActiveX

Answer 7

应该是的。不过Windows 2000只能支持版本9
Windows 98只能支持版本8。

Answer 8

我这个是视频实例 希望对楼主有用：
http://you.video.sina.com.cn/pg/topicdetail/topicPlay.php?tid=3211771&uid=1616984535&t=1#23295731

Answer 9

#20楼 得分：0回复于：2009-10-29 14:20:26我这个是视频实例 希望对楼主有用： 
http://you.video.sina.com.cn/pg/topicdetail/topicPlay.php?tid=3211771&uid=1616984535&t=1#23295731 
我不是要插入flash动画哦
谢谢你啊

Answer 10

还是没有找到Adobe Flash ActiveX 

Answer 11

我要的是几秒钟就可以自动消失的flash窗口

Answer 12

你们要帮我啊   我只会插flash动画啊

Answer 13

我要的是几秒钟就可以自动消失的flash窗口 小程序

Answer 14

用timer控件控制时间，让flash窗口几秒钟后visible=false

Answer 15

     
    
  首先，打开VB，新建一个工程，在工具箱上单击鼠标右键，选择部件，在部件窗口的控件列表中选择Shockwave   flash，然后确定，   Flash控件就被加到工具箱上了。   
    
  然后将Flash控件放到窗体上，并调整至适当的大小，然后在属性窗口中设置movie属性为Flash动画所在的路径。   
    
Private Sub Form_Load()
    ShockwaveFlash1.Playing = True
    Timer1.Interval = 3000
    Timer1.Enabled = True
    
End SubPrivate Sub Timer1_Timer()
    ShockwaveFlash1.Playing = False
    ShockwaveFlash1.Visible = False
    
End Sub          
 

Answer 16

在部件窗口的控件列表中找不到Shockwave  flash

Answer 17

可能我的电脑安装有flsh的关系吧，有两个层次
一般人会安装flash插件
编辑人会安装flash编辑器（我电脑有这个，不知道是否这个原因）

Answer 18

还有一个问题就是几秒后能不能返回我想要的flash动画页面再接着播放

Answer 19

Private Sub Form_Load()
    ShockwaveFlash1.Playing = True
    Timer1.Interval = 3000
    Timer1.Enabled = True
    
End SubPrivate Sub Timer1_Timer()
    If ShockwaveFlash1.Visible Then
        ShockwaveFlash1.Playing = False
        ShockwaveFlash1.Visible = False
    Else
        ShockwaveFlash1.Playing = True
        ShockwaveFlash1.Visible = True
    End If
    
End Sub

Answer 20

Private Sub Form_Load()
    dim aa as Blooen
    aa=True
    ShockwaveFlash1.Playing = True
    Timer1.Interval = 3000
    Timer1.Enabled = True
    
End SubPrivate Sub Timer1_Timer()
    if aa=True then
    ShockwaveFlash1.Playing = False
    ShockwaveFlash1.Visible = False
    aa=False
    else
    ShockwaveFlash1.Playing = true
    ShockwaveFlash1.Visible = true
    Timer1.Enable=False
    Endif
    
End Sub  

Answer 21

没有Timer1.Enable=False一会又看不见了

Answer 22

用我的代码没那个问题
Timer1.Enable=False

Answer 23

Private Sub Form_Load()
    ShockwaveFlash1.Playing = True
    Timer1.Interval = 3000
    Timer1.Enabled = True
    
End SubPrivate Sub Timer1_Timer()
    If ShockwaveFlash1.Visible Then
        ShockwaveFlash1.Playing = False
        ShockwaveFlash1.Visible = False
    Else
        ShockwaveFlash1.Playing = True
        ShockwaveFlash1.Visible = True
        
        Timer1.Enabled = False
    End If
    
End Sub

Answer 24

哦 呵呵  这样差不多了  可是我还想把两个个画面搞成不一样的画面   刚开始出现的是
静态的  几秒后再是flash播放   这样大哥会吗？

Answer 25

这样试，但因为flash的程序问题，可能不好用
Private Sub Form_Load()
    ShockwaveFlash1.Playing = False
    Timer1.Interval = 3000
    Timer1.Enabled = True
    
End SubPrivate Sub Timer1_Timer()
    If ShockwaveFlash1.Visible Then
        ShockwaveFlash1.Playing = False
        ShockwaveFlash1.Visible = False
    Else
        ShockwaveFlash1.Playing = True
        ShockwaveFlash1.Visible = True
        
        Timer1.Enabled = False
    End If
    
End Sub

Answer 26

Private Sub Form_Load()
    ShockwaveFlash1.Playing = False
    Timer1.Interval = 8000
    Timer1.Enabled = True
    
End SubPrivate Sub Timer1_Timer()
    If ShockwaveFlash1.Visible Then
        ShockwaveFlash1.Playing = False
        ShockwaveFlash1.Visible = False
    Else
        ShockwaveFlash1.Playing = True
        ShockwaveFlash1.Visible = True
        
        Timer1.Enabled = False
    End If
    
End Sub

Answer 27

这样我在哪里写我要的flash路径啊？

Answer 28

Private Sub Form_Load()
'这里写