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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اضافة الملفات محمد اسماعيل 6 129 14-11-17, 05:31 AM
آخر رد: karimx
  رجاء ا ..اضافة داتاغريد على الفورم العيدروس 3 149 12-11-17, 02:45 AM
آخر رد: العيدروس
  اضافة الصور في قاعدة بيانات SQl Server وفي اداة ListView - مع مشروع كامل مرفق للشرح - ارجوا المساعدة shado1796 50 7,836 09-11-17, 10:01 PM
آخر رد: مهند بدران
  [VB.NET] اضافة ليبل لطباعة باداة PrintPreview محمد اسماعيل 3 61 28-10-17, 01:50 AM
آخر رد: Amir_alzubidy
  اضافة بعض الازرار الضرورية العيدروس 4 101 25-10-17, 03:56 AM
آخر رد: العيدروس
  اضافة وقت الي الوقت الاصلي محمد وهبي 2 74 24-10-17, 03:52 AM
آخر رد: محمد وهبي
  [VB.NET] اضافة الصور لقاعدة البيانات SQL m.farag87 2 80 23-10-17, 04:30 PM
آخر رد: Rabeea Qbaha
  تعديل كود عدم اضافة اكترمن 0 فى التكست بوكس نبيل فتحى 5 162 18-10-17, 09:49 PM
آخر رد: سعود
  اضافة 0 قبل العلامه العشريه فى التكست بوكس نبيل فتحى 6 141 08-10-17, 03:21 AM
آخر رد: نبيل فتحى
  مساعده فى اضافة "0" قبل" ." نبيل فتحى 0 53 06-10-17, 01:57 AM
آخر رد: نبيل فتحى

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


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