获取播放音频的进度

[tjficcbw]

我想获取播放音频的进度不知如何下手，请大家给个参考，谢谢

[tjficcbw]

Dim player As New Media.SoundPlayer() Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Text As String = "", Line As String = "" '声明一个名为Text的String类型变量用于储存TextBox.Text的值， 'Line变量用于储存被打开文件中的每一行文本 OpenFileDialog1.FileName = "" OpenFileDialog1.Filter = "音频文件(*.wav)|*.wav" OpenFileDialog1.ShowDialog() If OpenFileDialog1.FileName <> "" Then TextBox1.Text = OpenFileDialog1.FileName Application.DoEvents() player.SoundLocation = OpenFileDialog1.FileName 'player.Load() player.Play() Else TextBox1.Text = "没打开文件！" End If End Sub