بسم الله الرحمن الرحيم
أتمنى أن يكون الموضوع ذو أهمية و سوف أعطيكم المعلومات التى تمكنكم من إمكانية التعامل بين العروض المصصمة بفلاش و فيجوال بيسيك و العملية بسيطة جدا وهى كالأتى
أرجو مراعاة معرفة مسبقة بفلاش و الأكشن سكربت
من داخل فلاش سوف تضيف الحدث fscommand من شاشة الأكشن فى القائمة bascic commands فم بأضافة حدث fscommand سوف يظهر لك حقلان نصوص و combo
أكتب فى النص الأول Command القيم الأتى test
أكتب فى النص الثانى Argments القيمة التالية " الله أكبر " يمكن تغييرها
حسب ما تشاء
قم بتحويل العمل الى ملف swf من قائمة file ثم Export Movie و أحفظه فى مكان تعرفة و لنسمه مثل vb_with_flash
و الأن جاء دور فيجوال بيسيك قم بالدخوال على components من قائمة project أو أضغط ctrl + t
و اختر shokwave flash
قم بوضع الshock wave player على الفورمة و قم بكتابة مايلي :
code:
Private Sub Form_Load()
ShockwaveFlash1.Movie = APP.PATH & "\vb_with_flash.swf"
End Sub
Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String)
Select Case Trim(command)
Case "test"
Select Case Trim(args)
Case "الله أكبر ولله الحمد"
Form1.Caption = "قمت بالضط على الزر الأول"
Case "و أعتصموا بحبل الله جميعا و لا تفرقوا"
Form1.Caption = "قمت بالضط على الزر الثانى "
End Select
MsgBox command & vbCrLf & args
Case Else
Exit Sub
End Select
End Sub
يمكنك تطبيق هذا الموضوع لعمل برامج بشكل أفضل