Discussion :

[mecmec]

Bonjour,


Avec Flash/Flex j'ai fais un FScommand("test", "truc"), et avec ce sub on peu récuperer "test et truc" :


VB reception fscommand:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
    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

Donc c'est ok pour ça, le truc que je voudrais faire maintenant c'est l'inverse !!! comment il faudrait faire pour envoyer une commande a flash/flex via visual basic ?




sur flex par exemple il y aurait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
public function test(msg:String):void {
 
Alert.show(msg)
 
}

et il faudrait que Visual basic envoi une commande du genre commande.flash.test('Test Ok'')

sa serait terrible que Flash communique avec VB et que VB communique aussi avec Flash



Merci ,salutations.

[mecmec]

Je pense avoir trouvé


code VB: envoyer une commande vers Flash

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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