具體:
1、新建壹個工程。
2、右擊控件工具欄,選擇部件。
3、勾選Windows Media Player選項,並單擊確定。
4、在窗體上畫壹個Win Media Player,將其的名稱改為player1。
5、在player1的屬性窗口中找到URL屬性。
6、將該屬性的文本框中輸入任意影音文件路徑。
7、在窗體上畫壹個標簽,使用其默認名稱Label1。
8、在窗體上畫兩個Timer控件。使用默認名稱。
9、將Timer1的Interval屬性的值設置為1。
10、將Timer2的Interval屬性的值設置為60000。
11、輸入以下代碼:
╔════════════════════════════════╗
Private Sub Timer1_Timer()
Dim i
i = player1.Controls.currentPosition
Label1.Caption = i
Label1.Caption = Right(i, 2) / 25 + 25.5 * 2 / 2 * Left(i, 2)
End Sub
Private Sub Timer2_Timer()
Timer1.Enabled = False
player1.Controls.pause
End Sub
╚════════════════════════════════╝
12、保存並運行程序。
如果不行的話寫妳的郵箱,我發給妳