منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] اضافة vimeo - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] اضافة vimeo (/showthread.php?tid=3353)

اضافة vimeo - manhag - 28-06-14

السلام عليكم
كيف يمكن اضافة فيديو من فيمو في الفيجوال ؟
وجزاكم الله خيراً

RE: اضافة vimeo - vbnet - 28-06-14

.....

منقول

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

من النافذة اختر التبويب COM Components ومنه صع علامة صح √ على WindowsMediaPlayer
[صورة مرفقة: DkFuS7.png]

أضف الأداة WindowsMediaPlayer التي ظهرت في مجموعة الأدوات إلى الفورم وأضف Button و TextBox
[صورة مرفقة: AJOexI.png]

كود :
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

[صورة مرفقة: tdUHX9.png]

.....