Проблема с axwindowsmediaplayer
у меня есть основная форма с кнопкой под названием (открыть видео), при нажатии на которую
вторая форма (form2) откроется следующим образом:
https://www2.0zz0.com/2020/04/20/23/422181175.jpg[^]
form2 имеет combobox в котором есть список видео
если выбран какой-либо элемент этого выпадающего списка, начнется воспроизведение видео
кроме того полноэкранный режим работает нормально
но когда стали формы Form2 (детская форма) форма form1
видео не масштабируется правильно также полноэкранный режим не работает так:
https://www5.0zz0.com/2020/04/20/23/983918628.jpg[^]
это код form1, чтобы сделать его родительским
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 для воспроизведения видео:
<pre>Public Class Form2 Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged If ComboBox1.SelectedItem = "Video 1" Then On Error Resume Next IO.File.WriteAllBytes(IO.Path.GetTempPath & "\Video 1.mp4", My.Resources.Video_2) AxWindowsMediaPlayer1.URL = IO.Path.GetTempPath & "\Video 1.mp4" IO.File.Delete(IO.Path.GetTempPath & "\Video 1.mp4") 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 Class
Что я уже пробовал:
попробовал другой код, но безуспешно:
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