Question

VB 做的播放器 WindowsMediaPlayer

Private Function KEY_func(keyVal As Byte)
'1：播放 2：暂停 3：停止 4：上一首 5：下一首 6：音量加 7：音量减 8：静音/正常
Dim str_tmp As String
Dim int_tmp As Integer
Select Case (keyVal)
Case 1

WindowsMediaPlayer1.Controls.play

Case 2
WindowsMediaPlayer1.Controls.pause

Case 3
WindowsMediaPlayer1.Controls.stop
怎样让停止的时候自动停留在视频第一秒位置，而不是黑屏

Answer 1

1.如何加载WindowsMediaPlayer，控件：
在VB6.0D的菜单栏找到“工程”——“部件”，在弹出的菜单中，拉动滚动条找到WindowsMediaPlayer，将其前面的复选框选中，点击“应用”“确定”即可，然后你就会在你的的控件栏中看到WindowsMediaPlayer控件了。2.如何播放音乐文件
只需要将WindowsMediaPlayer1.URL赋相应的值即可。
例如要在窗体加载时播放music.wma这个文件，只要这样写代码。Private Sub Form_Load()
WindowsMediaPlayer1.URL = App.Path & "\music.wma"
End Sub'注意：其中的\music.wma是一个相对路径表示当前目录下的文件，即你的工程所保存的位置。你也可以使用绝对路径，如：WindowsMediaPlayer1.URL = "C:\music.wma"
3.如何暂停播放在command按钮中加入如下代码，即可实现。
Private Sub Command4_Click()
WindowsMediaPlayer1.Controls.pause
End Sub4.如何在暂停播放之后继续播放
在command按钮中加入如下代码，即可实现。Private Sub Command3_Click()
WindowsMediaPlayer1.Controls.play
End Sub如果想实现音乐从头播放，只需要将第二条中播放音乐中代码再写一遍即可。Private Sub Command5_Click()
WindowsMediaPlayer1.URL = App.Path & "\music.wma"
End Sub5.停止播放的音乐（关闭播放器）
在command按钮中加入如下代码，即可实现。Private Sub Command1_Click()
WindowsMediaPlayer1.Close
End Sub需要特别强调的是WindowsMediaPlayer控件是调用你本机的WindowsMediaPlayer播放器，而WindowsMediaPlayer的默认支持的播放格式为wma、mp3、asf。 视频：添加一个WindowsMediaPlayer控件，语法：WindowsMediaPlayer1.URL = "视频文件路径"
flash：添加一个shodkwave flash控件，语法：
ShockwaveFlash1.Movie = "flash文件路径"
可以用commondialog打开本地文件(commondialog.showopen)：
文件路径用 commondialog.filename