- code flash du bouton
- ----------------------------
- on (release) {
- fscommand("setvalue", "Message pour tony");
- }
-
-
-
- code visual basic
- ----------------------------
- Private Sub Form_Load()
- Call ShockwaveFlash1.LoadMovie(0, "bt.SWF")
-
- End Sub
-
- Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String)
-
- Text1.Text = args
-
- End Sub
- --------------------------------------------------
code flash du bouton
----------------------------
on (release) {
fscommand("setvalue", "Message pour tony");
}
code visual basic
----------------------------
Private Sub Form_Load()
Call ShockwaveFlash1.LoadMovie(0, "bt.SWF")
End Sub
Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String)
Text1.Text = args
End Sub
--------------------------------------------------