هذا مثال بسيط عن شبك الفلاش مع الفيجوال بيسك

أول شي إعمل بروجكت جديد وروح على قائمة بروجيكت بعدين إختار كمبوننت وبراوس وإختار الكمبوننت flash.OCX الموجود مع الملف المرفق ................ الحين نزل على الفورم من هاد الفلاش رح يكون إسمه ShockwaveFlash1

بعد ماعملت كل هاد يعطيك العافيه لسا ما إنتهينا روح على الفلاش إذا كان عندك نسخه فلاش إم إكس لازم بعد ماتنتهي أو الحين قبل ماتبلش بتروح على ببلش وبتختار بلير 5 مشان تقدر تشبكه مع الفيجوال بيسك ... عملتها ؟ الحين إعمل ثلاث كبسات وحط تكست داينمك يكون وسميه على الفار Var بتخلي إسمه bb والتكست التاني إنبوت يعني ممكن تكتب فيه بالرن تايم وقت التنفيذ وبتسميه bb1 وبتحط جنب هاد التكست التاني كبسه

الثلاث كبسات بدنا منهن بس نكبس على الأولى من خلال الفيجوال بيسك يطلع مسج بوكس فيه a1 والتانيه a2 والتالته a3

,والتكست الأول بدنا نكتب بداخله عن طريق الفجوال بيسك والتاني بدنا الكلام إلي فيه ننقله لليبل في الفورم على الفجوال بيسك

بنحط هاد الكود على الكبسه الأولى في الفلاش

on (release) {
fscommand("bas", "a1");
}
 

لاحظوا إنو الفلاش بالفنكشن Fscommand بحتوي على إثنين برميتر الأول في الفجوال بيسك هوه كوماند والتاني أرغز بتحط أي قيم بس لازم تحفضهن مشان تستدعيهن بالفجوال بيسك

الكبسة التانيه بنكتب فيها نفس الشي هيه والتالته بس منغير الa1 ل a2 >>>a3

وفي الكبسه الأخيرة بنكتب هاد الكود

on (release) {
fscommand("bas1", "aa1");
}
نفس الكود تقريبا بس غيرت الكوماند والأرغز مشان توضيح أكثر

بعدين بنعمل ببلش SWF ومنحط الملف مع البروجيكت بنفس الدايريكتور يعني بنفس الفولدر

وبالفجوال بيسك بنحط ليبل وتكست وزرين والفلاش إللي حطيناها من الكمبوننت أول شي

وبنكتب هاد الكود

Private Sub Command1_Click()
ShockwaveFlash1.Movie = App.Path & "\bas.swf"'لإستدعاء ملف الفلاش SWF من نفس الباث للبروجكت
End Sub

Private Sub Command2_Click()
ShockwaveFlash1.SetVariable "bb", Text1.Text'لإسناد قيمه من التكست الموجود في الفجوال بيسك إلى التكست الموجود في الفلاش
End Sub

Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String)'هنا على الكمبوننت الخاص بالفلاش وفي الحدث FScommand كمانرى نكتب الكود التالي
Select Case command
Case "bas"'إذا كان الكوماند = bas إذا
Select Case args
Case "a1"'إذا كان الأرجز = a1 إذا
MsgBox "a1"'أخرج مسج بوكس تحتوي على a1
Case "a2"
MsgBox "a2"
Case "a3"
MsgBox "a3"
End Select
Case "bas1"'Y`إذا كان الكوماند =bas1 إذا
If args = "aa1" Then'إذا كان الأرجز = aa1 إذا
Label1.Caption = ShockwaveFlash1.GetVariable("bb1")'أسند القيمه الموجوده في التكست الموجود داخل الفلاش إلى الليبل الموجود في الفجوال بيسك
End If
End Select
End Sub

هذا شيء بسيط عن دمج الفلاش مع الفجوال بيسك ولكن الحقيقه أن برنامجك يصبح رائع وبتصميم ممتاز عن طريق الفلاش وقد قمت بعمل برنامج كامل بدمج الفلاش مع الفجوال بيسك وسترونه على الرابط التالي

http://www.bastr3.com/bastr3_.exe

أتمنى أن أكون قد أوضحت الفكرة وشكرا

يوجد ملف مرفق بالمثال السابق :)