源代码: PrivateSubCommand1_Click() Dimback back=mciSendString&("CLOSENN",0,0,0) EndSub PrivateSubCommand2_Click() Dimback back=mciSendString&("OPEN" App.Path "TEST.mid" "TYPESEQUENCERALIASNN",0&,0,0) back=mciSendString&("PLAYNNFROM0",0&,0,0) R=mciSendString&("CLOSEANIMATION",0&,0,0) EndSub Privat...
[ 查看全文 ]