VB 和Flex交互總結

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瀏覽器)