Si es la primera vez que haces esto, en Visual Basic deberás agregar primero el control, así que das click en el menú Herramientas, Elegir elementos del cuadro de herramientas..., pestaña Componentes COM, y checas el CheckBox 'Shockwave Flash Object'. Una vez hecho esto, ya te debe aparecer el control.
Arrastras el control hacia el formulario.
Suponiendo que la película de flash se llama prueba y está ubicado en el disco C\:, en el evento Load del formulario iría el siguiente código.
Código:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.AxShockwaveFlash1.Movie = "C\:prueba.swf"
End Sub
Creamos también en el formulario un textBox (para enviar el texto como variable a flash) y un botón.
El código del botón sería el siguiente:
Código:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command1.Click
flash.SetVariable("variableFlash", TextBox1.Text)
End Sub
Y en este evento recibimos las variables de flash, copia este método en la clase Form1:
Código:
Private Sub flash_Enter(ByVal sender As System.Object, ByVal e As AxShockwaveFlashObjects._IShockwaveFlashEvents_FSCommandEvent) Handles flash.FSCommand
'e.command es de tipo String, así que además de mostrar un mensaje puedes
'asignarlo a un TextBox o lo que te plazca.
MessageBox.Show(e.command)
End Sub
Ahora pasemos a flash. Crea un campo texto del tipo introducción de texto con el siguiente nombre de instancia: txtFlash
Y uno del tipo texto dinámico con el siguiente nombre de variable: variableFlash
Y por último un botón con el siguiente código:
Código:
on (release) {
fscommand (txtFlash.text,txtFlash.text);
}
¡Y voile!, ya tienes comunicación entre Flash y VB.NET.
Utilicé Visual Basic 2008, y flash MX 2004, pero supongo que en VB 2005 sirve igual.
Espero haberte sido de ayuda. hasta la próxima.