我在一个FORM窗体中 加入了WindowsMediaPlayer控件  但不知道用哪个属性播放MPG文件 
请给我代码 谢谢!!!!!

解决方案 »

  1.   

    好象有个filename属性,指定文件名后,用play方法吧。
    几年没用,记不清了。
      

  2.   

    MediaPlayer1.filename = "c:\test.mp3"
    MediaPlayer1.AutoStart = True
      

  3.   

    WindowsMediaPlayer就没有filename这个属性啊    !!!!!
      

  4.   


        Option Explicit
        Dim MDwidth, MDheight As Integer
            
        '   初始化窗口
        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
            Form1.Width = MediaPlayer1.Width + 600
            Form1.Height = MediaPlayer1.Height + 800
        End Sub