flsh8 and the transmission of information vb6
Users questions:vb : PrivateSubForm_Load () ShockwaveFlash1.Movie = "e: * AA * 3d.swf" ShockwaveFlash1.Menu = False ShockwaveFlash1.Playing = TrueEndSub 'first case PrivateSubShockwaveFlash1_OnReadyStateChange (newStateAsLong) Ifcommand= "1" ThenMsgBox ( "Flash and the successful integration of VB.net!") 'The second case PrivateSubflashmain_FSCommand (ByValcommandAsString, ByValargsAsString) Ifcommand = "1" ThenMsgBox ( "Flash and VB.net has a winning combination!"), the third case PrivateSubShockwaveFlash1_Fscommand (ByValcommandAsString, nyVaAsString, argsAsString) Ifcommand = "1" ThenMsgBox ( "Flash and VB.net has a winning combination!") EndIfEndSubflash where the code is as follows: on (rollOver) (setProperty ( "* light", _alpha, "100");) on (rollOut) (setProperty ( "* light", _alpha, "0");) on (press) (fscommand ( "1 ");** Send SendAction This command) result is that you can open flash, but the point is the flash button no reaction ah. Depressed ah !!!!!
Experts answer:PrivateSubShockwaveFlash1_FSCommand (ByValcommandAsString, ByValargsAsString) Ifcommand = "1" ThenMsgBox ( " ") AnddIfEndSub your code is correct, only the third flash and vb in the transmission. I tested a bit. Choosing to act a flash, put a button, the button code is on (press) (fscommand ( "1")) released into 1.swf. RanVb after adding flash control, set the movie path d: * 1.swf. And then run the program, click on, there successfully. Do you have to run ah. In the Edit mode is naturally not work.