تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اضافة vimeo
#1
السلام عليكم
كيف يمكن اضافة فيديو من فيمو في الفيجوال ؟
وجزاكم الله خيراً
الرد
تم الشكر بواسطة:
#2
.....

منقول

أولا أضف الأداة WindowsMediaPlayer إلى مجموعة الأدوات كالتالي
أظهر الفورم في وضع التصميم ثم اذهب إلى قائمة الأدوات واضغط زر يمين واختار ...Choose Items


من النافذة اختر التبويب COM Components ومنه صع علامة صح على WindowsMediaPlayer


أضف الأداة WindowsMediaPlayer التي ظهرت في مجموعة الأدوات إلى الفورم وأضف Button و TextBox


كود :
Public Class Form1

    Dim WithEvents WebBrowser1 As New WebBrowser
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        WebBrowser1.Navigate(Me.TextBox1.Text)
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) _
    Handles WebBrowser1.DocumentCompleted
        If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
            Dim result = System.Text.RegularExpressions.Regex.Match(WebBrowser1.DocumentText, "(?<=VIDEO src="").+(?="")").Value.Trim
            If result <> "" Then
                WebBrowser1.Stop()
                Me.Text = WebBrowser1.DocumentTitle
                Me.AxWindowsMediaPlayer1.URL = result
            End If
        End If
    End Sub

End Class


.....
الرد
تم الشكر بواسطة: abulayth , Motaz Alnuweiri


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اضافة التوقيت على التايمر حافظ حافظ 2 56 أمس, 04:01 PM
آخر رد: حافظ حافظ
  [VB.NET] اضافة صف للداتا جريد فيو بخصائص محددة محمد اسماعيل 0 37 19-04-18, 09:23 PM
آخر رد: محمد اسماعيل
  مشكلة فى اضافة windows media player محمد البلتاجى 2 55 15-04-18, 10:01 AM
آخر رد: ابو روضة
  طلب اضافة للفيجيل بيسك rabeh.ram 3 90 09-04-18, 04:32 AM
آخر رد: محمد كريّم
  مشكلة في اضافة اكثر من MenuStripQoulte altho8 3 100 02-04-18, 02:18 PM
آخر رد: عبدالله الدوسري
  [سؤال] اضافة بيانات لملف ورد معد مسبقاً أبوسعود 6 174 31-03-18, 01:55 PM
آخر رد: سعود الشامان
  [VB.NET] مشكلة عند اضافة فورم مظلل محمد اسماعيل 2 68 12-03-18, 01:37 PM
آخر رد: محمد اسماعيل
  اضافة الملفات من داخل الفولدر بواسطة FolderBrowserDialog ابو روضة 3 114 03-03-18, 06:07 AM
آخر رد: هشام محمد18
  [كود] اريد اضافة فتح الخط الدولي لرقم الهاتف المسجل . أبووسم 6 80 28-02-18, 08:05 PM
آخر رد: أبووسم
  اضافة اسم في رسالة الحذف العيدروس 2 51 27-02-18, 07:26 PM
آخر رد: العيدروس

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


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