# 要怎样才能暂停播放midi档??

Posted by 小伟 on December 05, 1997 at 23:36:39:

我写了以下的程式码:
Private Sub btnPlayMIDI_Click()
Dim Result As Long
Result = mciSendString("open c:\3ds4\temp\dosokai\dsk_01.mid type sequencer alias dsk_01", 0&, 0, 0)
Result = mciSendString("play dsk_01", 0&, 0, 0)
End Sub
Private Sub Stop_Click()
Dim Result As Long
Result = mciSendString("close all ", 0&, 0, 0)
End Sub
现在想建立一个Pause_Click()
应该要用那个函数呢??

Follow Ups: