FlashCommand arguments

[Fritz]

I know it is rather difficult, that somebody can tell me about this.

I have a form and a Flash movie running on it. The movie sends an FSCommand to the form and the form receives the command. Up to here everythings working fine. The problem is how to interpretate the parameters (Strings) which the FSCommand passes to the VB-form. The first pm should just tell where to put the message (textfield1.text) and the second is to pass the value to be inserted.

In VB6 the thing was running without problems like that:

Flash FSCommand for VB6:

on (release) {
fscommand("txtPoints", "OK");
}

Corresponding code in VB6:

Private Sub Flash1_FSCommand(ByVal command As String, ByVal args As String)

Select Case command
Case "txtPoints"
txtPoints= args
End Select

End Sub

And this worked perfectly.

Now FSCommand for VB.Net:

on (release) {
fscommand("txtPoints.Text", "OK");
}

And the Sub in VB.Net should be something like this:

Private Sub Flash1_FSCommand(ByVal sender As Object, ByVal e As AxShockwaveFlashObjects._IShockwaveFlashEvents_FSCommandEvent) Handles Flash1.FSCommand

// Here must be some declarations! But thats what I dont get to the point!

If Command = "txtPunkte.Text" Then
Select Case args
Case "txtPunkte.Text"
txtPunkte.Text = args
End Select
End If
End Sub

So nothing happens when I press the FSCommand-button in Flash.

But at the other hand, if I only put:

Private Sub Flash1_FSCommand(ByVal sender As Object, ByVal e As AxShockwaveFlashObjects._IShockwaveFlashEvents_FSCommandEvent) Handles Flash1.FSCommand

txtPunkte.Text = "OK"

End Sub

That will work and it inserts "OK" into the Textbox.

I mean I could live with that, but I woul prefer to be able to send various types of commands. Can anybody tell me how to declare these parameters?

 

[Divil]

The command and args that would normally be passed will probably be members of the e that is passed to the function. Type e. and see what members are listed. Im surprised the code didnt cause an error since you were trying to refer to "args" which doesnt exist. Maybe you turned Option Explicit off or something.

 

[Fritz]

Thats it!! Thank you.

If I type e. the dropdown lists

e.arg
e.command
e.GetType

I think I can figure the rest out. I have tried things already with that "e", but somehow I never put a point on it.

Ok. Ill put the final code here when its done.

Thanks, divil

 

[Fritz]

That was reallx silly. Just had to put

Me.txtPunkte.Text = e.args /right

instead of

txtPunkte.Text = args /wrong


And thats much better, then I thought, because with this I can use the other parameter (e.command) to transmit another message at th same time. Very nice.