'声明
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
'播放
private sub button1_click()
mcisendstring("play myvoice", "c:\my.mid", 0, 0)
end sub
'停止
private sub button2_click()
mcisendstring("stop myvoice", "c:\my.mid", 0, 0)
end sub

解决方案 »

  1.   

    Flash的问题,你干嘛要关闭第一个窗口?连续播放么?Flash控件有个playing属性,为true时表示在播放,为false时表示已停止,判断这个状态,决定是否该加载下一个flash了
      

  2.   

    flash控件没有click属性,当播放完之后窗体还有,我想不用加按钮,直接单击控件,退出第一个窗体,进入第二个窗体
      

  3.   

    ShockwaveFlash1_FSCommand
    可以在点击flash按钮的时候,接受flash用fscommand传递过来的参数也许这个对你有用
      

  4.   

    你留个邮箱,我给你个原程序,我写的,播放wav,flash,avi的。