[Débutant] Visual Studio 2010 : (L'inverse) FScommand avec Flash et récuperation de la commande via VB

Public Sub axShockwaveFlash1_FSCommand(ByVal sender As Object, ByVal e As AxShockwaveFlashObjects._IShockwaveFlashEvents_FSCommandEvent) Handles AxshockwaveFlash1.FSCommand MsgBox(e.command.ToString() & " " & e.args.ToString()) End Sub

Je pense avoir trouvé

code VB: envoyer une commande vers Flash

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
   Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
        Dim r As String
 
        Dim x As String
        x = "<invoke name=""FlashFunction"" returntype=""xml"">"
        x = x & "<arguments>"
        x = x & "<object>"
        x = x & "<property id='arg1'><string>value1</string></property>"
        x = x & "<property id='arg2'><string>value2</string></property>"
        x = x & "</object>"
        x = x & "</arguments>"
        x = x & "</invoke>"
 
        r = AxshockwaveFlash1.CallFunction(x)
        MsgBox("FlashFunction called, result from Flash")
    End Sub

code Flash : réception de value1 et value2

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
if (ExternalInterface.available)
ExternalInterface.addCallback('FlashFunction', this.FlashFunction);
 
 
------------
 
 
private function FlashFunction(o:Object)
{
var r:String = "";
var v:String = "";
for (v in o)
r += v + ":" + o[v] + "\r";
 
 
Alert.show("test "+r)
}

Affichage de l'alert : test arg1:value1 arg2:value2