09-12-12, 01:14 AM
بسم الله الرحمن الرحيم
مثال على تشغيل ملفات الفيديو من اليوتيوب داخل برامجنـــــا
تحيــــــــاتي للجميـــع
مثال على تشغيل ملفات الفيديو من اليوتيوب داخل برامجنـــــا
تحيــــــــاتي للجميـــع
09-12-12, 02:08 AM
[COLOR="#000080"]السلام عليكم ورحمه الله وبركاته
شكرا اخي ابو ايهاب علي المثال المميز
ولكن لما تستخدم Remove ثم Insert الافضل استخدام Replace بشكل مباشر .
يمكن الاستغناء عن هذه الاكود
واستخدام داله Replace بطريقه مباشره هكذا
وفقك الله
[/COLOR]
شكرا اخي ابو ايهاب علي المثال المميز
ولكن لما تستخدم 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/")كود :
WebBrowser1.Navigate(Replace(TextBox1.Text, "watch?v=", "v/"))وفقك الله
[/COLOR]
09-12-12, 09:08 AM
شكرا لمرورك العطر ..
راحت عن بالى ..
راحت عن بالى ..
09-12-12, 10:49 AM
مشكور جدآ على هذا البرنامج اخي واستاذي ابو ايهاب
10-12-12, 01:16 AM
حمل المرفق رقــــــــم 2 المعـدل وأترك الأول