Question

[VB]在OLE控件中播放WAV格式音乐，如何中止？？

就是在音乐播放过程中，让音乐shut down
我使用的是VB6.0

Answer 1

http://www.chinesebloger.com/dispbbs.asp?boardID=2&ID=21834&page=1
你可以到上面这个链接去下载相应的工程。工程中不包含声音文件。

新建一个工程，然后在左侧工具箱的空白处单击右键，选择“部件”，找到“Windows media player”，并选中，单击确定。这时在工具栏上会出现一个Windows media player控件的图标。像使用别的控件一样，在窗体上放置一个Window media player控件。然后在窗体上放置3个Commandbutton控件，command1的caption属性修改为：“开始播放”，command2的caption属性修改为：“停止播放”，command3的caption属性修改为：“暂停播放”，然后保存这个工程，并在工程的目录下放置一个音频文件，只要是使用Windows media player能播放的都可以。这里我使用的音频文件为一首mp3，文件名为：“1.mp3”。代码如下：
注意：我使用的Windows media player的版本是10。
Dim pauseflag As Boolean '定义暂停标志，true表示当前处在暂停状态，false表示不是暂停状态
Private Sub Command1_Click()
WindowsMediaPlayer1.URL = App.Path & "\1.mp3"
WindowsMediaPlayer1.Controls.play
pauseflag = False
End Sub

Private Sub Command2_Click()
WindowsMediaPlayer1.Controls.stop
End Sub

Private Sub Command3_Click()
If pauseflag Then '如果当前状态为暂停
Command3.Caption = "暂停播放"
WindowsMediaPlayer1.Controls.play
pauseflag = False
Else '如果当前状态不为暂停
Command3.Caption = "继续播放"
WindowsMediaPlayer1.Controls.pause
pauseflag = True
End If
End Sub

Private Sub Form_Load()
pauseflag = False
End Sub

Answer 2

首先将OLE控件的VISIBLE属性设置为FALSE,然后在图标或按钮的单击事件中编写如下的程序：
PrivateSubContol_Click()
OLE1.Action=7
EndSub

Answer 3

ew

Answer 4

使用外部播放器播放吗?

Answer 5

按照狼多 说的应该可以吧。

Answer 6

这篇文章应该会对你有帮助吧