Question

VB 6.0 MMControl 控件使用问题

在一个工程的两个窗体中分别使用了一个MMControl控件，打开不同的文件，但两个窗体会同时工作，在启动后，启动窗体中的MMControl控件使用正常，然后在启动窗体中通过代码显示另一个窗体，在另一个窗体中使用MMControl控件功能也正常，然后再使用启动窗体中的MMControl控件就没有声音了，而另一个窗体中的MMControl则一直正常。为何？应该怎么办？请指教！
两个窗体不可能在同一时刻操作。两个窗体要切换后才能工作，但没有卸载。而且我给两个MCI使用了不同的名称，第一次时单独都可工作，但第二次使用启动窗体的MMC时就不能工作了，非启动窗体的MMC却一直可以正常使用。

我需要两个窗体都能工作，不能关掉其中任意一个，要在两个窗口间切换。但两个窗体是单独存在的，即使关闭其中一个，另一个仍然要能工作。

两个窗体中的load事件中MMC的代码相同，如下：
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = True
MMControl1.DeviceType = ""

MMControl1.FileName = App.Path & "\audio\audio1.mp3"
MMControl1.Command = "open"
MMControl1.TimeFormat = 0
只是打开的文件名不同。

以后在程序中有执行区间朗读功能。代码如下：
MMControl1.From = ys '播放的起始位置
MMControl1.To = jz '播放的结束位置
MMControl1.Command = "play"

还有一个与MMC有关的 代码 ，就是播放结束时触发的事件中执行一些其它代码，与MMC无关。

Private Sub MMControl1_Done(NotifyCode As Integer) '播放任务完成时触发些事件

就这些了。

两个窗体都有这些代码

Answer 1

你好，我试了你的代码，你可以把在一句话注释掉试试
MMControl1.Shareable = True '允许别人使用播放器
注释掉就可以了，您试试，不行的话百度HI我或者问题补充，谢谢