各位老兄,大哥大姐,本人在写程序的时候,为了去播放WAV文件。播放WAV文件我用的API函数。我想用WindowsMediaPlayer控件,只用上面的播放和停止按钮,还用它带的进度条,还有音量控制!但小弟没用起来。请教!

解决方案 »

  1.   

    '初始化窗口
        Private Sub Form_Load()
            CommonDialog1.Filter = "影像文件(*.Avi;*.Mpg;*.Dat;*.Asf)|*.Avi;*.MPG;*.DAT;*.Asf| All files (*.*)| *.*"
        End Sub
        
    '打开文件并自动播放
        Private Sub open_Click(Index As Integer)
            Dim MFile As String
            CommonDialog1.ShowOpen
            MFile = CommonDialog1.FileName
            MediaPlayer1.FileName = MFile
            MediaPlayer1.AutoStart = True
            MediaPlayer1.AutoSize = True
        End Sub
      

  2.   

    小弟只想用该控件的按钮,播放的程序我已经写好了。我用的Audiostdio播放的,
      

  3.   

    WindowsMediaPlayer1.Controls.Pause
    WindowsMediaPlayer1.Controls.Play