تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  خطأ فى كود اضافة احمد خطاب 1 82 14-01-19, 11:50 AM
آخر رد: محمد اسماعيل
  محتاج طريقة اضافة اعلان مثلا بانر Mohamed Magdy 3 177 02-01-19, 04:11 PM
آخر رد: أبووسم
  قمت بعمل برنامج واريد اضافة سريال تفعيل له remonmary 3 163 29-12-18, 05:44 PM
آخر رد: alsouf
  كود اضافة kaiser3D 0 106 17-12-18, 07:04 AM
آخر رد: kaiser3D
  [VB.NET] اضافة سريال لكل عملية محمد اسماعيل 4 199 14-12-18, 07:14 PM
آخر رد: محمد اسماعيل
  [VB.NET] اضافة الملفات محمد اسماعيل 9 737 10-12-18, 03:49 PM
آخر رد: tuscake
  اضافة بيانات اكثر من جدول في الكرستال المتألق9 1 135 02-12-18, 04:06 PM
آخر رد: Rabeea Qbaha
  [سؤال] اضافة التاريخ الى قاعدة البيانات allo5_800 2 180 18-11-18, 02:17 AM
آخر رد: allo5_800
  محتاج اضافة داخل الفيجوال بيسك 2010 Mohamed Magdy 2 153 14-11-18, 02:55 PM
آخر رد: Mohamed Magdy
Heart اريد طريقة اضافة رقم صفر قبل الرقم ahmadpal 6 273 12-11-18, 01:00 PM
آخر رد: elgokr

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


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