AxWindowsMediaPlayer媒体文件主要方法属性

axWindowsMediaPlayer1.Play　　　　　　　　　　播放  
axWindowsMediaPlayer1.Stop　　　　　　　　　　停止  
axWindowsMediaPlayer1.Pause　　　　　　　　　 暂停  
axWindowsMediaPlayer1.PlayCount　　　　　　　　文件播放次数  
axWindowsMediaPlayer1.AutoRewind　　　　　　　是否循环播放  
axWindowsMediaPlayer1.Balance　　　　　　　　　声道  
axWindowsMediaPlayer1.Volume　　　　　　　　　音量  
axWindowsMediaPlayer1.Mute　　　　　　　　　　静音  
axWindowsMediaPlayer1.EnableContextMenu　　　　是否允许在控件上点击鼠标右键时弹出快捷菜单  
axWindowsMediaPlayer1.AnimationAtStart　　　　是否在播放前先播放动画  
axWindowsMediaPlayer1.ShowControls　　　　　　是否显示控件工具栏  
axWindowsMediaPlayer1.ShowAudioControls　　　　是否显示声音控制按钮  
axWindowsMediaPlayer1.ShowDisplay　　　　　　　是否显示数据文件的相关信息  
axWindowsMediaPlayer1.ShowGotoBar　　　　　　　是否显示Goto栏  
axWindowsMediaPlayer1.ShowPositionControls　　是否显示位置调节按钮  
axWindowsMediaPlayer1.ShowStatusBar　　　　　　是否显示状态栏  
axWindowsMediaPlayer1.ShowTracker　　　　　　　是否显示进度条  
axWindowsMediaPlayer1.FastForward　　　　　　　快进  
axWindowsMediaPlayer1.FastReverse　　　　　　　快退  
axWindowsMediaPlayer1.Rate　　　　　　　　　　快进／快退速率  
axWindowsMediaPlayer1.AllowChangeDisplaySize　是否允许自由设置播放图象大小  
axWindowsMediaPlayer1.DisplaySize　　　　　　　设置播放图象大小  
　　　　1-MpDefaultSize　　　　　　　　　原始大小  
　　　　2-MpHalfSize　　　　　　　　　　 原始大小的一半  
　　　　3-MpDoubleSize　　　　　　　　　 原始大小的两倍  
　　　　4-MpFullScreen　　　　　　　　　 全屏  
　　　　5-MpOneSixteenthScreen　　　　　 屏幕大小的1/16  
　　　　6-MpOneFourthScreen　　　　　　　屏幕大小的1/4  
　　　　7-MpOneHalfScreen　　　　　　　　屏幕大小的1/2  
axWindowsMediaPlayer1.ClickToPlay　　　　　　　是否允许单击播放窗口启动Media Player  

在视频播放之后,可以通过如下方式读取源视频的宽度和高度,然后设置其还原为原始的大小.
         private void ResizeOriginal()
         {
             int intWidth = axWindowsMediaPlayer1.currentMedia.imageSourceWidth;
             int intHeight = axWindowsMediaPlayer1.currentMedia.imageSourceHeight;
             axWindowsMediaPlayer1.Width = intWidth + 2;
             axWindowsMediaPlayer1.Height = intHeight + 2;
         }

打开媒体文件并播放:

         Dim filePath As String
         With Me.OpenFileDialog1
             .Title = "打开语音文件"
             .CheckPathExists = True
             .CheckFileExists = True
             .Multiselect = False
             .Filter = "mp3文件(*.mp3)|*.mp3|所有文件(*.*)|*.*"
             If .ShowDialog = DialogResult.Cancel Then
                 Exit Sub
             End If
             filePath = .FileName
         End With
         Me.Text = "PC复读机-文件 " & filePath
         AxWindowsMediaPlayer1.URL = filePath
         Try
             Me.AxWindowsMediaPlayer1.Ctlcontrols.play()
         Catch ex As Exception
             MsgBox("对不起，不能播放此格式语音文件", MsgBoxStyle.OKOnly, "PC复读机")
             Exit Sub
         End Try

注意:

AxWindowsMediaPlayer1.URL 中URL是表示要播放的文件名,取消了原来的Name属性.

AxWindowsMediaPlayer1.Ctlcontrols.play()播放,同样还有Pause,Stop等其他属性.

AxWindowsMediaPlayer1.settings.balance表示媒体播放的声道设置,0表示均衡,-1和1表示左右声道.

AxWindowsMediaPlayer1.currentMedia.duration 表示要播放的文件的时间长度.可用它获取文件长度.

AxWindowsMediaPlayer1.Ctlcontrols.currentPosition表示正在播放的文件的当前播放位置,可用这个属性来对媒体文件进行前进后退等设置.如

AxWindowsMediaPlayer1.Ctlcontrols.currentPosition+1 表示前进1个时间单位.

AxWindowsMediaPlayer1.settings.rate播放速率,一般乘以16后再显示kbps单位.

注意:在上面程序中,如果在后面加上一个：

msgbox(AxWindowsMediaPlayer1.currentMedia.duration.ToString )

则显示结果很可能为0，因此，这时候很可能获取不到文件的播放时间长度，容易出错。所以在利用的时候可以加一个timer控件：

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
         EndPoint = AxWindowsMediaPlayer1.currentMedia.duration
         If EndPoint = 0 Then Exit Sub '可能因为媒体文件的打开需要一定时间，这里等待媒体文件的打开

         msgbox(AxWindowsMediaPlayer1.currentMedia.duration.ToString )

End Sub

此时msgbox便会显示文件播放长度。