none
如何给ie嵌入flash对象的某些元件赋值 RRS feed

  • 问题

  •          我创建一个shockwaveflash对象(可以在多个平台,例如Excel),然后将这个对象设置为网页中的flash对象。可以实现,并且可以得到这个flash对象的一些基础信息,例如:利用flash对象的movie属性活的flash的名称。

    dim fls    as ShockwaveFlash
    Dim doc as HTMLDocument
    Dim ie     as New InternetExplorer
    
    ie.visible = True
    ie.navigate = "Myurl"
    While ie.readyState <> 4 
               DoEvents
    Wend
    
    set doc = ie.document
    Set fls = doc.getElementById("flsId")
    
    debug.print fls.Movie       '此处显示正确。
    debug.print fls.GetVariable("fls里面的变量名,此处不知道怎么引用")
    debug.print fls.TGetProperty(target As String,property As Long)'此target不知道如何引用。
    

            我用火狐浏览器FireFox。其中的flashfirebug插件,能够查看到一个网页的flash里面详细到元件的名称,属性,并且可以手动修改属性,例如文本框的text属性等,并能立即在falsh中显示出来,觉得这个flashfirebug插件真的很强大。

             现在问题来了,既然插件能够修改元件属性,我能不能用第三方的代码来控制吗?

             但是这个shockwaveflash对象里的一些控件,比如textbox,button之类的,我要如何获取到并且给它赋值呢?
             简单说就是想 fls.textbox1.Text = "测试",fls.button1.Click。
             能够办到吗?谢谢
             我尝试了一些方法。都是利用shockwaveflash对象里的属性方法例如

             SetVariable(name As String, value As String),就需要一个变量的名字。

            TGetProperty(movie_clip,property) 就需要一个指定的片段。

            我在flashfirebug插件里都可以看到,就是不知道如何引用这些东西,不知道这个movie_clip或者Variable,如何引用到代码里,比如SetVariable “textbox1”, “测试”。这样出现错误。TGetProperty(“textbox1”,text) ,也不行。请问到底应该如何引用flash里的元件,并且给它赋值呢?谢谢

    2015年12月23日 4:41