تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
Youtube Video Player
#1
بسم الله الرحمن الرحيم

مثال على تشغيل ملفات الفيديو من اليوتيوب داخل برامجنـــــا





تحيــــــــاتي للجميـــع




الملفات المرفقة
.rar   Abu Ehab Youtube Video Player.rar (الحجم : 196.08 ك ب / التحميلات : 108)
.rar   Abu Ehab Youtube Video Player-01.rar (الحجم : 299.34 ك ب / التحميلات : 143)

Abu Ehab : Microsoft Partner  & Systems Developer
الرد }}}}
تم الشكر بواسطة:
#2
[COLOR="#000080"]السلام عليكم ورحمه الله وبركاته

شكرا اخي ابو ايهاب علي المثال المميز

ولكن لما تستخدم Remove ثم Insert الافضل استخدام Replace بشكل مباشر .

يمكن الاستغناء عن هذه الاكود
كود :
Dim StartingLink As String = TextBox1.Text
         Dim Re As String = StartingLink.Remove(0, 31)
             Dim CurrectLink As String = Re.Insert(0, "http://www.youtube.com/v/")
واستخدام داله Replace بطريقه مباشره هكذا
كود :
WebBrowser1.Navigate(Replace(TextBox1.Text, "watch?v=", "v/"))

وفقك الله
[/COLOR]
الرد }}}}
تم الشكر بواسطة:
#3
شكرا لمرورك العطر ..
راحت عن بالى ..

Abu Ehab : Microsoft Partner  & Systems Developer
الرد }}}}
تم الشكر بواسطة:
#4
مشكور جدآ على هذا البرنامج اخي واستاذي ابو ايهاب
الرد }}}}
تم الشكر بواسطة:
#5
حمل المرفق رقــــــــم 2 المعـدل وأترك الأول

Abu Ehab : Microsoft Partner  & Systems Developer
الرد }}}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم