اليوم اقدم لكم درس في الفيجول بيسك دوت نت
وهو برنامج يعرض فيديوات يوت يوب
البرنامج رائع وارجو ان تستفيدو من الشرح نبدأ
أولا نفتح مشروع جديد فيجول بيسك نت
تم نضع الادوات التالية:
ShockwaveFlash1
TextBox1
Button1

وضعهم متل مافي الصورة:

وهادا الكود :

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

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

--------------------------------------------------------------------------------------------------------------------
مع تحياتي : هكوووور ليبيا