لست هنا بصدد الحديث عن كيفيه ادراج ملف فلاش داخل برنامج فجوال بيسك
ولكن ايضا وضع ازرار فلاشيه بكل ما فيها من جمال وجعلها تستجيب لاكواد
في الفجوال بيسك
والطريقه هي:
انشئ ملف الفلاش و ضع كلما تريد فيه من حركه و ازرار ....
ثم اضف الكود التالي للزر الذي تريده ان يستجيب لاكواد الفجوال بيسك
on (release) {
fscommand("button name1");
}
و قم باخراج ملف فلاش ولكن بالاصدار الخامس
انتقل الان للفجوال بيسك و قم باختيار components من قائمة projects و حدد الاختيار shock wave flash
قم باضافة الاداه الى الفورمه واظبط مقاسها كما تريد ثم ضع الكود التالي في form load
Private Sub Form_Load()
ShockwaveFlash1.Movie = App.Path & "\mask_sameh.swf"
End Sub
أما الكود الخاص بجعل ازرار الفلاش تستجيب لكود الفجوال فهو
Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String)
// ضع هنا اسم الزر الذي اخترته في ملف الفلاش
If command = "button name1" Then
// ضع هنا اي كود تشاء
MsgBox " hay i do it, this is a flash button that excute a vb code "
End If
End Sub
وهكذا تسطيع اضافة الانيميشن لبرامجك الفجول بل وجعلها متفاعله مع المستخدم.
يوجد بالمرفقات ملفات العمل
و الحمد لله على نعمه
