vba 用户窗体中的 Windows Media Player 大小答案

【问题标题】：Windows Media Player Size in vba userformvba 用户窗体中的 Windows Media Player 大小
【发布时间】：2017-06-18 10:14:49
【问题描述】：

当 WMP 在 VBA 用户窗体中运行时，它会根据剪辑大小和分辨率自动调整大小，而与以编程方式设置的 Width 和 Height 属性无关。我需要视频具有固定大小。以下代码什么都不做：

With UserForm1.WindowsMediaPlayer1
    .URL = "C:\AnyVideo.mp4"
    .Controls.Play
    .stretchToFit = True
    .Width = 500
    .Height = 300
    .Top = 0
    .Left = 0
End With

以下代码确实有效，但在开始时会使视频跳动 - 以自己的大小开始播放，然后跳转到新的大小，而不是专业的外观。

With UserForm1.WindowsMediaPlayer1
    .URL = "C:\AnyVideo.mp4"
    .Controls.Play
End With

Timer_1 = Timer + 1

Do While Timer < Timer_1
    DoEvents
Loop

With UserForm1.WindowsMediaPlayer1
    .stretchToFit = True
    .Width = 600
    .Height = 300
    .Top = 0
    .Left = 0
End With

我环顾四周，没有发现任何东西可以解释发生了什么或解决这个问题。有人可以帮忙吗？

【问题讨论】：

标签： excel vba wmplayer

【解决方案1】：

单击 WindowsMediaPlayer1 控件并选择自定义属性。您将看到“Windows Media Player 属性”窗口。取消选中“自动启动”选项。这应该可以解决这个问题。

这样就够了。您无需设置任何其他选项。它不会闪烁或看起来不会跳动等。

您现在可以在设计模式本身中根据您想要的任何大小来调整 WindowsMediaPlayer1 控件的大小。如果你仍然想要，你也可以通过代码来做同样的事情。取消选中上述选项后，它应该可以正常工作。

【讨论】：