+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مشكلة مع AxWindowsMediaPlayer (/showthread.php?tid=34404)
مشكلة مع AxWindowsMediaPlayer - Doctor GME - 21-04-20
الفكرة ببساطة أن لدى main form عند الضغط فيها على button المسمى open videos
تفتح form أخرى بها AxWindowsMediaPlayer و combobox كما بالصورة
وعند اختيار video 1 مثلاً كما بالصورة يبدأ التشغيل ويعمل جيداً وأيضاً fullscreen mode يعمل
ولكن عند تعديل ال form الثانية لتكون child لل main form التى تصبح parent
لا يعمل الفيديو بالمقاس المناسب ولا تعمل أيضاً full screen mode كما بالصورة:
علماً أننى لم أغير أى شىء بالكود غير تحويلهم إلى child و parent فى هذا الكود:
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Form2.StartPosition = FormStartPosition.Manual
Form2.Left = 105
Form2.Top = 50
Form2.MdiParent = Me
End Subوهذا هو كود ال form2 الخاص بتشغيل الفيديوهات وتلاحظون أننى حاولت أكثر من صيغة
ولكن المشكلة لا تزال قائمة
كود :
Public Class Form2
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedItem = "Video 1" Then
Dim b As Byte() = My.Resources.Video_1
Dim TheFIlePath As String = "Video 1.mp4"
Dim TempFile As IO.FileStream = IO.File.Create(TheFIlePath)
TempFile.Write(b, 0, b.Length)
TempFile.Close()
AxWindowsMediaPlayer1.URL = (TheFIlePath)
End If
If ComboBox1.SelectedItem = "Video 2" Then
On Error Resume Next
IO.File.WriteAllBytes(IO.Path.GetTempPath & "\Video 2.mp4", My.Resources.Video_2)
AxWindowsMediaPlayer1.URL = IO.Path.GetTempPath & "\Video 2.mp4"
IO.File.Delete(IO.Path.GetTempPath & "\Video 2.mp4")
End If
If ComboBox1.SelectedItem = "Video 3" Then
On Error Resume Next
IO.File.WriteAllBytes(IO.Path.GetTempPath & "\Video 3.mp4", My.Resources.Video_3)
AxWindowsMediaPlayer1.URL = IO.Path.GetTempPath & "\Video 3.mp4"
IO.File.Delete(IO.Path.GetTempPath & "\Video 3.mp4")
End If
End Sub
End ClassRE: مشكلة مع AxWindowsMediaPlayer - معاند الحظ - 26-04-20
انسخ الكود التالي وضعه في محرر كود التابع للفورم الذي يحتوي على اداة ويندوز ميديا بلاير
كود :
Private Sub AxWindowsMediaPlayer1_PlayStateChange(sender As Object, e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
If (AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying) Then
'Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
'Me.WindowState = FormWindowState.Maximized
Try
AxWindowsMediaPlayer1.fullScreen = True
Catch ex As Exception
End Try
End If
End SubRE: مشكلة مع AxWindowsMediaPlayer - Doctor GME - 26-04-20
شكراً على محاولتك
ولكن النتيجة كما هى فقط حجم الفورم يزداد ليغطى بعض الشىء على ال parent form
RE: مشكلة مع AxWindowsMediaPlayer - Doctor GME - 28-04-20
upppppppppppppppppppppppppp