منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

.....

منقول

أولا أضف الأداة 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

.....

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

manhag

vbnet