Question

vb媒体播放器

用shockwaveflash和mmcontrol做的播放器方视频时怎样能让画面大小自由改变或变成合适大小？

Answer 1

flash 的大小，可以这样调整：
如果窗体上还有其他空间，你可以定义一个变量记录这个空间的初始位置，然后在resize事件中做合适的调整，以免覆盖住那些播放按钮之类的控件！
Option Explicit

Private Sub Form_Resize()'这个已经测试，可用
ShockwaveFlash1.Width = Me.ScaleWidth
ShockwaveFlash1.Height = Me.ScaleHeight
End Sub

mmcontrol的背景应该是调整这句代码：
MMControl1.hWndDisplay = Form1.hWnd '用背景窗体当屏幕

'这个你试试，我未作测试！