05-01-20, 11:50 AM
يبدو أنني فهمت خطأ من الصورة التي وضعتموها حضرتكم، بسبب وجود زر تشغيل ◄ وبروجرسبار،
فاعتقدت أن البرنامج خاص بتشغيل مقاطع على شكل قائمة، ولكن نافذة عرض المقطع غير ظاهرة في الصورة،
طوال يوم أمس وأنا أحاول على فهمي الخاطئ، وكيف أربط ProgressBar بمدة عرض المقطع حتى يأست من شدة التعب،
وقبل قليل عندما دخلت المنتدى وجدت الأخ الحبيب trakktour وضع صورة تبين أن الزر للتحميل وليس للتشغيل،
فرجعت بقراءة الموضوع من أوله فلم أجد إلا كلمة تحميل واحدة (لم أركز فيها على ما يبدو)،
فقمت بعدها بمراجعة مشروعك المرفق فلم أجد ما يوضح أن الموضوع يتعلق بالتحميل،
عموما كان هذا ما توصلت إليه (بمفهومي الخاطئ) بعد التعديل ولكن اتضح الآن أنه ليس الهدف النهائي لما تريد.
ولكن لمن يرغب في معرفة التعديل حسب هذه الصورة فهذه هي الطريقة:
حذف الأكواد التي في MyUserControl مع إضافة Button على الصورة
وفي الفورم إضافة WebBrowser
اضافة هذا الكود في الفورم
إضافة هذه الأسطر قبل سطر ((FlowLayoutPanel1.Invoke(Sub() FlowLayoutPanel1.Controls.Add(uc
أتمنى أن يتم التوصل لطريقة تحميل المقاطع ليستفيد منه الجميع.
فاعتقدت أن البرنامج خاص بتشغيل مقاطع على شكل قائمة، ولكن نافذة عرض المقطع غير ظاهرة في الصورة،
طوال يوم أمس وأنا أحاول على فهمي الخاطئ، وكيف أربط ProgressBar بمدة عرض المقطع حتى يأست من شدة التعب،
وقبل قليل عندما دخلت المنتدى وجدت الأخ الحبيب trakktour وضع صورة تبين أن الزر للتحميل وليس للتشغيل،
فرجعت بقراءة الموضوع من أوله فلم أجد إلا كلمة تحميل واحدة (لم أركز فيها على ما يبدو)،
فقمت بعدها بمراجعة مشروعك المرفق فلم أجد ما يوضح أن الموضوع يتعلق بالتحميل،
عموما كان هذا ما توصلت إليه (بمفهومي الخاطئ) بعد التعديل ولكن اتضح الآن أنه ليس الهدف النهائي لما تريد.
ولكن لمن يرغب في معرفة التعديل حسب هذه الصورة فهذه هي الطريقة:
حذف الأكواد التي في MyUserControl مع إضافة Button على الصورة
وفي الفورم إضافة WebBrowser
اضافة هذا الكود في الفورم
PHP كود :
Private Sub Play_Click(sender As Button, e As EventArgs)
WebBrowser1.ScriptErrorsSuppressed = True
WebBrowser1.Navigate(sender.Parent.Tag)
End Sub
PHP كود :
Dim vid As String = Regex.Match(src(i), "http://i.ytimg.com/vi/(.+?)/hqdefault.jpg").Groups(1).Value
uc.Tag = "https://www.youtube.com/embed/" & vid & "/?autoplay=1&rel=0"
AddHandler uc.Button1.Click, AddressOf Play_Click
أتمنى أن يتم التوصل لطريقة تحميل المقاطع ليستفيد منه الجميع.