我在表单中放了一个windowsmedia player控件用于播放视频,但是,视频大小变化时,播放窗口也变化,有没有像图片控件一样的成比例缩放属性。让wmplayer的播放窗口固定。
------解决方案--------------------------------------------------------
假设你的windowsmedia player控件Name值为Ole_WMPlayer7
- SQL code
表单的 Init 事件: With This.Ole_WMPlayer7 .uiMode="Full" &&可为Full, Mini, None, Invisible (Full显示全部;mini最简化;None不显示播放控制,只显示视频窗口;invisible全部不显示),Full和Mini控制条高度为 64 .StretchToFit=.T. &&自动伸展模式 .Settings.AutoStart=.T. &&启用自动播放 .Settings.Volume=100 &&音量控制( 0 ~ 100 ) .EnableContextMenu=.F. &&禁用右键菜单 .fullScreen=.F. .Move(0,0,你想要的宽度,你想要的高度) .Controls.stop Endwith同时在此控件的 StatusChange 事件加代码:This.Move(0,0,你想要的宽度,你想要的高度)