Set objDMSegSt = Nothing
Set objDMSeg = Nothing
Set objDMPerf = Nothing
Set objDMLoader = Nothing
End
End Sub
Private Sub Timer1_Timer()
GetTimePassed
Label1.Caption = "MIDI播放时间：" ElapsedTime " 总时间：" sAllTime
End Sub
运行程序，点击"打开MIDI文件"文件按钮打开一个MIDI文件，点击"播放"按钮播放文件，点击"暂停"按钮暂停播放，点击"停止"按钮停止播放。
上面的程序比较的简单，我就不做讲解了，大家可以自己分析。
由于DirectX编程是绕开了操作系统而直接对硬件进行操作，所以在编程过程中一定要比较的小心谨慎，由于Windows2000提供了对于DirectX的支持，如果有可能的化最好在Windows2000下编写，上面的程序就是我在Windows2000下编写运行调试后再在Windows98下检验的。并另外硬件对于程序的影响很大，上面的程序在你的机器上运行可能会有速度上的问题，我的机器配置是：赛扬500，128M内存，VooDoo3000, Yamaha 724声卡。
