VB.net：如何在模式窗体上隐藏 Windows Media Player 可视化窗格，使控制栏可见？

如何解决VB.net：如何在模式窗体上隐藏 Windows Media Player 可视化窗格，使控制栏可见？

使用 VS2017 VB Forms，我制作了一个使用 AxWindowsMediaPlayer 播放 .mp3 文件的小程序，但我似乎无法在运行时可靠地修复控件的大小。

在设计中，我设置了控件的 Size 和 MaximumSize 属性（“size=120,45”），以便它紧贴图片框，并在运行时显示模态窗体时它“行为不端”第二次 - 通过设置控件的高度（和最大高度）属性，播放器扩大大小以显示可视化窗格，我试图将其隐藏，以便仅播放器的控制栏部分可见。

我用下面的一些代码复制了这种行为。 Form1 有一个以模态方式显示 Form2 的按钮。 Form2 有一个图片框和 AxWindowsMediaPlayer。单击图片框播放来自 Application.StartupPath 的“test.mp3”文件。一切都很好......第一次播放音频时，播放器表现很好......没有可见的可视化！

关闭 Form2，单击 Form1 上的“Load Form2”按钮，然后再次单击 Form2 上的 PictureBox 会导致不希望的行为……播放器展开并在可视化窗格中显示波形模式。以非模态方式显示 Form2（通过使用 Show 代替 ShowDialog）不会表现出这种行为，大概是因为控件是使用设计中设置的初始 Size 显示的。但是，我想以模态方式显示 Form2。

如果您就如何克服这种意外的尺寸变化提出建议，我将不胜感激。我对播放器的大量文档进行了一些研究，但我一直无法隐藏该可视化窗格。谢谢。

Public Class Form1
   Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click
       Form2.ShowDialog()
   End Sub
End Class


Public Class Form2
   Private Sub PictureBox1_Click(sender As Object,e As EventArgs) Handles PictureBox1.Click
       Dim AudioFile As String
       AudioFile = (Application.StartupPath & "\test.mp3")
       AxWindowsMediaPlayer1.Visible = True
       AxWindowsMediaPlayer1.URL = AudioFile
   End Sub
End Class ```