VB.net与Media Player9.0嵌入式开发

Private Sub Button1_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles Button1.Click
        '打开和关闭所有光驱仓门
Dim i
Dim k = AxWindowsMediaPlayer1.cdromCollection.count()
If k > 1 Then
For i = 0 To k - 1
AxWindowsMediaPlayer1.cdromCollection.Item(i).eject()
Next
Else
AxWindowsMediaPlayer1.cdromCollection.Item(0).eject()
  End If
 End Sub
 Private Sub Form1_Load(ByVal sender As Object,
ByVal e As System.EventArgs) Handles MyBase.Load
        '获得计算机中有多少个光驱和它们的盘符
 Dim i
 Dim cdlabel As String
Dim k = AxWindowsMediaPlayer1.cdromCollection.count()
If k > 1 Then
 For i = 0 To k - 1
 cdlabel = cdlabel & 
AxWindowsMediaPlayer1.cdromCollection.Item(i).driveSpecifier()
Label1.Text = "这台计算机共有 " & k & 
" 台CD-ROM" & "分别是" & cdlabel & " "
 Next
Else
 cdlabel = cdlabel + 
AxWindowsMediaPlayer1.cdromCollection.Item(0).driveSpecifier()
 Label1.Text = "这台计算机共有 " & k & 
" 台CD-ROM" & "分别是" & cdlabel & " "
        End If
    End Sub
Private Sub Button2_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button2.Click
        Dim strfilename As String
        Dim OpenFileDialog1 As System.Windows.Forms.OpenFileDialog =
New System.Windows.Forms.OpenFileDialog()
        OpenFileDialog1.ShowDialog()
        strfilename = OpenFileDialog1.FileName
        AxWindowsMediaPlayer1.URL = strfilename
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button3.Click
        AxWindowsMediaPlayer1.controls.play()'播放
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button5.Click
    AxWindowsMediaPlayer1.controls.stop()'停止
    End Sub
Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As Object,
　ByVal e As AxMicrosoft.MediaPlayer.Interop._WMPOCXEvents_PlayStateChangeEvent) Handles 
　AxWindowsMediaPlayer1.PlayStateChange
'表示播放媒体发生变化时触发此事件
        Label4.Text = "此文件播放总时间是" &
AxWindowsMediaPlayer1.currentMedia.durationString
 Timer1.Enabled = True
 Label5.Text = "标题" & 
AxWindowsMediaPlayer1.currentMedia.getItemInfoBytype("Title", "", 0)
Label6.Text = "作者" & 
AxWindowsMediaPlayer1.currentMedia.getItemInfoBytype("Author", "", 0)
           End Sub
    Private Sub Button4_Click(ByVal sender As System.Object,
    　ByVal e As System.EventArgs) Handles Button4.Click
        AxWindowsMediaPlayer1.controls.pause()'暂停
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Timer1.Tick
        Label2.Text = "已经播放时间" &
CInt(AxWindowsMediaPlayer1.controls.currentPosition) & "秒"
    End Sub
 Private Sub TrackBar1_Scroll(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles TrackBar1.Scroll
   AxWindowsMediaPlayer1.settings.volume = TrackBar1.Value'调整输出音量
End Sub