Doctor GME Ответов: 0

Проблема с 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

0 Ответов