VB 和Flex交互总结
VB 和Flex交互总结
soul_mate 发表于3年前
VB 和Flex交互总结
  • 发表于 3年前
  • 阅读 94
  • 收藏 1
  • 点赞 0
  • 评论 0

腾讯云 学生专属云服务套餐 10元起购>>>   

VB 和Flex交互总结(IE&&非IE浏览器)


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load
    'path2 = My.Computer.FileSystem.CurrentDirectory
    ASF1.Movie = "E:\Workspaces\FlexVBFlash\bin-release\FlexVBFlash.swf"
    ASF1.Menu = True
    ASF1.Playing() = True 'GotoFrame(1)
End Sub

''axshockwaveflashobjects 控件 的一个函数CallFunction() 传递的是xml类型的字符串,最终还是字符串
ASF1.CallFunction(EncodeInvoke("getflashtitle", flashtitle))
''ASF1 是axshockwaveflashobjects 控件的名称


    

    // <summary>
    // VB向Flash通信的函数
    // </summary>
    // <param name="Fname">Flash中定义的函数名</param>
    // <param name="arg">通信数据</param>
    // <returns></returns>
    // <remarks></remarks>

   

Public Function EncodeInvoke(ByVal Fname As String, ByVal arg As String) As String
    Dim sb As StringBuilder = New StringBuilder
    Dim xw As XmlTextWriter = New XmlTextWriter(New StringWriter(sb))
    xw.WriteStartElement("invoke")
    xw.WriteAttributeString("name", Fname)
    xw.WriteAttributeString("returntype", "xml")
    xw.WriteStartElement("arguments")
    xw.WriteStartElement("string")  //'此处直接创建string类型,没做别的类型判断
    xw.WriteString(arg)
    xw.WriteEndElement()
    xw.WriteEndElement()
    xw.WriteEndElement()
    xw.Flush()
    xw.Close()
    Return sb.ToString()
End Function

参考我的另一篇文章 : JavaScript (js) 和Flex交互总结(IE&&非IE浏览器)


共有 人打赏支持
粉丝 4
博文 37
码字总数 17367
×
soul_mate
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: