:D السلام عليكم ورحمة الله وبركاته :D
:) اخواني الاعزاء اليوم سوف اقوم بشرح كيفية تصميم اسكينات وخاصة الازرار والتعامل معها عن طريق الفيجوال بيزك ...
:) اخواني الاعزاء سوف اقوم حاليا بشرح طريقة التعامل مع برمجة الفلاش باستخدام الفيجوال بيزك وتطبيق عمل ازرار المصنوعة بالفلاش عن طريق الفيجوال بيزك .........
:blink: الفكرة الرئيسية :-
الفكرة هي أن تضع أسم لل Symbol فى الفلاش سواء كان Button أو garphic أو شكل مثل Rectangle أو Oval ..وبهذا الأسم نستطيع أن نستفيد من خاصية FSCommand التى تدعمها ملف Shockwave.ocx في أرسال ما نريده من أوامر من داخل ال Procedure تبع الحدث FScommand الى ملف الفلاش المضاف الى مشروعك..
:lol: نبذة عن استخدام الفلاش لحديثي العهد والمبتدأين :-
يمكنك أستخدام أى أصدار فلاش يقع تحت أيدك به حدث FSCommmand لكى تستعرض ملف فلاش ومحتوياته .. يوجد قائمتين تدعيان Movie Explorer و Library وتجدهم فى قائمه Window..
س تجد فى الصوره السابقة قائمه على اليسار تدعى Tools تستخدم فى رسم وتحديد أشكال ..نختار منها مثلا Rectangle
ونرسم مستطيل كما بالشكل :
:P الأول رسمنا مسنطيل وحددنا لونه وأدرجنا على المستطيل Text بكلمه Close ..
Θ نختار رمز السهم الأسود من ال Tools ونضغط مرتين على المستطيل أو من كليك يمين على المتسطيل واختيار select all
Θ بعد تحديد المستطيل ستجد قائمه بأسم Insert بجانب View ..
أختر منها Convert to Symbol أو أضغط .
Θ وقم بتحويلها الى زرار ..وستلاحظ فى ال Timeline أربع أحداث للزرار .
Θ بعد انشاء الزرار ..نرجع لقائمه Window ونختار منه اAction .
:unsure: وفى الحدث الخاص بالزرار نكتب الكود التالى :
on (press) {
// لارسال الرساله الى الفيجول مثلا لأغلاق البرنامج fscommand هنا سنستخدم ال
fscommand ("close");
}:o لاحظ أن:
Θ الرمز (//) يستخدم ك remark كما فى الفيجول مثل ( ' Rem or )..وللمعلومية هذا الرمز يستخدم فى لغة C أيضاًً..
Θ يمكن أستخدام حدث(On (release بدلا من (On (Press
حول ملفك إلى SWF لنستخدمه فى الفيجول..
:lol: بعد ذلك نتناول الجزء الخاص بالفيجوال بيزك :-
Θ نفتح مشروع جديد Standard EXE ونضيف ملف ال shockwave.ocx الى مشروعك من ال Components سنسميها هنا flash
ونرسمه بأبعاد Dimensions ملائمه ثم نضيف الكود الذى نعرفه لعرض ملف الفلاش وهو
"flash.movie="path
Θ نضغط على ال flash مرتين حتى نفتح ال procedure تبعه ولاحظ أنه سيكون على ال Event
(OnReadyStateChange(newState As Long
غيره الى
(FSCommand(ByVal command As String, ByVal args As String
Θ لا تنسى أن تلاحظ :
ByVal command As String ByVal args As String
Θ سيكون الحدث النهائى بهذا الشكل
Private Sub flash_FSCommand(ByVal command As String, ByVal args As String) End Sub
سنكتب الأن فى هذا ال Event كود منطقى جدا :
Select case command case "close" end End Select
;) هذا هو كل شىء يمكنك الأن أن تنشأ أكثر من زرار ويكون شكل الكود لهم هكذا
Private Sub flash_FSCommand(ByVal command As String, ByVal args As String)
Select case command case "close" end case "min" me.windowstate=1 case "form2" form2.show End Select End Sub
