[ تشغيل مقاطع اليوتيوب من الفيجوال بيسك ][

بسم الله الرحمن الرحيم ..

كيف الحال انشاء الله بخير . .


اليوم معاي درس بسيط لكم وهو تشغيل مقطاع اليوتيوب من الفيجوال بيسك . .

طبعاً الفكرة سهلة جدا ولذيذة ..


تابعوا معاي الصور ..


1

بعد فتح الفيجوال بيسك اختر كما بالصورة التالية





2

الان أضف الى الفورم الادوات التالية


ShockwaveFlash1


Command


T e x t


لمعرفة أدراج أداّة ShockwaveFlash1 ( أداة الفلاش )

تابع الصورة






ليكون شكل الفورم النهائي كما بالصورة التالية





-----------------

لان خلصنا من شكل البرنامج


باقي برمجة الكود

-----------------


كود زر ( تشغيل ) Command


كود:

Dim aMovieURL As String
aa = Split(****1.****, "watch?v=")
If UBound(aa) > 0 Then
aMovieURL = aa(0) + "/v/" + aa(1)
ShockwaveFlash1.Movie = aMovieURL
ShockwaveFlash1.Play
Else
MsgBox "يجب وضع رابط الفيديو لتشغيله"
End If


ملاحظة : النجوم اللي بالكود حط مكانها T e x t بدون فراّغات


وهذه صورة نهائية للبرنامج وقت تشغيله للفيديو





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


اعتقد كل شي واّضح وسهل ..


فمأّن الله في دروس قادمة ..