vb中添加mediaplayer控件并播放视频，当这个空间上方有其他控件如何才能让这个空间不覆盖其他控件？

你看看这个代码：
Dim b As Integer
Private Sub Command1_Click()
a = 0: b = 0
p = App.Path + "\data\"
If Dir(p & "*.avi") = "" Then MsgBox "没有avi文件": Exit Sub

Dim filenames() As String '读取目录下的avi文件
Dim f As String
n = 0
f = Dir(p & "*.avi")
Do While f ""
ReDim Preserve filenames(n)
filenames(n) = f
f = Dir
n = n + 1
Loop

Set sPlaylist = WindowsMediaPlayer1.playlistCollection.newPlaylist("avi") '建立新播放列表avi
WindowsMediaPlayer1.currentPlaylist = sPlaylist
For i = 0 To n - 1
Set sMedia = WindowsMediaPlayer1.mediaCollection.Add(p & filenames(i)) '将文件加入到播放列表中
WindowsMediaPlayer1.currentPlaylist.insertItem (WindowsMediaPlayer1.currentPlaylist.Count), sMedia '添加播放列表项
Next
WindowsMediaPlayer1.Controls.play '开始播放

End Sub


Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If NewState = 10 Then b = b + 1 '当播放状态为准备就绪的判断方法
If b = 2 Then MsgBox "播放结束"
End Sub

Imports QuartzTypeLib
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim music As New QuartzTypeLib.FilgraphManager
music.RenderFile("F:music\不是因为寂寞才想你.mp3")
music.Run()
End Sub
End Class

先添加引用Quartz.dll(系统文件 window\system32\quartz.dll)，在添加Interop.QuartzTypelib.dll(在项目obj文件夹下)



Ctlcontrols.fastForward; 快进
Ctlcontrols.fastReverse; 快退
Ctlcontrols.next; 下一曲
Ctlcontrols.previous; 上一曲

[settings]播放器基本设置
settings.volume:integer; 音量，0-100
settings.balance:integer (-100-100) 声道，通过它应该可以进行立体声、左声道、右声道的控制。 (-100代表左声道 0立体声 100右声道)

settings.autoStart:Boolean; 是否自动播放
settings.mute:Boolean; 是否静音
settings.playCount:integer; 播放次数

[currentMedia] 当前媒体属性
currentMedia.durationouble; 媒体总长度
currentMedia.durationString:string; 媒体总长度，字符串格式。如“03:24”
currentMedia.getItemInfo(const string); 获取当前媒体信息"Title"=媒体标题，"Author"=艺术家，"Copyright"=版权信息，"Description"=媒体内容描述，"Duration"=持续时间（秒），"FileSize"=文件大小，"FileType"=文件类型，"sourceURL"=原始地址
currentMedia.setItemInfo(const string); 通过属性名设置媒体信息
currentMedia.name:string; 同 currentMedia.getItemInfo("Title")

[currentPlaylist] 当前播放列表属性
currentPlaylist.count:integer; 当前播放列表所包含媒体数
currentPlaylist.Item[integer]; 获取或设置指定项目媒体信息
WindowsMediaPlayer.playState == WMPLib.WMPPlayState.wmppsMediaEnded//判断歌曲是否播放结束



希望对你有用，

选择 WMP 控件 -> 右键 -> 移至底层（或下移一层直至达到需要的效果）。

一般来讲 WMP 控件是不会覆盖住你想要的控件的。如图。 

嗯，确实是。WMP 使用了 Overlay 的渲染技术，在视频的播放区直接刷新屏幕，就会把视频区的控件覆盖掉。如果使用 GDI+，只会更改控件内容。

要 GDI+ 的渲染器（网络视频播放用）才能保证控件不被覆盖。

13936874229：vb中添加mediaplayer控件并播放视频,当这个空间上方有其他控件如何才能...
叶丹罗 ：答：选择 WMP 控件 -> 右键 -> 移至底层（或下移一层直至达到需要的效果）。一般来讲 WMP 控件是不会覆盖住你想要的控件的。如图。嗯，确实是。WMP 使用了 Overlay 的渲染技术，在视频的播放区直接刷新屏幕，就会把视频区的控件覆盖掉。如果使用 GDI+，只会更改控件内容。要 GDI+ 的渲染器（网络视频...

13936874229：请教VB高手关于WindowsMediaPlayer控件
叶丹罗 ：答：1、因为我们需要使用到MediaPlayer控件，所以刚开始就要右击工具面板并在部件添加窗口里选择“Windows MediaPlayer”来添加这个控件，同时还要添加“CommonDialog”控件。2、在窗口设计器中创建一个MediaPlayer控件、五个Command Button控件和一个CommonDialog控件。3、将Form1的Caption属性更改为“小叮当的媒体播...

13936874229：如何通过代码在VB或VBA中添加WindowsMediaPlayer控件
叶丹罗 ：答：打开VB，在左侧的工具箱下面的常规选项卡点击右键，选择“选择项”，稍等片刻，选择“COM组件”，选择WINDOWS MEDIA PLAYER即可

13936874229：vb6 windows media player控件使用方法
叶丹罗 ：答：在VB6.0D的菜单栏找到“工程”——“部件”，在弹出的菜单中，拉动滚动条找到WindowsMediaPlayer，将其前面的复选框选中，点击“应用”“确定”即可，然后你就会在你的的控件栏中看到WindowsMediaPlayer控件了。2.如何播放音乐文件 只需要将WindowsMediaPlayer1.URL赋相应的值即可。例如要在窗体加载时播放...

13936874229：【高分】VB中的Windowsmediaplayer控件,如何实现自动播放下一个视频文件...
叶丹罗 ：答：Count), sMedia '添加播放列表项 Next WindowsMediaPlayer1.Controls.play '开始播放 End Sub Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)If NewState = 10 Then b = b + 1 '当播放状态为准备就绪的判断方法 If b = 2 Then MsgBox "播放结束"End Sub ...

13936874229：VB WindowsMediaPlayer 播放
叶丹罗 ：答：‘添加windowsmediaplayer控件 一个timer控件即可使用 Option Explicit Dim list2() As String, B可播放文件数 As Integer '可以播放的文件 Dim list() As String '存放所有的文件名 Dim total As Long '文件总个数 Dim now As Long '用来记录当前读取的文件的排序 Private Sub Form...

13936874229：VB中使用WindowsMediaPlayer控件时怎么使歌曲循环播放?
叶丹罗 ：答：问题描述:应该是哪一个属性？？解析:'如果是用的Windows MediaPlayer 就可以在里面加这样一段代码 '当播放器的播放状态改变是 Private Sub MediaPlayer1_PlayStateChange(ByVal NewState As Long)If NewState = 1 Then'1为停止(一曲播完)MediaPlayer1.Controls.play'再播放 End If End Sub ...

13936874229：在vb中怎样用controls.add添加windows media player控件
叶丹罗 ：答：Private Sub Form_Load()Licenses.Add "WMPlayer.OCX.7", "WMPlayer7"Set objExt = Form1.Controls.Add("WMPlayer.OCX.7", "wmp1")With objExt .Visible = True .Left = 50 .Height = 2000 End With End Sub 上面引用类名为WMPlayer.OCX.7，可能不同版本类名也不同。另外动态加载的控件...

13936874229：VB 中WindowsMediaPlaye控件
叶丹罗 ：答：; 通过属性名设置媒体信息 currentMedia.name:string; 同 currentMedia.getItemInfo("Title")currentPlaylist.count:integer; 当前播放列表所包含媒体数 currentPlaylist.Item[integer]; 获取或设置指定项目媒体信息，其子属性同wmp.currentMedia 至于放大,可以先获得播放时的Width和Height,然后再乘以2赋值 ...

13936874229：vb中,如何让Windows Media Player控件播放音乐文件?
叶丹罗 ：答：currentMedia.name:string; 同 currentMedia.getItemInfo("Title")[currentPlaylist] 当前播放列表属性 currentPlaylist.count:integer; 当前播放列表所包含媒体数 currentPlaylist.Item[integer]; 获取或设置指定项目媒体信息 WindowsMediaPlayer.playState == WMPLib.WMPPlayState.wmppsMediaEnded//判断歌曲...